1

1

2

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(b)
Q = Point(edgeAF)
R = Point(d)
f = Segment(P, Q)
g = Ray(V, B)
h = Ray(P, Q)
K_1 = Intersect(g, h)
i = Segment(K_1, R)
I = Intersect(i, edgeAB)
j = Segment(Q, I)
n = Segment(I, R)
k = Ray(I, Q)
l = Ray(D, A)
K_2 = Intersect(l, k)
p = Ray(K_2, P)
J = Intersect(p, e)
m = Segment(P, J)
q = Segment(J, R)
mnohoúhelník1, q_1, i_1, r, j_1, p_1 = Polygon(Q, I, R, J, P)