Cono

Plano

Pirámide

Plano

Modifica la altura del plano 
con el deslizador. 
Después, quita el plano. 

max: 10
Altura = 10 (slider from 0 to max, step 0.01)
Radio: max / 2
a = true
A: (0, 0, -2)
radio: ((max - Altura) * Radio / max)
B: (0, 0, 2)
C: (0, 0, 0)
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586)
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)
G: (Radio, 0, Altura)
n = Line((0, 0, 0), (0, 0, 1))
p = OrthogonalPlane(E, n)
c_1 = Surface((((1 - ll) * radio) * cos(aa)), (((1 - ll) * radio) * sin(aa)), Altura + (ll * (max - Altura)), aa, 0, α, ll, 0, 1)
b = false
c = false
d = false
P: ((-Radio), (-Radio), 0)
H: (Radio, (-Radio), 0)
I: ((-Radio), Radio, 0)
J: (Radio, Radio, 0)
c1, j_1, h, p_1, i_1 = Polygon(J, H, P, I)
K: ((-radio), (-radio), Altura)
L: (radio, (-radio), Altura)
N: (radio, radio, Altura)
M: ((-radio), radio, Altura)
c2, n_1, m, k, l_1 = Polygon(N, M, K, L)
c3, m_1, i_2, p_2, k_1 = Polygon(M, I, P, K)
c4, m_2, n_2, j_2, i_3 = Polygon(M, N, J, I)
c5, l_2, h_1, j_3, n_3 = Polygon(L, H, J, N)
c6, k_2, p_3, h_2, l_3 = Polygon(K, P, H, L)
O: (0, 0, max)
t1, n_4, o, l_4 = Polygon(O, L, N)
t2, m_3, o_1, n_5 = Polygon(O, N, M)
t3, k_3, o_2, m_4 = Polygon(O, M, K)
t4, l_5, o_3, k_4 = Polygon(O, K, L)