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

Drag the generator point G.  Move points C, S1 and S2

Double click picture to open independently

A = (-3.246, 1.254)
B = (8.194, 1.254)
a = Line(A, B)
S_1 = Point(a)
S_2 = Point(a)
G = Point(a)
b = OrthogonalLine(G, a)
C = Point(b)
c = Circle(G, C)
G_1 = Intersect(c, a, 2.0)
d = Circle(S_1, G_1)
H = Intersect(c, a, 1.0)
e = Circle(S_2, H)
I, J = Intersect(d, e)
loc1 = Locus(I, G)
loc2 = Locus(J, G)