Möbiuse leht. Muutujat “p” saab animeerida.

m_{x}(u, v) = ((1 + (v / 2 * cos(u / 2))) * cos(u))
m_{y}(u, v) = ((1 + (v / 2 * cos(u / 2))) * sin(u))
m_{z}(u, v) = (v / 2 * sin(u / 2))
mobius = Surface(m_{x}(u, v), m_{y}(u, v), m_{z}(u, v), u, 0, (2 * π), v, -1, 1)
p = 0 (slider from 0 to (4 * π))
C: (m_{x}(p, 0), m_{y}(p, 0), m_{z}(p, 0))
B: (m_{x}(p, -1), m_{y}(p, -1), m_{z}(p, -1))
D: (m_{x}(p, 1), m_{y}(p, 1), m_{z}(p, 1))
A: (m_{x}(p + 0.01, 0), m_{y}(p + 0.01, 0), m_{z}(p + 0.01, 0))
q = Plane(A, B, D)
g = OrthogonalLine(C, q)
w = Direction(g)
R: C + (w * 20)
a = Sphere(R, 0.195)