A = (0.2492016264608072, 2.084911231772405)
B = (1.4131211684188554, 0.4324328697331863)
f = Segment(A, B)
C = (3.8433094281041984, -1.0525861360160944)
D = Point(Circle[C, Distance[A, B]])
g = Segment(C, D)
h = LineBisector(A, C)
i = LineBisector(B, D)
j = LineBisector(A, D)
k = LineBisector(B, C)
E = Intersect(h, i)
l = Segment(E, A)
m = Segment(E, B)
n = Segment(E, C)
p = Segment(E, D)
F = Intersect(j, k)
q = Segment(A, F)
r = Segment(F, D)
s = Segment(B, F)
t = Segment(F, C)
e = Circle(B, E, D)
b = Line(F, C)
f_1 = Line(E, D)
g_1 = Line(E, B)
a = Line(E, D)
c = Line(F, C)
d = Line(B, E)
h_1 = Line(B, F)
G = Intersect(h_1, l)
i_1 = Segment(G, B)
H = Intersect(d, q)
j_1 = Segment(B, H)
I = Intersect(a, c)
k_1 = Segment(D, I)
l_1 = Segment(I, C)
J = Intersect(n, r)
m_1 = Segment(B, I)
n_1 = Segment(A, J)
p_1 = Segment(G, C)
q_1 = Segment(H, D)