Cross Section of a Cylinder

Move

0^\circ

180^\circ

r

h

h

VirSTEM

Turn and move 
the section plan

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 = 0 (slider from 0 to 4, step 0.05)
poly1, a, b, c, d = Polygon(A + (-4, -4), A + (4, -4), A + (4, 4), A + (-4, 4))
s = 0.57 (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)]], (90° * s), A + (0, 0, h), 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)
m, e_1, f_1, o = Cylinder((0, 0, 0), (0, 0, 4), 2)
G = PointIn(poly2)
H = PointIn(poly2)
I = PointIn(poly2)
n = Plane(G, I, H)
poly6 = IntersectPath(n, m)
K = (-2, 8.326672684688674e-17, 1.65)
L_1 = (0.9999999999999996, -1.7320508075688774, 1.65)
O = (0.9999999999999996, 1.7320508075688767, 1.65)
d_1 = OrthogonalLine(A, n)
g_1, g_1_1 = Ends(m)
M: (0, 0, 0)
N: (0, 0, 4)
Q = Point(g_1)
h_1 = Segment(N, M)
i_1 = Segment(M, Q)
p_1 = Plane(poly2)