muovi questo punto verso A e poi verso E

muovi questo punto verso D

A = (4.5950645454545445, 2.7386899999999987)
c = OrthogonalLine(A, xAxis)
H = Intersect(c, xAxis)
poli1, a_1, h, f, g, D, E = Polygon(A, H, 4.0)
B = Intersect(xAxis, yAxis)
d = Segment(B, A)
a = Line(B, A)
b = OrthogonalLine(A, a)
C = Intersect(b, xAxis)
k = Circle(H, C)
F = Intersect(k, c, 1.0)
u = Vector(F, H)
j = OrthogonalLine(F, yAxis)
G = Intersect(j, yAxis)
r = Line(G, d)
I = Intersect(r, c)
tragitto, f_1, i_2, e_2, i_3 = Polygon(F, I, E, I)
M = Point(tragitto)
G' = If(x(M) ≟ x(A), G, Translate[B, Vector[A, M]])
K'_1 = If(x(M) ≟ x(A), Translate[M, u], A)
n = Segment(F, I)
poli2, p, q, s, t = Polygon(K'_1, B, G', M)
e = Segment(A, C)
i = Segment(H, F)
m = Segment(G, I)
J = Intersect(r, xAxis)
l = Segment(D, C)
b_1 = Segment(G, F)
c_1 = Segment(B, C)
d_1 = Segment(B, G)
e_1 = Segment(F, H)
g_1 = Segment(G', E)
sl = Segment(J, D)
K = Point(sl)
v = Vector(D, H)
K' = Translate(K, v)
poli3, k_1, e_3, a_2, k' = Polygon(K, E, A, K')