Q_{1}: (0, 0)
Q_{2} = Point(Circle[Q_{1}, 47])
Q_{3}: (47, 64)
Q_{4}: (0, 64)
Pos_1, q_{1}, q_{2}, q_{3}, q_{4} = Polygon(Q_{1}, Q_{2}, Q_{3}, Q_{4})
Q_{3'}: Q_{3} + (0, 81)
Q_{3'''}: Q_{3'} + (-109, 0)
u = Vector(Q_{3}, Q_{3'''})
A_{3} = Translate(Q_{1}, u)
B_{3} = Translate(Q_{2}, u)
C = Translate(Q_{3}, u)
D = Translate(Q_{4}, u)
q1', a, b, c, d = Polygon(A_{3}, B_{3}, C, D)
A' = Rotate(A_{3}, 120°, Q_{3'''})
B' = Rotate(B_{3}, 120°, Q_{3'''})
C' = Rotate(C, 120°, Q_{3'''})
D' = Rotate(D, 120°, Q_{3'''})
Pos_2, a', b', c', d' = Polygon(A', B', C', D')
A_1 = Intersect(q_{3}, q_{4})
B_1 = Intersect(q_{2}, q_{3})
A_2 = Intersect(c', d')
B_2 = Intersect(b', c')
a_1_2 = LineBisector(A_1, A_2)
b_1_2 = LineBisector(B_1, B_2)
P_1_2 = Intersect(a_1_2, b_1_2)
A_0 = Point(a_1_2)
B_0 = Point(b_1_2)
e = CircleArc(B_0, B_1, B_2)
f = CircleArc(A_0, A_1, A_2)
g = Segment(A_0, A_1)
h = Segment(A_1, B_1)
i = Segment(B_1, B_0)
θ_2 = 0 rad (slider from 0° to Angle[A_1, A_0, A_2], step 0.017453292519943295)
E = Rotate(A_0, θ_2, A_0)
A = Rotate(A_1, θ_2, A_0)
g' = Segment(E, A)
LocusB_3 = Circle(A, Distance[A_1, B_1])
p = Circle(B_0, Distance[B_0, B_1])
B = Intersect(e, LocusB_3, 2)
j = Segment(A, B)
l = Segment(B, B_0)
k = Segment(B_2, B_0)