α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = (-1, 0)
c = Circle(A, 1.0)
B = (0, 0)
B' = Rotate(B, α, A)
a = Line(A, B')
β = Angle(xAxis, a)
b = OrthogonalLine(B', xAxis)
C = Intersect(xAxis, b)
polígono1, c_1, cos_α, sen_α = Polygon(B', A, C)
D = Intersect(a, yAxis)
polígono2, b_1, d, tg_α = Polygon(D, A, B)
senα: (α, y(B'))
C' = Rotate(C, 90.0*°, A)
e = CircleSector(A, C, C')
cosα: (α, y(C'))
tgα: (α, y(D))
αr: (α, 0.0)
f = OrthogonalLine(αr, xAxis)
texto1: "sen(" + α + ") \; = \; " + (y(B'))
texto2: "cos(" + α + ") \; = \; " + (y(C'))
texto3: "tg(" + α + ") \; = \; " + (y(D))