h = 2 (slider from 0 to 5, step 0.001)
A_1 = (1, 1, -1)
A_2 = (1, -1, -1)
A_3 = (-1, -1, -1)
A_4 = (-1, 1, -1)
B_1 = (1, 1, 1)
a, B_2, B_3, B_4, face1, face2, face4, face5, face3, face6, edge1, edge4, edge6, edge2, edge3, edge5, edge7, edge8, edge9, edgeAB_1, edgeBC_1, edge10 = Prism(A_1, A_2, A_3, A_4, B_1)
Q: ((-2), (-2), (-h))
P: (2, 2, h)
b = Line(P, Q)
c = OrthogonalPlane(P, b)
d = 1.995 (slider from 1 to 3, step 0.001)
e = Circle(P, d / 1.41421, b)
A = Point(e)
A' = Rotate(A, -90*°, b)
A'' = Rotate(A', -90*°, b)
A''' = Rotate(A'', -90*°, b)
f = Line(A, b)
B = Point(f)
g, C, D, E, faceAA'A''A''', faceAA'CB, faceA'A''DC, faceA''A'''ED, faceAA'''EB, faceBCDE, edgeAA', edgeA'A'', edgeA''A''', edgeAA''', edgeAB, edgeA'C, edgeA''D, edgeA'''E, edgeBC, edgeCD, edgeDE, edgeBE = Prism(A, A', A'', A''', B)