Representación de la circunferencia mayor 
del planeta. En la Tierra correspondería a la linea
del Ecuador

r = 5 (slider from 1 to 10, step 0.1)
A = Intersect(yAxis, zAxis)
a = Sphere(A, r)
c = Circle(A, r, xOyPlane)
B, J = Intersect(xAxis, c)
B' = Rotate(B, 15°, A, xOyPlane)
α = Angle(B, A, B', xOyPlane)
B'' = Rotate(B', 15°, A, xOyPlane)
β = Angle(B', A, B'', xOyPlane)
B''' = Rotate(B'', 15°, A, xOyPlane)
γ = Angle(B'', A, B''', xOyPlane)
C = Rotate(B''', 15°, A, xOyPlane)
δ = Angle(B''', A, C, xOyPlane)
C' = Rotate(C, 15°, A, xOyPlane)
ε = Angle(C, A, C', xOyPlane)
C'' = Rotate(C', 15°, A, xOyPlane)
ζ = Angle(C', A, C'', xOyPlane)
C''' = Rotate(C'', 15°, A, xOyPlane)
η = Angle(C'', A, C''', xOyPlane)
D = Rotate(C''', 15°, A, xOyPlane)
θ = Angle(C''', A, D, xOyPlane)
D' = Rotate(D, 15°, A, xOyPlane)
ι = Angle(D, A, D', xOyPlane)
D'' = Rotate(D', 15°, A, xOyPlane)
κ = Angle(D', A, D'', xOyPlane)
D''' = Rotate(D'', 15°, A, xOyPlane)
λ = Angle(D'', A, D''', xOyPlane)
E = Rotate(D''', 15°, A, xOyPlane)
μ = Angle(D''', A, E, xOyPlane)
E' = Rotate(E, 15°, A, xOyPlane)
ν = Angle(E, A, E', xOyPlane)
E'' = Rotate(E', 15°, A, xOyPlane)
ξ = Angle(E', A, E'', xOyPlane)
E''' = Rotate(E'', 15°, A, xOyPlane)
ο = Angle(E'', A, E''', xOyPlane)
F = Rotate(E''', 15°, A, xOyPlane)
ρ = Angle(E''', A, F, xOyPlane)
F' = Rotate(F, 15°, A, xOyPlane)
σ = Angle(F, A, F', xOyPlane)
F'' = Rotate(F', 15°, A, xOyPlane)
τ = Angle(F', A, F'', xOyPlane)
F''' = Rotate(F'', 15°, A, xOyPlane)
υ = Angle(F'', A, F''', xOyPlane)
G = Rotate(F''', 15°, A, xOyPlane)
ϕ = Angle(F''', A, G, xOyPlane)
G' = Rotate(G, 15°, A, xOyPlane)
χ = Angle(G, A, G', xOyPlane)
G'' = Rotate(G', 15°, A, xOyPlane)
ψ = Angle(G', A, G'', xOyPlane)
G''' = Rotate(G'', 15°, A, xOyPlane)
ω = Angle(G'', A, G''', xOyPlane)
H, I = Intersect(zAxis, a)
d = Circle(A, r, xAxis)
e = Circle(G''', I, D''')
f = Circle(G'', I, D'')
g = Circle(G', I, D')
h = Circle(G, I, D)
k = Circle(F''', I, C''')
q = Circle(B', I, E')
s = Circle(F', I, C')
t = Circle(E'', I, B'')
c_1 = Circle(E''', I, B''')
d_1 = Circle(C, I, F)
e_1 = CircleSector(A, B, B', xOyPlane)
K = Intersect(f, e, 2)
L = Intersect(f, e, 2)
p = CircumcircleSector(L, B, I)
f_1 = CircumcircleSector(L, B', I)