F = (5.68, 1.5)
b = 1
a = 4
A = (1.18, 2)
B: A + (a + b / 2, ((-b)) / 2)
Regla1c1 = 0.017453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1a = (5.54, -4.66)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - Regla1c1 / 2
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)
r: a + b / 4
α = 0.7853981633974483 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
c = Circle(B, r)
C: B + (r, 0)
C' = Rotate(C, α, B)
C'' = Mirror(C', B)
d = LineBisector(C', C'')
D, E = Intersect(c, d)
Transparencia = If((x(F) > x(B) + a) ∨ (x(F)  <  x(B) - a) ∨ (y(F) > y(B) + a) ∨ (y(F)  <  y(B) - a), 10, 0)
lista1: {Polygon[C', D, C'', E]}
c1: {Polygon[A, A + (a, 0), A + (a, a), A + (0, a)]}
c2: {Polygon[A + (a + b, 0), A + ((2 * a) + b, 0), A + ((2 * a) + b, a), A + (a + b, a)]}
c3: {Polygon[A + (0, (-a) - b), A + (a, (-a) - b), A + (a, (-b)), A + (0, (-b))]}
c4: {Polygon[A + (a + b, (-a) - b), A + ((2 * a) + b, (-a) - b), A + ((2 * a) + b, (-b)), A + (a + b, (-b))]}
c1a: c1
c2a: c2
c3a: c3
c4a: c4