Bewegen Sie den Punkt M, um eine Zykloide zu erzeugen. 
Verändern Sie den Schieberegler d, um den Abstand des 
“zeichnenden Punktes” vom Mittelpunkt zu verändern.

A = Point(yAxis)
a = OrthogonalLine(A, yAxis)
M = Point(a)
c = Circle(M, 2)
d = 2 (slider from 0 to 4, step 0.1)
e = Circle(M, d)
g = OrthogonalLine(M, xAxis)
B = Intersect(xAxis, g)
B' = Rotate(B, (-(x(M) / 2)), M)
α = Angle(B', M, B)
b = Ray(M, B')
f = Segment(M, B')
h = Circle(M, d)
C = Intersect(h, b)