A = (0.32786885245901787, 9.508196721311476)
B = (-2.032786885245901, 2.737704918032787)
C = (8.459016393442628, 2.7049180327868854)
t1, c, a, b = Polygon(A, B, C)
d = Incircle(A, B, C)
I = Center(d)
E_1 = Intersect(d, b)
D_1, D = Intersect(d, a)
E_2 = Intersect(Circle[C, Segment[A, E_1]], b)
D_2 = Intersect(Circle[C, Segment[B, D_1]], a)
f = Segment(A, E_1)
g = Segment(C, E_2)
h = Segment(B, D_1)
i = Segment(C, D_2)
P = Intersect(Segment[A, D_2], Segment[B, E_2])
j = Segment(A, D_2)
k = Segment(B, E_2)
Q = Intersect(d, j, 1)
l = Segment(A, Q)
m = Segment(D_2, P)
H = Intersect(OrthogonalLine[A, a], a)
n = Segment(A, H)
p = Segment(D_1, Q)