A = (3.486864863406948, -1.0012425264450797)
B_1 = (5.561959343875847, 4.594101519104983)
C_1 = (15.418658126103116, -0.5565794234874589)
polígono1, c, a, b = Polygon(A, B_1, C_1)
D = Midpoint(b)
e = OrthogonalLine(B_1, b)
E = Midpoint(c)
d = Line(C_1, E)
f = OrthogonalLine(C_1, c)
g = OrthogonalLine(A, a)
O = Intersect(g, f)
F = Midpoint(b)
G = Midpoint(a)
h = OrthogonalLine(F, b)
i = OrthogonalLine(G, a)
C = Intersect(h, i)
j = AngularBisector(B_1, A, C_1)
k = AngularBisector(C_1, B_1, A)
I = Intersect(j, k)
l = OrthogonalLine(C_1, c)
m = OrthogonalLine(B_1, b)
H = Midpoint(c)
J = Midpoint(a)
n = Line(A, J)
p = Line(C_1, H)
B = Intersect(n, p)
B_2, L = Intersect(p, polígono1)
q = Line(C, B)