Move

→

←

↑

↓

Height

Horizontal

Vertical

Rotate 1

Rotate 2

3D Shape

Transparent

Opaque

Plane

Transparent

Opaque

Direct View

Reset

B = (1, 13)
poly3, e, f, g, i = Polygon(B + (-2, -2), B + (2, -2), B + (2, 2), B + (-2, 2))
C = PointIn(poly3)
A = Translate((0, 0, 0), Vector[B, C])
h = -0.15 (slider from -1 to 5, step 0.05)
poly1, a, b, c, d = Polygon(A + (-4, -4), A + (4, -4), A + (4, 4), A + (-4, 4))
s = 0 (slider from 0 to 1, step 0.01)
t = 0 (slider from 0 to 1, step 0.01)
poly2 = Rotate(Rotate[Translate[poly1, Vector[A, A + (0, 0, h)]], (90° * s), A + (0, 0, h), yAxis], (90° * t), A, zAxis)
m, M, face1, face2, face3, face4, edge1, edge2, edge3, edge4 = Pyramid(Polygon[(2, 2, 0), (2, -2, 0), (-2, -2, 0), (-2, 2, 0)], -4)
D = (-2, 0, 0)
E = Rotate(D, 120°, (0, 0, 0))
poly4, j, k, l, F = Polygon(D, E, 3, xOyPlane)
G = PointIn(poly2)
H = PointIn(poly2)
I = PointIn(poly2)
n = Plane(G, I, H)
poly6, poly5, K, L_1, O, P, J, L, p, q, r, a_1, b_1, c_1 = IntersectPath(n, m)
m' = Rotate(m, 0, zAxis)
m'_1 = Rotate(m, 0, zAxis)
o1 = 0.33 (slider from 0 to 1, step 0.01)
o2 = 0.3 (slider from 0 to 1, step 0.01)
d_1 = OrthogonalLine(A, n)