Amarillo

Azul

Rojo

Verde

Violeta

No pintes

Pinta

Borrador

Regla1c1 = 0.017453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1a = (5.74, -4.66)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
A = (2.92, -1.54)
B = (3.92, -0.18)
f = Line(A, B)
b = 6 (slider from 1 to 6, step 1)
C = (-3.7600000000000002, 4.88)
P = (3.12, 4.74)
Pam: P
Paz: P
Pro: P
Pve: P
Pvi: P
P' = Mirror(P, f)
Pam2: P'
Paz2: P'
Pro2: P'
Pve2: P'
Pvi2: P'
Pgr2: P'
Pgr: P
a = 1 (slider from 0 to 1, step 1)
Pbo: P
Pbo2: P'
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - Regla1c1 / 2
c = Segment(P, P')
D = Intersect(c, f)
d = Segment(P, D)
e = Segment(P', D)
B' = Mirror(B, d)
α = Angle(B', D, P)
x1 = -1.5 (slider from -1.5 to -0.5, step 0.1)
y1 = 5.08 (slider from 4.5 to 5.5, step 0.1)
E: (x1, y1)
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)