I = Intersect(xAxis, yAxis)
O = Point(Ray[I, Vector[(0, 0, 1)]])
a = Plane(O, xOyPlane)
E = Point(Ray[O, Vector[(0, 0, 1)]])
G = PointIn(a)
H = PointIn(a)
F = PointIn(a)
polígono1, e, f, d = Polygon(F, G, H)
g = Segment(E, I)
h = Line(E, F)
i = Line(E, H)
j = Line(E, G)
M = Intersect(h, xOyPlane)
L = Intersect(i, xOyPlane)
I_1 = Intersect(j, xOyPlane)
polígono2, i_1, g_1, h_1 = Polygon(M, L, I_1)
k = Segment(M, E)
l = Segment(E, L)
K = Segment(I_1, E)