Pohyb

→

←

 ↑

 ↓

Rotácia 1

Horizontálne

Vertikálne

Rotácia 2

Výška

Rovina

Priehľadná

Nepriehľadná

Priehľadné

Nepriehľadné

3D Teleso

A = (2, 18)
q1, e, f, g, i = Polygon(A + (-2, -2), A + (2, -2), A + (2, 2), A + (-2, 2))
B = PointIn(q1)
S = Translate((0, 0, 0), Vector[A, B])
q2, a, b, c, d = Polygon(S + (-4, -4), S + (4, -4), S + (4, 4), S + (-4, 4))
s = 0 (slider from -1 to 1, step 0.01)
t = 0 (slider from -1 to 1, step 0.01)
v = 2.18 (slider from -1 to 5, step 0.01)
o2 = 0.53 (slider from 0 to 1, step 0.01)
q2' = Translate(q2, Vector[S, S + (0, 0, v)])
q2'' = Rotate(q2', (90° * s), S + (0, 0, v), yAxis)
q2''' = Rotate(q2'', (90° * t), S, zAxis)
q3 = Rotate(Rotate[Translate[q2, Vector[S, S + (0, 0, v)]], (90° * s), S + (0, 0, v), yAxis], (90° * t), S, zAxis)
m, M, N, Q, face1, face2, face3, face4, face5, edge1, edge2, edge3, edge4, edge5, edge6, edge7, edge8 = Prism(Polygon[(-1.5, -1.25, 0), (1.5, -1.25, 0), (1.5, 1.25, 0), (-1.5, 1.25, 0)], (-1.5, -1.25, 4))
G = PointIn(q3)
H = PointIn(q3)
I = PointIn(q3)
o1 = 0.44 (slider from 0 to 1, step 0.01)
n = Plane(G, I, H)
d_1 = OrthogonalLine(S, n)
m' = Rotate(m, 0, zAxis)