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)
E' = Dilate(E, 0.3333333333333333, A)
E'' = Dilate(E, 0.6666666666666666, A)
j = Line(E'', a)
l = Line(E', a)
B'_1 = Rotate(B, 90.0° * Segment[A, E'] / Segment[A, B], A)
β = Angle(B, A, B'_1)
m = Segment(A, B'_1)
B' = Rotate(B, 90.0° * Segment[A, E''] / Segment[A, B], A)
γ = Angle(B, A, B')
n = Segment(A, B')