\pi

0

-\pi

θ = 0 (slider from (-5.2 * π) to (5.2 * π), step π / 20)
O = Intersect(xAxis, yAxis)
c = Circle(O, 1)
t = If(θ ≥ 0, θ, 0)
K: 4
dt: π / K
u: ((-sin(t)), cos(t))
A: (cos(t), sin(t))
N: 20
A_{1} = If(t > dt, (cos(dt), sin(dt)), (((dt - t) * x(u)) + x(A), y(A) + (y(u) * (dt - t))))
A_{2} = If(t > (dt * 2), (cos((dt * 2)), sin((dt * 2))), ((((dt * 2) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 2) - t))))
A_{3} = If(t > (dt * 3), (cos((dt * 3)), sin((dt * 3))), ((((dt * 3) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 3) - t))))
A_{4} = If(t > (dt * 4), (cos((dt * 4)), sin((dt * 4))), ((((dt * 4) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 4) - t))))
A_{5} = If(t > (dt * 5), (cos((dt * 5)), sin((dt * 5))), ((((dt * 5) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 5) - t))))
A_{6} = If(t > (dt * 6), (cos((dt * 6)), sin((dt * 6))), ((((dt * 6) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 6) - t))))
A_{7} = If(t > (dt * 7), (cos((dt * 7)), sin((dt * 7))), ((((dt * 7) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 7) - t))))
A_{8} = If(t > (dt * 8), (cos((dt * 8)), sin((dt * 8))), ((((dt * 8) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 8) - t))))
A_{9} = If(t > (dt * 9), (cos((dt * 9)), sin((dt * 9))), ((((dt * 9) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 9) - t))))
A_{10} = If(t > (dt * 10), (cos((dt * 10)), sin((dt * 10))), ((((dt * 10) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 10) - t))))
A_{11} = If(t > (dt * 11), (cos((dt * 11)), sin((dt * 11))), ((((dt * 11) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 11) - t))))
A_{12} = If(t > (dt * 12), (cos((dt * 12)), sin((dt * 12))), ((((dt * 12) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 12) - t))))
A_{13} = If(t > (dt * 13), (cos((dt * 13)), sin((dt * 13))), ((((dt * 13) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 13) - t))))
A_{14} = If(t > (dt * 14), (cos((dt * 14)), sin((dt * 14))), ((((dt * 14) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 14) - t))))
A_{15} = If(t > (dt * 15), (cos((dt * 15)), sin((dt * 15))), ((((dt * 15) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 15) - t))))
A_{16} = If(t > (dt * 16), (cos((dt * 16)), sin((dt * 16))), ((((dt * 16) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 16) - t))))
A_{17} = If(t > (dt * 17), (cos((dt * 17)), sin((dt * 17))), ((((dt * 17) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 17) - t))))
A_{18} = If(t > (dt * 18), (cos((dt * 18)), sin((dt * 18))), ((((dt * 18) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 18) - t))))
A_{19} = If(t > (dt * 19), (cos((dt * 19)), sin((dt * 19))), ((((dt * 19) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 19) - t))))
A_{20} = If(t > (dt * 20), (cos((dt * 20)), sin((dt * 20))), ((((dt * 20) - t) * x(u)) + x(A), y(A) + (y(u) * ((dt * 20) - t))))
d = Ray(A, u)
Z: (-20, -20)
s = If(θ ≤ 0, θ, 0)
v: (sin(s), (-cos(s)))
B: (cos(s), sin(s))
d2 = Ray(B, v)
B_{1} = If(s < (-dt), (cos((-dt)), sin((-dt))), (((dt + s) * x(v)) + x(B), y(B) + (y(v) * (dt + s))))
B_{2} = If(s < ((-dt) * 2), (cos(((-dt) * 2)), sin(((-dt) * 2))), ((((dt * 2) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 2) + s))))
B_{3} = If(s < ((-dt) * 3), (cos(((-dt) * 3)), sin(((-dt) * 3))), ((((dt * 3) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 3) + s))))
B_{4} = If(s < ((-dt) * 4), (cos(((-dt) * 4)), sin(((-dt) * 4))), ((((dt * 4) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 4) + s))))
B_{5} = If(s < ((-dt) * 5), (cos(((-dt) * 5)), sin(((-dt) * 5))), ((((dt * 5) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 5) + s))))
B_{6} = If(s < ((-dt) * 6), (cos(((-dt) * 6)), sin(((-dt) * 6))), ((((dt * 6) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 6) + s))))
B_{7} = If(s < ((-dt) * 7), (cos(((-dt) * 7)), sin(((-dt) * 7))), ((((dt * 7) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 7) + s))))
B_{8} = If(s < ((-dt) * 8), (cos(((-dt) * 8)), sin(((-dt) * 8))), ((((dt * 8) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 8) + s))))
B_{9} = If(s < ((-dt) * 9), (cos(((-dt) * 9)), sin(((-dt) * 9))), ((((dt * 9) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 9) + s))))
B_{10} = If(s < ((-dt) * 10), (cos(((-dt) * 10)), sin(((-dt) * 10))), ((((dt * 10) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 10) + s))))
B_{11} = If(s < ((-dt) * 11), (cos(((-dt) * 11)), sin(((-dt) * 11))), ((((dt * 11) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 11) + s))))
B_{12} = If(s < ((-dt) * 12), (cos(((-dt) * 12)), sin(((-dt) * 12))), ((((dt * 12) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 12) + s))))
B_{13} = If(s < ((-dt) * 13), (cos(((-dt) * 13)), sin(((-dt) * 13))), ((((dt * 13) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 13) + s))))
B_{14} = If(s < ((-dt) * 14), (cos(((-dt) * 14)), sin(((-dt) * 14))), ((((dt * 14) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 14) + s))))
B_{15} = If(s < ((-dt) * 15), (cos(((-dt) * 15)), sin(((-dt) * 15))), ((((dt * 15) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 15) + s))))
B_{16} = If(s < ((-dt) * 16), (cos(((-dt) * 16)), sin(((-dt) * 16))), ((((dt * 16) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 16) + s))))
B_{17} = If(s < ((-dt) * 17), (cos(((-dt) * 17)), sin(((-dt) * 17))), ((((dt * 17) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 17) + s))))
B_{18} = If(s < ((-dt) * 18), (cos(((-dt) * 18)), sin(((-dt) * 18))), ((((dt * 18) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 18) + s))))
B_{19} = If(s < ((-dt) * 19), (cos(((-dt) * 19)), sin(((-dt) * 19))), ((((dt * 19) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 19) + s))))
B_{20} = If(s < ((-dt) * 20), (cos(((-dt) * 20)), sin(((-dt) * 20))), ((((dt * 20) + s) * x(v)) + x(B), y(B) + (y(v) * ((dt * 20) + s))))
txt_{1} = If(1 ≟ K, Text[p, If[t > π / K + (2 * π), Z, A_{1}], true, true], Text[FractionText[1 / K] + p, If[t > π / K + (2 * π), Z, A_{1}], true, true])
txt_{2} = If(2 ≟ K, Text[p, If[t > (2 * π / K) + (2 * π), Z, A_{2}], true, true], Text[FractionText[2 / K] + p, If[t > (2 * π / K) + (2 * π), Z, A_{2}], true, true])
txt_{3} = If(3 ≟ K, Text[p, If[t > (3 * π / K) + (2 * π), Z, A_{3}], true, true], Text[FractionText[3 / K] + p, If[t > (3 * π / K) + (2 * π), Z, A_{3}], true, true])
txt_{4} = If(4 ≟ K, Text[p, If[t > (4 * π / K) + (2 * π), Z, A_{4}], true, true], Text[FractionText[4 / K] + p, If[t > (4 * π / K) + (2 * π), Z, A_{4}], true, true])
txt_{5} = If(5 ≟ K, Text[p, If[t > (5 * π / K) + (2 * π), Z, A_{5}], true, true], Text[FractionText[5 / K] + p, If[t > (5 * π / K) + (2 * π), Z, A_{5}], true, true])
txt_{6} = If(6 ≟ K, Text[p, If[t > (6 * π / K) + (2 * π), Z, A_{6}], true, true], Text[FractionText[6 / K] + p, If[t > (6 * π / K) + (2 * π), Z, A_{6}], true, true])
txt_{7} = If(7 ≟ K, Text[p, If[t > (7 * π / K) + (2 * π), Z, A_{7}], true, true], Text[FractionText[7 / K] + p, If[t > (7 * π / K) + (2 * π), Z, A_{7}], true, true])
txt_{8} = If(8 ≟ K, Text[p, If[t > (8 * π / K) + (2 * π), Z, A_{8}], true, true], Text[FractionText[8 / K] + p, If[t > (8 * π / K) + (2 * π), Z, A_{8}], true, true])
txt_{9} = If(9 ≟ K, Text[p, If[t > (9 * π / K) + (2 * π), Z, A_{9}], true, true], Text[FractionText[9 / K] + p, If[t > (9 * π / K) + (2 * π), Z, A_{9}], true, true])
txt_{10} = If(10 ≟ K, Text[p, If[t > (10 * π / K) + (2 * π), Z, A_{10}], true, true], Text[FractionText[10 / K] + p, If[t > (10 * π / K) + (2 * π), Z, A_{10}], true, true])
txt_{11} = If(11 ≟ K, Text[p, If[t > (11 * π / K) + (2 * π), Z, A_{11}], true, true], Text[FractionText[11 / K] + p, If[t > (11 * π / K) + (2 * π), Z, A_{11}], true, true])
txt_{12} = If(12 ≟ K, Text[p, If[t > (12 * π / K) + (2 * π), Z, A_{12}], true, true], Text[FractionText[12 / K] + p, If[t > (12 * π / K) + (2 * π), Z, A_{12}], true, true])
txt_{13} = If(13 ≟ K, Text[p, If[t > (13 * π / K) + (2 * π), Z, A_{13}], true, true], Text[FractionText[13 / K] + p, If[t > (13 * π / K) + (2 * π), Z, A_{13}], true, true])
txt_{14} = If(14 ≟ K, Text[p, If[t > (14 * π / K) + (2 * π), Z, A_{14}], true, true], Text[FractionText[14 / K] + p, If[t > (14 * π / K) + (2 * π), Z, A_{14}], true, true])
txt_{15} = If(15 ≟ K, Text[p, If[t > (15 * π / K) + (2 * π), Z, A_{15}], true, true], Text[FractionText[15 / K] + p, If[t > (15 * π / K) + (2 * π), Z, A_{15}], true, true])
txt_{16} = If(16 ≟ K, Text[p, If[t > (16 * π / K) + (2 * π), Z, A_{16}], true, true], Text[FractionText[16 / K] + p, If[t > (16 * π / K) + (2 * π), Z, A_{16}], true, true])
txt_{17} = If(17 ≟ K, Text[p, If[t > (17 * π / K) + (2 * π), Z, A_{17}], true, true], Text[FractionText[17 / K] + p, If[t > (17 * π / K) + (2 * π), Z, A_{17}], true, true])
txt_{18} = If(18 ≟ K, Text[p, If[t > (18 * π / K) + (2 * π), Z, A_{18}], true, true], Text[FractionText[18 / K] + p, If[t > (18 * π / K) + (2 * π), Z, A_{18}], true, true])
txt_{19} = If(19 ≟ K, Text[p, If[t > (19 * π / K) + (2 * π), Z, A_{19}], true, true], Text[FractionText[19 / K] + p, If[t > (19 * π / K) + (2 * π), Z, A_{19}], true, true])
txt_{20} = If(20 ≟ K, Text[p, If[t > (20 * π / K) + (2 * π), Z, A_{20}], true, true], Text[FractionText[20 / K] + p, If[t > (20 * π / K) + (2 * π), Z, A_{20}], true, true])
I: (1, 0)
e = CircleArc(O, I, A)
f = CircleArc(O, I, A)
g = Circle(O, I)
h = Circle(O, I)
txtm_{1} = If(1 ≟ K, Text[q, If[s < (-(π / K)) - (2 * π), Z, B_{1}], true, true], Text[FractionText[-1 / K] + p, If[s < (-(π / K)) - (2 * π), Z, B_{1}], true, true])
txtm_{2} = If(2 ≟ K, Text[q, If[s < (-2 * π / K) - (2 * π), Z, B_{2}], true, true], Text[FractionText[-2 / K] + p, If[s < (-2 * π / K) - (2 * π), Z, B_{2}], true, true])
txtm_{3} = If(3 ≟ K, Text[q, If[s < (-3 * π / K) - (2 * π), Z, B_{3}], true, true], Text[FractionText[-3 / K] + p, If[s < (-3 * π / K) - (2 * π), Z, B_{3}], true, true])
txtm_{4} = If(4 ≟ K, Text[q, If[s < (-4 * π / K) - (2 * π), Z, B_{4}], true, true], Text[FractionText[-4 / K] + p, If[s < (-4 * π / K) - (2 * π), Z, B_{4}], true, true])
txtm_{5} = If(5 ≟ K, Text[q, If[s < (-5 * π / K) - (2 * π), Z, B_{5}], true, true], Text[FractionText[-5 / K] + p, If[s < (-5 * π / K) - (2 * π), Z, B_{5}], true, true])
txtm_{6} = If(6 ≟ K, Text[q, If[s < (-6 * π / K) - (2 * π), Z, B_{6}], true, true], Text[FractionText[-6 / K] + p, If[s < (-6 * π / K) - (2 * π), Z, B_{6}], true, true])
txtm_{7} = If(7 ≟ K, Text[q, If[s < (-7 * π / K) - (2 * π), Z, B_{7}], true, true], Text[FractionText[-7 / K] + p, If[s < (-7 * π / K) - (2 * π), Z, B_{7}], true, true])
txtm_{8} = If(8 ≟ K, Text[q, If[s < (-8 * π / K) - (2 * π), Z, B_{8}], true, true], Text[FractionText[-8 / K] + p, If[s < (-8 * π / K) - (2 * π), Z, B_{8}], true, true])
txtm_{9} = If(9 ≟ K, Text[q, If[s < (-9 * π / K) - (2 * π), Z, B_{9}], true, true], Text[FractionText[-9 / K] + p, If[s < (-9 * π / K) - (2 * π), Z, B_{9}], true, true])
txtm_{10} = If(10 ≟ K, Text[q, If[s < (-10 * π / K) - (2 * π), Z, B_{10}], true, true], Text[FractionText[-10 / K] + p, If[s < (-10 * π / K) - (2 * π), Z, B_{10}], true, true])
txtm_{11} = If(11 ≟ K, Text[q, If[s < (-11 * π / K) - (2 * π), Z, B_{11}], true, true], Text[FractionText[-11 / K] + p, If[s < (-11 * π / K) - (2 * π), Z, B_{11}], true, true])
txtm_{12} = If(12 ≟ K, Text[q, If[s < (-12 * π / K) - (2 * π), Z, B_{12}], true, true], Text[FractionText[-12 / K] + p, If[s < (-12 * π / K) - (2 * π), Z, B_{12}], true, true])
txtm_{13} = If(13 ≟ K, Text[q, If[s < (-13 * π / K) - (2 * π), Z, B_{13}], true, true], Text[FractionText[-13 / K] + p, If[s < (-13 * π / K) - (2 * π), Z, B_{13}], true, true])
txtm_{14} = If(14 ≟ K, Text[q, If[s < (-14 * π / K) - (2 * π), Z, B_{14}], true, true], Text[FractionText[-14 / K] + p, If[s < (-14 * π / K) - (2 * π), Z, B_{14}], true, true])
txtm_{15} = If(15 ≟ K, Text[q, If[s < (-15 * π / K) - (2 * π), Z, B_{15}], true, true], Text[FractionText[-15 / K] + p, If[s < (-15 * π / K) - (2 * π), Z, B_{15}], true, true])
txtm_{16} = If(16 ≟ K, Text[q, If[s < (-16 * π / K) - (2 * π), Z, B_{16}], true, true], Text[FractionText[-16 / K] + p, If[s < (-16 * π / K) - (2 * π), Z, B_{16}], true, true])
txtm_{17} = If(17 ≟ K, Text[q, If[s < (-17 * π / K) - (2 * π), Z, B_{17}], true, true], Text[FractionText[-17 / K] + p, If[s < (-17 * π / K) - (2 * π), Z, B_{17}], true, true])
txtm_{18} = If(18 ≟ K, Text[q, If[s < (-18 * π / K) - (2 * π), Z, B_{18}], true, true], Text[FractionText[-18 / K] + p, If[s < (-18 * π / K) - (2 * π), Z, B_{18}], true, true])
txtm_{19} = If(19 ≟ K, Text[q, If[s < (-19 * π / K) - (2 * π), Z, B_{19}], true, true], Text[FractionText[-19 / K] + p, If[s < (-19 * π / K) - (2 * π), Z, B_{19}], true, true])
txtm_{20} = If(20 ≟ K, Text[q, If[s < (-20 * π / K) - (2 * π), Z, B_{20}], true, true], Text[FractionText[-20 / K] + p, If[s < (-20 * π / K) - (2 * π), Z, B_{20}], true, true])
k = CircleArc(O, B, I)
r = Circle(O, I)
c_1 = CircleArc(O, B, I)
d_1 = Circle(O, I)