A = (-2, 3)
B = (7, 3)
poli1, a, b, c, d, C, D = Polygon(A, B, 4.0)
e = Segment(A, D)
f = Segment(B, C)
E = Point(d)
g = Line(E, a)
F_1 = Intersect(b, f)
F = Intersect(g, b)
h = Segment(E, F)
k = CircleArc(A, B, D)
G = Rotate(B, 90.0° * Segment[A, E] / Segment[A, D], A)
α = Angle(B, A, G)
i = Ray(A, G)
T = Intersect(h, i)