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

Drag the generator point G

Double click to open independently

A = (-2.8118811881188117, 1.025744990892532)
B = (-4.871287128712871, 8.284863387978147)
a = Line(A, B)
C = (-0.8514851485148515, 5.286531876138434)
D = (-0.7920792079207921, 3.2744936247723135)
c = Circle(C, D)
b = Segment(C, D)
H = Point(c)
f = OrthogonalLine(H, a)
I = Intersect(a, f)
g = Circle(H, I)
J = Intersect(g, f, 2)
G = Point(c)
h = OrthogonalLine(G, a)
L = Intersect(a, h)
d = Circle(G, L)
E = Intersect(d, h, 2)
loc1 = Locus(E, G)