Ellipse by Tangent
Author: M. Dabbs, R. Walcott

Drag the generator point G.

Double click picture to open independently

S_1 = Point(a)
S_2 = Point(a)
O = Midpoint(S_1, S_2)
A = Point(a)
c = Circle(O, A)
d = Circle(O, S_2)
G = Point(c)
b = Line(S_1, G)
S'_1 = Dilate(S_1, -1.0, G)
e = Line(S_2, S'_1)
f = OrthogonalLine(G, b)
P = Intersect(e, f)
loc1 = Locus(P, G)