Sphere terrestre
Author: Daniel Mentrard

A = (0.30432216743493945, -4.4244862470741815)
O = (-4.990643812388522, -0.5217929443301594)
Zoom = 1.2 (slider from 0.1 to 2, step 0.1)
Movimiento = (-3.725709208322607, -0.33490413463663327)
ya: y(Movimiento)
sintheta: sin(ya)
xa: x(Movimiento)
cosphi: cos(xa)
xy: -(Zoom) * cosphi * sintheta
sinphi: sin(xa)
B_1 = (-5.185747866603397, -3.016529769525046)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v_1 = Vector(B_1, Y)
N = Translate(O, v_1)
w = Vector(O, N)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u_1 = Vector(B_1, X)
K = Translate(O, u_1)
u = Vector(O, K)
radio = 2.2 (slider from 0 to 3, step 0.1)
Altura = 4.6 (slider from 0 to 4.6, step 0.1)
costheta: cos(ya)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w_1 = Vector(B_1, Z)
a = OrthogonalLine(Movimiento, yAxis)
b = OrthogonalLine(Movimiento, xAxis)
c: cos(ya)
G = Translate(O, w_1)
e = Line(O, G)
v = Vector(O, G)
Z1 = Translate(N, u)
A1: (x(A), y(A)) + 4.0 * v
L1 = Sequence((x(A), y(A)) + radio * (cos(i * 5.0°) * u + sin(i * 5.0°) * w), i, 0.0, 144.0)
A2: (x(A), y(A)) - 4.0 * v
i = Segment(A1, A2)
A' = Translate(A, Vector[Altura * w_1])
L2 = Sequence((x(A'), y(A')) + radio * (cos(i * 5.0°) * u + sin(i * 5.0°) * w), i, 0.0, 144.0)
Deformación = 0 (slider from 0 to 72, step 1)
liste2 = Sequence(Segment[Element[L1, i], Element[L2, i + Deformación]], i, 0.0, 144.0)
f = Conic(Element[L1, 1.0], Element[L1, 10.0], Element[L1, 20.0], Element[L1, 30.0], Element[L1, 45.0])
k = Conic(Element[L2, 1.0], Element[L2, 10.0], Element[L2, 20.0], Element[L2, 30.0], Element[L2, 45.0])