A_1 = (-3.64, 5.48)
B_1 = (0.76, 5.5200000000000005)
A = (-1.56, 0.9)
u = Vector(A_1, B_1)
B_2 = Translate(A, u)
a = Segment(A, B_2)
b = OrthogonalLine(B_2, a)
c = Circle(B_2, A)
C_1 = Intersect(c, b, 2.0)
D_1 = Midpoint(C_1, B_2)
d = Segment(A, D_1)
e = Circle(D_1, B_2)
f = Ray(A, D_1)
E_1 = Intersect(e, f, 2.0)
g = Segment(A, E_1)
h = Circle(A, E_1)
i = Ray(A, B_2)
C = Intersect(h, i, 1.0)
k = Circle(A, B_2)
p = Circle(C, Segment[A, B_2])
B = Intersect(k, p, 1.0)
j = Segment(A, B)
l = Segment(B, C)
q = Circle(B, Segment[C, A])
D = Intersect(p, q, 1.0)
m = Segment(C, D)
E = Intersect(k, q, 2.0)
n = Segment(D, E)
r = Segment(E, A)