Transportador

Punto central, Punto de giro

B: A + (4.48, 0.0)
c1 = Circle(A, 6.0)
c2 = Circle(A, 4.48)
c2 = Circle(A, 4.48)
C = Point(c2)
α = Angle(B, A, C)
α = Angle(B, A, C)
d = Segment(A + (4.48; 197.18873 * ° + α), A + (4.48; 342.81127 * ° + α))
d = Segment(A + (4.48; 197.18873 * ° + α), A + (4.48; 342.81127 * ° + α))
texto2 = 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 * 0.08, 0.02) + (5.17; α))
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)
lista4 = Sequence(Segment[A + (6.0; 3.141592653589793 / s + α), A + (4.48; 3.141592653589793 / s + α)], s, 3.0, 6.0, 1.0)
lista5 = Sequence(Segment[A + (6.0; s + α), A + (5.4; s + α)], s, 1.0, 6.0, 1.0)
lista7 = Sequence(Text[s, A - (0.08, 0.04) + (5.17; α + s)], s, 1.0, 6.0)
lista8 = Sequence(Text["π/" + (s), A + (4.66; α + 3.141592653589793 / s + 0.05) - (0.17, 0.08)], s, 2.0, 6.0)
lista6 = Sequence(Text[Element[KeepIf[x ≠ floor(x), Sequence[t, t, 0.0, 6.28319, 0.1]], s], A - (0.17, 0.08) + (5.17; α + 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]]])
lista9: {Text["3π/2", A - (0.17, 0.08) + (4.66; 3.0 * 3.141592653589793 / 2.0 + α + 0.05)], Text["2π", A - (0.17, 0.08) + (4.745; 2.0 * 3.141592653589793 + α - 0.05)]}
e = Segment(A, Midpoint[d])
lista0: {Segment[A + (6.0; α), A + (6.0; 3.141592653589793 + α)], Segment[A + (6.0; 3.0 * 3.141592653589793 / 2.0 + α), A + (4.48; 3.0 * 3.141592653589793 / 2.0 + α)], Segment[A + (6.0; 3.141592653589793 / 2.0 + α), A + (4.48; 3.141592653589793 / 2.0 + α)]}