A = (-8, -11)
P = Point(Segment[A, (x(A) + 5, y(A))])
c = Circle(A, P)
B = Point(c)
f = Segment(A, B)
C = Point(f)
d = Circle(C, B)
D = PointIn(d)
E = PointIn(d)
g = Line(D, E)
F = Intersect(d, g, 1)
G = Intersect(c, g, 1)
H = Intersect(d, g, 2)
I = Intersect(c, g, 2)
h = Segment(G, F)
i = Segment(F, D)
k = Segment(E, H)
l = Segment(H, I)
veelhoek1, b, d_1, e = Polygon(D, E, B)
O = (-13.71988735524168, -15.044561403508954)