1

1

2

2

3

3

4

4

5

5

6

6

7

7

8

8

E = (-24, 28)
P = (-16, 28)
T = (-6, 28)
U = Point(Circle[T, 5.852349955359813])
V: T + (0.729927007299271 * Vector[T, U]) + (0.992700729927008 * OrthogonalVector[Segment[T, U]])
W: T + (-0.233576642335767 * Vector[T, U]) + (0.642335766423358 * OrthogonalVector[Segment[T, U]])
q5, t, u, v, w = Polygon(T, U, V, W)
Z = (6, 22)
D_1 = (-24, 20)
H_1 = (-16.74069562454401, 13.95642966914447)
I_1 = Point(Circle[H_1, 6])
J_1: H_1 + (0.666666666666667 * Vector[H_1, I_1]) + (1 * OrthogonalVector[Segment[H_1, I_1]])
K_1: H_1 + (0 * Vector[H_1, I_1]) + (1 * OrthogonalVector[Segment[H_1, I_1]])
q8, h_1, i_1, j_1, k_1 = Polygon(H_1, I_1, J_1, K_1)
L_1 = (-6, 20)
M_1 = Point(Circle[L_1, 6.324555320336759])
N_1: L_1 + (0.625000000000001 * Vector[L_1, M_1]) + (0.875000000000001 * OrthogonalVector[Segment[L_1, M_1]])
O_1: L_1 + (-0.200000000000000 * Vector[L_1, M_1]) + (0.600000000000001 * OrthogonalVector[Segment[L_1, M_1]])
q9, l_1, m_1, j, o_1 = Polygon(L_1, M_1, N_1, O_1)
U_1 = Point(Circle[E, 6.324555320336759])
V_1: E + (0.700000000000001 * Vector[E, U_1]) + (-0.900000000000001 * OrthogonalVector[Segment[E, U_1]])
W_1: E + (-0.200000000000000 * Vector[E, U_1]) + (-0.600000000000001 * OrthogonalVector[Segment[E, U_1]])
q11, e_2, u_1, v_1, w_1 = Polygon(E, U_1, V_1, W_1)
Z_1 = Point(Circle[P, 6.324555320336759])
A_2: P + (0.650000000000000 * Vector[P, Z_1]) + (-1.05000000000000 * OrthogonalVector[Segment[P, Z_1]])
B_2: P + (-0.200000000000000 * Vector[P, Z_1]) + (-0.600000000000001 * OrthogonalVector[Segment[P, Z_1]])
q12, p_2, l, a_2, b_2 = Polygon(P, Z_1, A_2, B_2)
I_2 = Point(Circle[Z, 6])
J_2: Z + (0.666666666666667 * Vector[Z, I_2]) + (-0.916666666666668 * OrthogonalVector[Segment[Z, I_2]])
K_2: Z + (0 * Vector[Z, I_2]) + (-1 * OrthogonalVector[Segment[Z, I_2]])
q14, z_2, j_2, k_2, l_2 = Polygon(Z, I_2, J_2, K_2)
M_2 = Point(Circle[D_1, 6.324555320336759])
N_2: D_1 + (0.725000000000001 * Vector[D_1, M_2]) + (-0.825000000000001 * OrthogonalVector[Segment[D_1, M_2]])
O_2: D_1 + (-0.200000000000000 * Vector[D_1, M_2]) + (-0.600000000000001 * OrthogonalVector[Segment[D_1, M_2]])
q15, n_2, q_2, r_2, o_2 = Polygon(D_1, M_2, N_2, O_2)
P_2 = Point(Circle[H_1, 6])
Q_2: H_1 + (0.666666666666667 * Vector[H_1, P_2]) + (-1 * OrthogonalVector[Segment[H_1, P_2]])
R_2: H_1 + (0 * Vector[H_1, P_2]) + (-1 * OrthogonalVector[Segment[H_1, P_2]])
q16, s_2, t_2, f_3, g_3 = Polygon(H_1, P_2, Q_2, R_2)
F_2 = PointIn(q11)
f1 = 0 (slider from 0 to 1, step 1)
A = PointIn(q12)
f2 = 0 (slider from 0 to 1, step 1)
f3 = 0 (slider from 0 to 1, step 1)
f4 = 1 (slider from 0 to 1, step 1)
f5 = 0 (slider from 0 to 1, step 1)
f6 = 0 (slider from 0 to 1, step 1)
f7 = 0 (slider from 0 to 1, step 1)
f8 = 0 (slider from 0 to 1, step 1)
D = PointIn(q5)
F = PointIn(q14)
H = PointIn(q15)
J = PointIn(q8)
K = PointIn(q16)
G_2 = PointIn(q9)
L = Point(Circle[E, 6.324555320336759])
M: E + (0.700000000000001 * Vector[E, L]) + (0.900000000000001 * OrthogonalVector[Segment[E, L]])
N: E + (-0.200000000000000 * Vector[E, L]) + (0.600000000000001 * OrthogonalVector[Segment[E, L]])
q1, e, l_3, m, n = Polygon(E, L, M, N)
O = Point(Circle[P, 6.324555320336759])
Q: P + (0.650000000000000 * Vector[P, O]) + (1.05000000000000 * OrthogonalVector[Segment[P, O]])
R: P + (-0.200000000000000 * Vector[P, O]) + (0.600000000000001 * OrthogonalVector[Segment[P, O]])
q2, p, o, q, r = Polygon(P, O, Q, R)
C = Point(Circle[T, 5.852349955359813])
G: T + (0.729927007299271 * Vector[T, C]) + (-0.992700729927008 * OrthogonalVector[Segment[T, C]])
I: T + (-0.233576642335767 * Vector[T, C]) + (-0.642335766423358 * OrthogonalVector[Segment[T, C]])
q3, t_1, c, g, i = Polygon(T, C, G, I)
C_1 = Point(Circle[J_2, 5.852349955359815])
E_1: J_2 + (0.649635036496350 * Vector[J_2, C_1]) + (-0.963503649635037 * OrthogonalVector[Segment[J_2, C_1]])
F_1: J_2 + (-0.313868613138687 * Vector[J_2, C_1]) + (-0.613138686131386 * OrthogonalVector[Segment[J_2, C_1]])
q4, h, c_1, e_1, f_1 = Polygon(J_2, C_1, E_1, F_1)
T_1 = Point(Circle[D_1, 6.324555320336759])
C_2: D_1 + (0.725000000000001 * Vector[D_1, T_1]) + (0.825000000000001 * OrthogonalVector[Segment[D_1, T_1]])
D_2: D_1 + (-0.200000000000000 * Vector[D_1, T_1]) + (0.600000000000001 * OrthogonalVector[Segment[D_1, T_1]])
q6, d_1, k, c_2, d_2 = Polygon(D_1, T_1, C_2, D_2)
E_2 = Point(Circle[L_1, 6.324555320336759])
H_2: L_1 + (0.625000000000001 * Vector[L_1, E_2]) + (-0.875000000000001 * OrthogonalVector[Segment[L_1, E_2]])
S_2: L_1 + (-0.200000000000000 * Vector[L_1, E_2]) + (-0.600000000000001 * OrthogonalVector[Segment[L_1, E_2]])
q7, a, b, h_2, d = Polygon(L_1, E_2, H_2, S_2)
B = (2, 20)
S = Point(Circle[B, 6.020797289396148])
A_1: B + (0.937931034482760 * Vector[B, S]) + (-0.744827586206897 * OrthogonalVector[Segment[B, S]])
B_1: B + (-0.0551724137931035 * Vector[B, S]) + (-0.662068965517242 * OrthogonalVector[Segment[B, S]])
q13, b_1, s, a_1, f = Polygon(B, S, A_1, B_1)
R_1 = Point(Circle[B, 6.020797289396148])
S_1: B + (0.937931034482760 * Vector[B, R_1]) + (0.744827586206897 * OrthogonalVector[Segment[B, R_1]])
L_2: B + (-0.0551724137931035 * Vector[B, R_1]) + (0.662068965517242 * OrthogonalVector[Segment[B, R_1]])
q10, b_3, r_1, s_1, n_1 = Polygon(B, R_1, S_1, L_2)
G_1 = PointIn(q13)
P_1 = PointIn(q10)
Q_1 = PointIn(q7)
T_2 = PointIn(q6)
U_2 = PointIn(q3)
V_2 = PointIn(q1)
W_2 = PointIn(q4)
Z_2 = PointIn(q2)