B = (-4, -19)
A = (-5, -19)
u = Vector(A, B)
c2 = Circle(B, A)
c1 = Circle(A, B)
C1 = Intersect(c1, c2, 1)
c3 = Circle(C1, A)
P2 = Intersect(c2, c3, 2)
c5 = Circle(P2, C1)
l = Segment(A, B)
r0 = OrthogonalLine(A, l)
P1 = Intersect(c3, r0, 2)
c4 = Circle(P1, C1)
P3 = Intersect(c3, c4, 2)
r1 = Line(P3, P2)
r2 = OrthogonalLine(P2, r1)
A2 = Intersect(c5, r2, 2)
m = 0 (slider from 0 to 6, step 1)
A1 = Intersect(c4, r0, 2)
v1 = Vector(A, A1)
r3 = OrthogonalLine(P3, r1)
r4 = OrthogonalLine(A2, r2)
P4 = Intersect(r3, r4)
c6 = Circle(A2, P4)
c7 = Circle(P4, A2)
C2 = Intersect(c6, c7, 2)
c8 = Circle(C2, A2)
P5 = Intersect(c8, r2, 2)
B2: A2 + u
r5 = Line(B2, P5)
r7 = OrthogonalLine(B2, r5)
r8 = OrthogonalLine(P5, r5)
c9 = Circle(B2, P5)
P6 = Intersect(c9, r7, 1)
r6 = Line(P6, r4)
c9b = Circle(P6, B2)
A3 = Intersect(c9b, r6, 1)
v3 = Vector(A, A3)
v2 = Vector(A, A2)
h1 = Hex(A, B)
h2 = Hex(A2, B2)
list1 = Sequence(Sequence[Hex[A + n v1 + k v3, B + n v1 + k v3], n, -m, m], k, -m, m)
list2 = Sequence(Sequence[Hex[A2 + n v1 + k v3, B2 + n v1 + k v3], n, -m, m], k, -m, m)
B1: A1 + u
cua1 = Cua(P1, P3)
list3 = Sequence(Sequence[Cua[P1 + n v1 + k v3, P3 + n v1 + k v3], n, -m, m], k, -m, m)
P7 = Intersect(c1, c4, 2)
cua2 = Cua(P7, P1)
list4 = Sequence(Sequence[Cua[P7 + n v1 + k v3, P1 + n v1 + k v3], n, -m, m], k, -m, m)
cua3 = Cua(A, P7)
list5 = Sequence(Sequence[Cua[A + n v1 + k v3, P7 + n v1 + k v3], n, -m, m], k, -m, m)
cua4 = Cua(P2, B)
list6 = Sequence(Sequence[Cua[P2 + n v1 + k v3, B + n v1 + k v3], n, -m, m], k, -m, m)
cua5 = Cua(P3, P2)
list7 = Sequence(Sequence[Cua[P3 + n v1 + k v3, P2 + n v1 + k v3], n, -m, m], k, -m, m)
cua6 = Cua(B2, A2)
list8 = Sequence(Sequence[Cua[B2 + n v1 + k v3, A2 + n v1 + k v3], n, -m, m], k, -m, m)
list1b = Sequence(Sequence[Hex[A + n v1 + k v3, B + n v1 + k v3], n, -m, m], k, -m, m)
list2b = Sequence(Sequence[Hex[A2 + n v1 + k v3, B2 + n v1 + k v3], n, -m, m], k, -m, m)
list3b = Sequence(Sequence[Cua[P1 + n v1 + k v3, P3 + n v1 + k v3], n, -m, m], k, -m, m)
list8b = Sequence(Sequence[Cua[B2 + n v1 + k v3, A2 + n v1 + k v3], n, -m, m], k, -m, m)

Tool: Hex
Input: G, H
Output: poly1

poly1, q, r, s, t, a_1, b_1, I, K, L, M = Polygon(G, H, 6)

Tool: Cua
Input: M_1, N_1
Output: poly12

poly12, f_3, g_3, o_1, i_3, O_1, P_1 = Polygon(M_1, N_1, 4)