Constant rotation speed

Earth = Point(xAxis)
Equant = Point(xAxis)
a = Segment(Earth, Equant)
Center = Midpoint(a)
b = 9 (slider from 0 to 20, step 0.1)
c = Circle(Center, b)
α = 1.1344640137963142 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D = Point(c)
D' = Rotate(D, α, Equant)
β = Angle(D, Equant, D')
d = Ray(Equant, D')
E = Intersect(c, d)
e = Segment(Equant, E)
f = 2.9 (slider from 0 to 10, step 0.1)
g = Circle(E, f)
γ = 1.1868238913561442 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
F = Point(g)
Planet = Rotate(F, γ, E)
δ = Angle(F, E, Planet)
h = Segment(E, Planet)