t = 5 (slider from 0 to 10, step 0.01)
P: (cos(t), sin(t))
O = Intersect(xAxis, yAxis)
a = Segment(O, P)
b = OrthogonalLine(P, a)
d = Circle(P, t)
Q, D = Intersect(d, b)
e = Segment(P, Q)
E = Intersect(c, xAxis, 2)
F = Point(c)
f = CircleArc(O, F, P)
g = CurveCartesian(cos(t) + t * sin(t), sin(t) - t * cos(t), t, 0, 15)