Author: Ángel Corral Cedena

α = 0.8813912722571364 rad (slider from 0 to 6.283185307179586, step 0.008726646259971648)
C = (0.7956367414995656, 0.7441951432329226)
D = (2.1441336525899706, 3.810640173931652)
A = (1.497594037683612, 2.314362779434079)
pic2 = Rotate(pic1, α, A)
B = (6.07878902330581, 2.1665822960269114)
E = (6.725328638212169, 3.829112734357548)
β = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
pic4 = Rotate(pic3, β, B)
F = (1.6269019606648838, -2.211414524910431)
γ = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
pic6 = Rotate(pic5, γ, F)
G = (2.42122205897841, -0.47499384487621077)
H = (5.2105786832887, -1.4170944265969048)
I = (5.0997433207333245, -0.5488840865797946)
δ = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
pic8 = Rotate(pic7, δ, H)

Tool: Misubi
Input: A, B
Output: C, D, E, F, G, H, I, J, a, a_1, b, b_1, c, c_1, d, d_1, e, e_1, f, f_1, g, g_1, h, h_1, i, i_1, j, j_1, j_2, poly1, poly2, poly3, poly4

poly1, a, b, c, C = Polygon(A, B, 3)
D = Point(a)
E = Point(a)
d = Circle(A, D)
e = Circle(A, E)
f = Circle(B, E)
g = Circle(B, D)
F = Intersect(e, c)
G = Intersect(d, c)
H = Intersect(g, b)
I = Intersect(f, b)
h = LineBisector(a)
i = LineBisector(b)
J = Intersect(h, i)
poly2, c_1, h_1, j, f_1 = Polygon(C, H, J, F)
poly3, a_1, g_1, j_1, d_1 = Polygon(A, G, J, D)
poly4, j_2, i_1, b_1, e_1 = Polygon(J, I, B, E)