mostra ellisse

A = Point(a)
B = Point(a)
c = Circle(A, B)
C = Point(a)
d = Circle(A, C)
E = Intersect(d, a, 2)
α = 1.2217304763960306 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
G = Rotate(B, α, A)
γ = Angle(B, A, G)
b = Line(E, G)
e = OrthogonalLine(G, b)
f = Ellipse(C, E, Radius[c])
g = false
i = OrthogonalLine(G, a)
D = Intersect(a, i)
j = Segment(G, D)
poli1, g_1, d_1, a_1 = Polygon(D, A, G)