rays

tmax

tmin

sectors

tmin = 0
T = 1.3194689145077132 (slider from tmin to tmax, step 0.031415926535897934)
r(t) = 2 + cos(6 * t)
a = CurveCartesian(r(t) * cos(t), r(t) * sin(t), t, tmin, T)
A = Point(a, 1)
theta: arg(A)
radius: abs(A)
raypos = Ray((0, 0), (cos(T), sin(T)))
rayneg = Ray((0, 0), (-cos(T), -sin(T)))
showrays = false
tmax = 6.284
inputBox1 = Textfield(tmax)
inputBox2 = Textfield(tmin)
odometer = Integral(sqrt(r(x)^(2) + r'(x)^(2)), tmin, T)
area = Integral(0.5 * r(x)^(2), tmin, T)
showsectors = true
dt = 0.1308996938995747 rad (slider from 0.01308996938995747 to 0.1308996938995747, step 0.01308996938995747)
sectors = Sequence(CircleSector[(0, 0), a(t - dt), a(t)], t, dt, T, dt)