A = Intersect(yAxis, zAxis)
B = Point(yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
p: 0.5
K: H + (p * Vector[H, E])
m = 0.5 (slider from -5 to 5)
I: B + (m * Vector[B, A])
q = Plane(F, K, I)
J = Intersect(arêteAD, q)
t: 1 / (2 - m)
O: B + (1 / (2 - m) * Vector[B, A]) + (((1 - m) * (1 - p) / (2 - m)) * Vector[B, C]) + ((1 - 1 / (2 - m)) * Vector[B, F])
f = Line(K, I)
g = Line(F, J)