A = (-2.7333333333333334, -1.6)
B = Point(Circle[A, 10])
a = Segment(A, B)
M = Point(a)
A' = Rotate(A, 45°, A)
B' = Rotate(B, 45°, A)
b = Segment(A', B')
A'_1 = Rotate(A, 315°, M)
B'_1 = Rotate(B, 315°, M)
c = Segment(A'_1, B'_1)
E = Intersect(b, c)
P, m, a_1, e = Polygon(A, E, M)
A'_2 = Rotate(A, 315°, B)
B'_2 = Rotate(B, 315°, B)
d = Segment(A'_2, B'_2)
A'_3 = Rotate(A, 45°, M)
B'_3 = Rotate(B, 45°, M)
f = Segment(A'_3, B'_3)
F = Intersect(d, f)
Q, b_1, m_1, f_1 = Polygon(M, F, B)
g = Segment(E, F)
I = Midpoint(E, F)