Regla1c1 = 0.017453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1a = (5, -1.24)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - Regla1c1 / 2
A = (-3, 3)
B = (1, 6)
C = (5, 6)
D = (5, 3)
polígono1, a, b, c, d = Polygon(A, B, C, D)
E = (-3, 2)
F = (-3, -3)
G = (9, -3)
polígono2, g, e, f = Polygon(E, F, G)
H = (7, 4)
I = (7, 1)
J = (4, 1)
K = (4, 0)
L = (10, 0)
M = (10, -2)
N = (13, -2)
O = (13, 4)
polígono3, h, i, j, k, l, m, n, o = Polygon(H, I, J, K, L, M, N, O)
Regla1c2: Regla1c1 / 2
Regla1e = Rotate(Regla1a + ((-7.68), (-0.5)), (Regla1c2 * Div[Regla1d + Regla1c2, Regla1c2]), Regla1a)
Regla1f = Rotate(Regla1a + (7.68, (-0.5)), (Regla1c2 * Div[Regla1d + Regla1c2, Regla1c2]), Regla1a)
Regla1g = Rotate(Regla1a - (0.19, 0.19), Regla1d, Regla1a)
Regla1h = Rotate(Regla1a - ((-0.19), 0.19), Regla1d, Regla1a)
Regla1i: Regla1c - (0.21, 0.19)
Regla1j: Regla1c - ((-0.21), 0.19)