A = (2.22, -0.5399999999999989)
B: A + (4.48, 0.0)
c1 = Circle(A, 6.0)
c2 = Circle(A, 4.48)
C = Point(c2)
a = Angle(B, A, C)
b = Segment(A + (4.48; 197.18873 * ° + a), A + (4.48; 342.81127 * ° + a))
c = Segment(A, Midpoint[b])
lista1 = Sequence(Segment[A + (6.0; s + a), A + (5.88; s + a)], s, 0.0, 6.28319, 0.01)
lista2 = Sequence(Segment[A + (6.0; s + a), A + (5.64; s + a)], s, 0.0, 6.28319, 0.05)
lista3 = Sequence(Segment[A + (6.0; s + a), A + (5.4; s + a)], s, 0.0, 6.28319, 0.1)
lista4 = Sequence(Segment[A + (6.0; s + a), A + (5.4; s + a)], s, 1.0, 6.0, 1.0)
lista5 = Sequence(Text[Element[KeepIf[x ≠ floor(x), Sequence[t, t, 0.0, 6.28319, 0.1]], s], A - (0.17, 0.08) + (5.17; a + Element[KeepIf[x ≠ floor(x), Sequence[t, t, 0.0, 6.28319, 0.1]], s])], s, 1.0, Length[KeepIf[x ≠ floor(x), Sequence[t, t, 0.0, 6.28319, 0.1]]])
lista6 = Sequence(Text[s, A - (0.08, 0.04) + (5.17; a + s)], s, 1.0, 6.0)
texto1 = Text("0", A + (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.08, 0.02) + (5.17; a))
lista8 = Sequence(Text["π/" + (s), A + (4.66; a + 3.141592653589793 / s + 0.05) - (0.17, 0.08)], s, 2.0, 6.0)
lista9: {Text["3π/2", A - (0.17, 0.08) + (4.66; 3.0 * 3.141592653589793 / 2.0 + a + 0.05)], Text["2π", A - (0.17, 0.08) + (4.745; 2.0 * 3.141592653589793 + a - 0.05)]}
lista0: {Segment[A + (6.0; a), A + (6.0; 3.141592653589793 + a)], Segment[A + (6.0; 3.0 * 3.141592653589793 / 2.0 + a), A + (4.48; 3.0 * 3.141592653589793 / 2.0 + a)]}
lista7 = Sequence(Segment[A + (6.0; 3.141592653589793 / s + a), A + (4.48; 3.141592653589793 / s + a)], s, 2.0, 6.0, 1.0)