1

B = (2, 2, 0)
C = (-2, 2, 0)
C_1 = (2, -2, 0)
D = (-2, -2, 0)
a, D_2, A, F, G, H, E, faceABEF, faceAFJG, faceABHG, faceBEIH, faceEFJI, faceGHIJ, edgeAF, edgeAB, edgeBE, edgeEF, edgeAG, edgeFJ, edgeGJ, edgeGH, edgeBH, edgeHI, edgeEI, edgeIJ = Cube(B, C, xOyPlane)
V = Midpoint(H, F)
b = Segment(A, V)
c = Segment(B, V)
d = Segment(C, V)
e = Segment(D, V)
P = Point(e)
Q = Point(edgeAF)
R = Point(edgeBE)
f = Segment(Q, R)
g = Segment(R, P)
h = Ray(R, Q)
i = Ray(D, A)
K = Intersect(i, h)
j = Segment(P, K)
I = Intersect(b, j)
k = Segment(I, P)
l = Segment(I, Q)
mnohoúhelník1, q, r, p, i_1 = Polygon(Q, R, P, I)