Cono

Esfera

Cilindro

Eje

Radio = 5 (slider from 0 to 5)
Radio2: Radio / 2
a = true
c = false
b = false
A: (0, 0, -2)
B: (0, 0, 2)
radio = 0 (slider from 0 to Radio, step 0.1)
C: (0, 0, 0)
α = 0 rad (slider from 0 to 6.283185307179586)
Altura = 10 (slider from 0 to 10, step 0.01)
l = Surface(((ll * Radio) * cos(aa)), ((ll * Radio) * sin(aa)), 0, aa, 0, α, ll, 0, 1)
i = Surface((((ll * radio) + ((1 - ll) * Radio)) * cos(aa)), (((ll * radio) + ((1 - ll) * Radio)) * sin(aa)), (ll * Altura), aa, 0, α, ll, 0, 1)
j = Surface(((ll * radio) * cos(aa)), ((ll * radio) * sin(aa)), Altura, aa, 0, α, ll, 0, 1)
D: (0, 0, 0)
E: (0, 0, Altura)
F: (Radio, 0, 0)
t1, d_1, e_1, f_1 = Polygon(E, F, D)
f = Surface((Radio * cos(aa)), (Radio * sin(aa)), (ll * Altura), aa, 0, α, ll, 0, 1)
k = Surface(((ll * Radio) * cos(aa)), ((ll * Radio) * sin(aa)), 0, aa, 0, α, ll, 0, 1)
m = Surface(((ll * Radio) * cos(aa)), ((ll * Radio) * sin(aa)), Altura, aa, 0, α, ll, 0, 1)
G: (Radio, 0, Altura)
c1, e, d_2, f_2, g = Polygon(E, D, F, G)
n = Line((0, 0, 0), (0, 0, 1))
I: (0, 0, (2 * Radio))
H: (0, 0, 0)
q = Segment(I, H)
d = true
h = Surface(((Radio * cos(bb)) * cos(aa)), ((Radio * cos(bb)) * sin(aa)), Radio + (Radio * sin(bb)), aa, 0, α, bb, ((-π)) / 2, π / 2)
p = CurveCartesian((Radio * cos(bb)), 0, (Radio * sin(bb)) + Radio, bb, ((-π)) / 2, π / 2)