Change angle θ

radius = 1 (slider from 0.1 to 2, step 0.1)
t = 0 (slider from 0 to 6.283185, step 0.05)
B: (If[t  <  1, (radius * t), (radius * cos(t - 1))], If[t  <  1, 0, (radius * sin(t - 1))])
A: ((radius * cos(t)), (radius * sin(t)))
K: (radius, 0)
a = Segment(B, K)
c: x^(2) + y^(2) = radius^(2)
d = Arc(c, K, A)
b = Segment((0, 0), A)
k = 0
θ = Angle((1, 0), (0, 0), A)
e = Arc(c, B, A)
C: (If[t  <  2, (radius * (t - 1)), (radius * cos(t - 2))], If[t  <  2, 0, (radius * sin(t - 2))])
f = Segment(C, K)
g = Arc(c, C, B)
list1 = Sequence((If[t  <  n, (radius * (t - (n - 1))), (radius * cos(t - n))], If[t  <  n, 0, (radius * sin(t - n))]), n, 2, 7)
D = Element(list1, 2)
h = Segment(D, K)
p = Arc(c, D, C)
E = Element(list1, 3)
i = Segment(E, K)
q = Arc(c, E, D)
F = Element(list1, 4)
j = Segment(F, K)
s = Arc(c, F, E)
G = Element(list1, 5)
l = Segment(G, K)
c_1 = Arc(c, G, F)
H = Element(list1, 6)
m = Segment(H, K)
d_1 = Arc(c, H, G)
n: t / π
o: t / π
u: t / π
tpi: t / π
RadiansToDegrees(x) = (x * 180 / 3.1415926)
FractionOfPi(x) = x / 3.1415926
angletext: "θ  =  " + θ + " = " + (FractionOfPi(θ)) + "π rad = " + (RadiansToDegrees(θ)) + "°"
text1: "arc length on circle = " + (((radius * FractionOfPi(θ)) * π)) + ""