Sphere cross-section

Move

VirSTEM

Cross-section view

d

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 = 4 (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 = 1.24 (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)
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(zAxis)
H = Intersect(xAxis, zAxis)
m = Sphere(G, H)
d_1 = IntersectPath(p_1, m)
H' = Mirror(H, G)
n = Segment(H', H)