O = Intersect(xAxis, yAxis)
c = Circle(O, 1)
r = 0.3333333333333333 (slider from 0 to 2, step 0.1)
d = 0.1 (slider from 0 to 2, step 0.01)
a = CurveCartesian(((1 + r) * cos((r * t))) - (d * cos(t + (r * t))), ((1 + r) * sin((r * t))) - (d * sin(t + (r * t))), t, 0, (6 * pi))
eq1: x^(2) + (6 * y^(2) / 4) = 1
eq1' = Rotate(eq1, 60°, O)
xAxis' = Rotate(xAxis, 60°, O)
A, B = Intersect(xAxis', a)
f = Segment(O, A)
eq1'' = Dilate(eq1', f, O)
a' = Rotate(a, -30°, O)
eq1''' = Rotate(eq1'', -30°, O)
e = Rotate(eq1''', 120°, O)
e' = Rotate(e, 120°, O)
t = 0.91 (slider from 0 to (4 * pi), step 0.01)
P: (4 / 3, 0)
g = Circle(P, r)
C: (37 / 30, 0)
g' = Rotate(g, t, O)
P' = Rotate(P, t, O)
C' = Rotate(C, t, O)
C'' = Rotate(C', t / r, P')
h = Segment(P', C'')
g'_{1} = Rotate(g, -30°, O)
g'' = Rotate(g', -30°, O)
P'' = Rotate(P', -30°, O)
C''' = Rotate(C'', -30°, O)
P''_{1} = Rotate(P', -30°, O)
C'''_{1} = Rotate(C'', -30°, O)
h' = Segment(P''_{1}, C'''_{1})