D variieren

A = (4.76830759368313, -7.047373885757586)
B = (12.459962267176481, -6.800481266608417)
c = Segment(A, B)
C = (8.842035809644424, -0.9035460169301837)
b = Segment(A, C)
a = Segment(C, B)
D = Point(c)
f = OrthogonalLine(D, c)
G = Intersect(f, b)
g = OrthogonalLine(G, f)
d = Circle(G, D)
F, G_{1} = Intersect(d, g)
h = OrthogonalLine(F, g)
E = Intersect(h, c)
v1, d_1, e, f_1, g_1 = Polygon(D, E, F, G)