slider angolo radianti 0..6.28
punto P su cerchio P=(sin(α),cos(α))
luogo(P, slider)
traccia P, anima slider

semiretta e punti B, C
segmenti AP,PB, BC
nascondi semiretta
nascondi luogo
colora, traccia, anima slider

α = 2.7576202181510405 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = Intersect(xAxis, yAxis)
P: (sin(α), cos(α))
luogo1 = Locus(P, α)
a = Ray(A, P)
B = Point(a)
C = Point(a)
b = Segment(A, P)
c = Segment(P, B)
d = Segment(B, C)