A = (1, 0)
B = Point(yAxis)
f = OrthogonalLine(B, yAxis)
C = Point(f)
D = Point(f)
g = Segment(C, D)
E = Point(g)
ang: x(E)
O = Intersect(xAxis, yAxis)
P = Rotate(A, ang, O)
AA: A + P + sgn(x(E)) A - sgn(x(E)) P
PP: A + P + sgn(x(E)) P - sgn(x(E)) A
c = Circle((0, 0), 1)
α = Angle(AA, O, PP)
sen = Segment(P, (x(P), 0))
Q, a, d, e = Polygon(P, O, (x(P), 0))
F: (x(E), 0)
G: (x(E), x(P))
b = Segment(F, G)
h = Segment(F, E)
T1: "α = " + ang + " rad. = " + (ang 180 / 3.141592653589793) + "º"
T2: "cos α = " + (x(P))
j = Segment(O, F)
dis: sgn(x(E) - 2 * 3.141592653589793)
p = Circle(O, dis)
k = CircleArc(O, AA / 2, PP / 2)