sph(x) = If[0 ≤ x ≤ 10, (π * ((5 * x^(2)) - x^(3) / 3)), ((50 * π) * x / 3)]
con(x) = (π * x^(3) / 12)
pyr(x) = x^(3) / 3
a: (x + 10)^(2) + y^(2) + (z - 5)^(2) = 25
c = Surface(t, u, abs(t + u) + abs(t - u), t, -5, 5, u, -5, 5)
b = Surface(((0.5 * t) * cos(u)) + 12, ((0.5 * t) * sin(u)), t, u, 0, (2 * π), t, 0, 10)
d = 457 (slider from 0 to (500 * π / 3), step 1)
A: (0, d)
f: y = d
S = Intersect(sph, f, (7.768207309468947, 456.9999999552935))
P = Intersect(pyr, f, (11.109107045931362, 456.99999999594746))
C = Intersect(con, f, (12.040629448323852, 456.9999999967802))
wc = If(0 ≤ y(A) ≤ (250 * π / 3), Distance[A, C], 10)
wp = If(0 ≤ y(A) ≤ 1000 / 3, (0.5 * Distance[A, P]), 5)
ws = Distance(A, S)
e = Surface(((0.5 * t) * cos(u)) + 12, ((0.5 * t) * sin(u)), t, u, 0, (2 * π), t, 0, wc)
g = Surface(t, u, abs(t + u) + abs(t - u), t, (-wp), wp, u, (-wp), wp)
h = Surface((sqrt((10 * u) - u^(2)) * cos(t)) - 10, (sqrt((10 * u) - u^(2)) * sin(t)), u, u, 0, ws, t, 0, (2 * π))