p = 3.141592653589793
A = (2.08, -1.96)
c1 = Circle(A, 6.0)
B: A + (4.48, 0.0)
c2 = Circle(A, B)
C = Point(c2)
α = Angle(B, A, C)
g = 0.08 (slider from -5 to 5, step 0.1)
d = 0.17 (slider from -5 to 5, step 0.1)
a = -0.17 (slider from -5 to 5, step 0.1)
b = Segment(A + (6.0; 0.0 * ° + α), A + (6.0; 180.0 * ° + α))
f = Segment(A + (4.48; 197.18873 * ° + α), A + (4.48; 342.81127 * ° + α))
h = Segment(Midpoint[b], Midpoint[f])
lista1 = Sequence(Segment[A + (6.0; s + α), A + (5.88; s + α)], s, 0.0, 6.28319, 0.01)
lista2 = Sequence(Segment[A + (6.0; s + α), A + (5.64; s + α)], s, 0.0, 6.28319, 0.05)
lista3 = Sequence(Segment[A + (6.0; s + α), A + (5.4; s + α)], s, 0.0, 6.28319, 0.1)
lista5 = Sequence(Segment[A + (6.0; s + α), A + (5.4; s + α)], s, 1.0, 6.0, 1.0)
lista4 = Sequence(Segment[A + (6.0; 3.141592653589793 / s + α), A + (4.48; 3.141592653589793 / s + α)], s, 3.0, 6.0, 1.0)
c = Segment(A + (6.0; 270.0 * ° + α), A + (4.48; 270.0 * ° + α))
e = Segment(A + (6.0; 90.0 * ° + α), A + (4.48; 90.0 * ° + α))
i = Segment(A + (4.48; 0.0 * ° + α), A + (4.48; 180.0 * ° + α))
P4: A + (5.0 - a - 3.0 * d; 3.141592653589793 / 3.0 + α + 0.05) - (d, g)
P5: A + (5.0 - a - 3.0 * d; 3.141592653589793 / 2.0 + α + 0.05) - (d, g)
P3: A + (5.0 - a - 3.0 * d; 3.141592653589793 / 4.0 + α + 0.05) - (d, g)
P2: A + (5.0 - a - 3.0 * d; 3.141592653589793 / 5.0 + α + 0.05) - (d, g)
P1: A + (5.0 - a - 3.0 * d; 3.141592653589793 / 6.0 + α + 0.05) - (d, g)
P7: A + (5.0 - a - 3.0 * d; 3.0 * 3.141592653589793 / 2.0 + α + 0.05) - (d, g)
P6: A + (5.0 - a - 3.0 * d; 3.141592653589793 + α + 0.05) - (d, g)
P8: A + (5.0 - a - 2.5 * d; 2.0 * 3.141592653589793 + α - 0.05) - (d, g)
D = (2.08, -1.96)
E = (8.96, -0.02)
polígono1, j, k, l, F = Polygon(D, E, 3.0)
texto6 = Text("π/6", P1)
texto5 = Text("π/5", P2)
texto4 = Text("π/4", P3)
texto3 = Text("π/3", P4)
texto2 = Text("π/2", P5)
texto7 = Text("π", P6)
texto1 = Text("2π", P8)
texto8 = Text("3π/2", P7)
lista6 = KeepIf(x ≠ floor(x), Sequence[s, s, 0.0, 2.0 * p, 0.1])
lista7 = Sequence(Text[Element[lista6, s], A - (0.17, 0.08) + (5.17; α + Element[lista6, s])], s, 1.0, Length[lista6])
lista8 = Sequence(s, s, 1.0, 2.0 * p, 1.0)
lista9 = Sequence(Text[Element[lista8, s], A - (0.08, 0.04) + (5.17; α + Element[lista8, s])], s, 1.0, Length[lista8])