A = (7.2717231990924525, -3.6877118547929637)
B = (17.73249234259785, -3.73602949517867)
poly1, c, a, b, C = Polygon(A, B, 3)
D = Midpoint(c)
d = Segment(C, D)
E = Point(a)
e = Segment(E, D)
f = OrthogonalLine(E, c)
g = OrthogonalLine(E, d)
F = Intersect(g, d)
G = Intersect(f, c)
h = Segment(F, E)
i = Segment(E, G)
H = (-3.64806352807714, 1.554752127056153)
I = Point(Circle[H, 5.170043966803998])
J: H + 5.17625294158781 * UnitVector[Segment[H, I]] + 9.01136732987231 * UnitOrthogonalVector[Segment[H, I]]
poly2, j, h_1, i_1 = Polygon(H, I, J)
K = (4.952476460578559, -2.9871060692002267)
L = Point(Circle[K, 3.0441072111239915])
M: K - 0.0176392179519678 * UnitVector[Segment[K, L]] + 5.26664867307205 * UnitOrthogonalVector[Segment[K, L]]
poly3, m, k, l = Polygon(K, L, M)
N = (1.2078593306863301, 1.892975609756097)
O = Point(Circle[N, 2.1748306137647484])
P: N - 0.0837299051696201 * UnitVector[Segment[N, O]] + 3.7678457326329 * UnitOrthogonalVector[Segment[N, O]]
poly4, p, n, o = Polygon(N, O, P)
Q = (1.811829835507657, 2.3278343732274522)
R = Point(Circle[Q, 2.1742938173567783])
S: Q + 2.15013499716392 * UnitVector[Segment[Q, R]] + 5.26662280204197 * UnitOrthogonalVector[Segment[Q, R]]
T: Q + 0.024158820192854 * UnitVector[Segment[Q, R]] + 5.29078162223482 * UnitOrthogonalVector[Segment[Q, R]]
poly5, q, r, s, t = Polygon(Q, R, S, T)