B'

B'

O

ControlCámara = Point(Ray[(0, 0), Vector[(0, 1)]])
F = Intersect(xAxis, yAxis)
A' = Midpoint(ControlCámara, F)
O = Point(Ray[(-1, y(A')), Vector[(-1, 0)]])
f = OrthogonalLine(O, xAxis)
g = OrthogonalLine(ControlCámara, yAxis)
D = Intersect(f, g)
E_1 = Intersect(f, xAxis)
polígono1, d, a, b, e = Polygon(D, ControlCámara, F, E_1)
h = OrthogonalLine(A', yAxis)
A = Point(Ray[O, Vector[(-1, 0)]])
i = OrthogonalLine(A, h)
B = Point(i)
u = Vector(A, B)
j = Segment(A, A')
k = Line(B, O)
B' = Intersect(yAxis, k)
v = Vector(A', B')
l = Segment(B, B')
C = Intersect(k, d)
m = Segment(A', ControlCámara)
w = Vector(ControlCámara, C)
n = Segment(B, C)
G = Intersect(k, b)
p = Segment(A', F)
c = Vector(F, G)
q = Segment(B, G)
E = Intersect(e, h)