O = Intersect(xAxis, yAxis)
L = Point(xAxis)
c = Circle(O, L)
A = Point(c)
B = Rotate(A, 120°, O)
C = Point(Circle[Midpoint[A, B], (Distance[A, B] * sqrt(3) / 2), Segment[A, B]])
a, D, stenaABD, stenaADE, stenaABE, stenaBDE, hranaAD, hranaAB, hranaBD, hranaAE, hranaDE, hranaBE = Tetrahedron(A, B, C)
f = Ray(A, O)
A_1 = Intersect(hranaBD, f)
g = Segment(D, O)