Ellipse Construction 12
Author: M. Dabbs, R. Walcott

Drag the generator point G

A = (-2.96, 0.78)
B = (6.6000000000000005, 0.78)
a = Line(A, B)
G = Point(a)
D = Point(a)
b = OrthogonalLine(D, a)
c = OrthogonalLine(G, a)
E = Point(c)
d = Circle(G, E)
G' = Mirror(G, b)
d' = Mirror(d, b)
F = Intersect(d', a, 2)
α = 0.5585053606381855 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
F' = Rotate(F, α, G')
e = Line(G', F')
G_1, H = Intersect(d, e)
loc1 = Locus(H, G)
loc2 = Locus(G_1, G)