Pyramid cross-section

Move

a

a

VirSTEM

Section view

Turn and move the section plane

0°

180°

B = (2, 18)
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_{2} = 0.1 (slider from 0.1 to 8, step 0.1)
poly1, a, b, c, d = Polygon(A + (-4, -4), A + (4, -4), A + (4, 4), A + (-4, 4))
s = 0 (slider from 0 to 2, step 0.01)
t = 0 (slider from 0 to 1, step 0.01)
poly2 = Rotate(Rotate[Translate[poly1, Vector[A, A + (0, 0, h_{2})]], (90° * s), A + (0, 0, h_{2}), yAxis], (90° * t), A, zAxis)
D = (-2, 0, 0)
E = Rotate(D, 120°, (0, 0, 0))
poly4, j, k, l, F = Polygon(D, E, 3, xOyPlane)
K = (-2, 8.326672684688674e-17, 1.65)
L_1 = (0.9999999999999996, -1.7320508075688774, 1.65)
O = (0.9999999999999996, 1.7320508075688767, 1.65)
p_1 = Plane(poly2)
G = Point(yAxis)
H = Point(xAxis)
I = Point(yAxis)
M = Point(xAxis)
q1, g_1, h_1, i_1, m = Polygon(G, H, I, M)
o, Q, faceGHQ, faceHIQ, faceIMQ, faceGMQ, edgeGQ, edgeHQ, edgeIQ, edgeMQ = Pyramid(q1, 7.162131551459125)
N = Intersect(edgeIQ, edgeHQ)
R = Intersect(zAxis, xAxis)
h = Segment(N, R)
f_1 = IntersectPath(p_1, faceGHQ)
S, T = Intersect(p_1, faceGHQ)
poly6, U, V, W, Z, A_1, j_1, k_1, l_1, m_1, n_1 = IntersectPath(p_1, o)