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

Drag the generator point G.  Move point P.

Double click picture to open independently

A = (-3.68, 0.76)
B = (7.5200000000000005, 0.76)
a = Line(A, B)
C = Point(a)
D = Point(a)
c = Circle(C, D)
P = Point(a)
d = Circle(C, P)
F = Intersect(c, a, 2.0)
b = OrthogonalLine(D, a)
e = OrthogonalLine(F, a)
G = Point(d)
f = Tangent(G, d)
H = Intersect(e, f)
I = Intersect(b, f)
g = Segment(F, I)
h = Segment(D, H)
i = Segment(C, G)
j = Line(D, H)
k = Line(F, I)
E = Intersect(j, k)
loc1 = Locus(E, G)
l = Segment(F, E)
m = Segment(H, E)