trascinare il punto E

A = Point(xAxis)
B = Point(xAxis)
a = Line(A, B)
V = Point(a)
b = OrthogonalLine(V, a)
D = Point(b)
E = Point(a)
c = Line(D, E)
d = OrthogonalLine(E, c)
C = Intersect(b, d)
e = OrthogonalLine(C, b)
f = OrthogonalLine(E, a)
P = Intersect(e, f)
luogo1 = Locus(P, E)
poli1, c_1, e_1, d_1 = Polygon(E, D, C)