t = 0 (slider from -1 to 6.283185307179586, step 0.05)
sinus: (t, sin(t))
B = Point(xAxis)
C = Point(xAxis)
c = Circle(B, C)
T: (cos(t) - 1, sin(t))
l: 1 t
kosinus: (l, cos(l))
a = OrthogonalLine(T, xAxis)
A = Intersect(a, xAxis)
b = Segment(B, A)
d = Segment(A, T)
T1: "t = " + t
v: sin(t)
T2: "sin (t) = " + v
T3: "cos (t) = " + (cos(t))
e = Segment((t, 0), (t, sin(t)))
f = Segment((t, 0), (t, cos(t)))