Plantilla 3D
Author: Rafael Losada Liste

inclinación = 0.17453292519943295 rad (slider from 0 to 0.3490658503988659, step 0.017453292519943295)
C1 = Point(Segment[(-5.0, -6.0), (0.0, -6.0)])
C2 = Point(Segment[(-5.0, -5.0), (0.0, -5.0)])
C3 = Point(Segment[(-5.0, -4.0), (0.0, -4.0)])
C4 = Point(Segment[(-5.0, -3.0), (0.0, -3.0)])
C5 = Point(Segment[(-5.0, -2.0), (0.0, -2.0)])
C6 = Point(Segment[(-5.0, -1.0), (0.0, -1.0)])
C7 = Point(Segment[(-5.0, 0.0), (0.0, 0.0)])
C8 = Point(Segment[(-5.0, 1.0), (0.0, 1.0)])
C9 = Point(Segment[(-5.0, 2.0), (0.0, 2.0)])
C10 = Point(Segment[(-5.0, 3.0), (0.0, 3.0)])
C11 = Point(Segment[(-5.0, 4.0), (0.0, 4.0)])
rot = 2.268928027592626 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
d = Sequence(abs(x(Object["C" + (t)])), t, 1.0, 11.0)
h = Sequence(y(Object["C" + (t)]), t, 1.0, 11.0)
p1e = Sequence(Sequence[P3D[inclinación, s * 180.0 * ° / 3.141592653589793, {Element[d, t], 0.0, Element[h, t]}], s, 1.0, 5.0], t, 1.0, 11.0)
p2e = Sequence(Sequence[P3D[inclinación, 90.0 * ° + s * 45.0 * ° - rot, {Element[d, t], 0.0, Element[h, t]}], s, 0.0, 7.0], t, 1.0, 11.0)
e = Conic(Element[Element[p1e, 1.0], 1.0], Element[Element[p1e, 1.0], 2.0], Element[Element[p1e, 1.0], 3.0], Element[Element[p1e, 1.0], 4.0], Element[Element[p1e, 1.0], 5.0])
extremos = Sequence(P3D[inclinación, 0°, {0.0, 0.0, Element[h, t]}], t, 1.0, 11.0, 10.0)
polígonos = Sequence(Polygon[Element[extremos, 1.0], Element[extremos, 2.0], Element[Element[p2e, 11.0], t], Element[Element[p2e, 10.0], t], Element[Element[p2e, 9.0], t], Element[Element[p2e, 8.0], t], Element[Element[p2e, 7.0], t], Element[Element[p2e, 6.0], t], Element[Element[p2e, 5.0], t], Element[Element[p2e, 4.0], t], Element[Element[p2e, 3.0], t], Element[Element[p2e, 2.0], t], Element[Element[p2e, 1.0], t]], t, 1.0, 8.0)
polígono1 = Element(polígonos, 1.0)
nada = 1 (slider from 0 to 1, step 1)
velocidad = 5 (slider from 1 to 20, step 0.5)

Tool: P3D
Inclinación, Rotación, Lista de tres coordenadas
Input: α, β, puntoLista
Output: P3D

puntoLista: {0.0, 0.0, 4.0}
p_x = Element(puntoLista, 1.0)
p_y = Element(puntoLista, 2.0)
p_z = Element(puntoLista, 3.0)
P3D: (p_x * sin(β) + p_y * cos(β), -1.0 * p_x * cos(β) * sin(α) + p_y * sin(β) * sin(α) + p_z * cos(α))