A = (-4, 6)
B = (5, 6)
a = Segment(A, B)
C = (-2, -4)
D = (1.72, 2)
E = (3, -4)
poli1, e, c, d = Polygon(C, D, E)
b = Ray(C, E)
f = Circle(C, Segment[A, B])
G = Intersect(f, b)
g = Segment(D, G)
h = Line(E, g)
i = Ray(C, D)
H = Intersect(i, h)
poli2, h_1, g_1, c_1 = Polygon(G, C, H)