Transportador

Regla

α = 0 rad (slider from 0 to 1.2915436464758039, step 0.017453292519943295)
A = (9.766666666666667, -9.8)
pic4 = Rotate(pic1, α, A)
B = (12.266666666666667, -1.9666666666666668)
C = Rotate(B, α, A)
D = (19.833333333333336, -1.5333333333333328)
E = Rotate(D, α, A)
e = Circle(A, B)
f = Circle(A, D)
F = (21.1, -5.1)
g = Circle(A, F)
G = (13.2, -5.633333333333333)
h = Circle(A, G)
Regla1a = (10.8, -7.54)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
Regla1c1 = 0.017453292519943295 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)
a = Segment((20.25, -3.26), (22, -3.26))
J = Point(a)
Trans1a = (10.32, -5.68)
Trans1b = Circle(Trans1a, 4)
Trans1c = Point(Trans1b)
Trans1d = Angle(Trans1a + (1, 0), Trans1a, Trans1c)
Trans1e = Rotate(Trans1a + ((-5.72), (-0.73)), Trans1d + 5°, Trans1a)
Trans1f = Rotate(Trans1a + (5.68, (-0.73)), Trans1d + 5°, Trans1a)
Trans1g = Rotate(Trans1a - (0.19, 0.19), Trans1d + 5°, Trans1a)
Trans1h = Rotate(Trans1a - ((-0.19), 0.19), Trans1d + 5°, Trans1a)
Trans1i = Rotate(Trans1a + (4, 0) - (0.21, 0.19), Trans1d, Trans1a)
Trans1j = Rotate(Trans1a + (4, 0) - ((-0.21), 0.19), Trans1d, Trans1a)
b = false
c = false