Comprobar

r = 1.2
A = (-0.14, -3)
k = 4.08
b = Segment(A + ((2 * r) + 0.04, 0), A + ((k - 2) * (r, 0)) - (0.04, 0))
Regla1a = (2.54, 3.04)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
Regla1c1 = 0.17453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1c2: Regla1c1 / 2
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - 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)
o = false
s = 5.5
c = Circle(A, r)
d = Circle(A + (k * (r, 0)), r)
B = Point(b)
e = Circle(B, r)
f = Circle(A, r)
g = Circle(B, r)
h = Circle(A + (k * (r, 0)), r)
C: A + (k * (r, 0))
a = Segment(C + (0, (2 * r) + 0.04), C + (0, 10))
D = Point(a)
p = Circle(D, r)
q = Circle(D, r)