%% auteur : 

-1.5 1.5 setxrange
-1.5 1.5 setyrange
100 setxunit
100 setyunit
/cerc{O 1} def
cerc cercle
/I{1 0} def
[O I] (->) ligne
/J{0 1} def
[O J] (->) ligne
/K{-1 0} def
[O K] ligne
/L{0 -1} def
[O L] ligne
/A{45 cerc cpoint} def
A point
/B {135 cerc cpoint} def
B point
[O A]  ligne
[O B]  ligne
/arrowscale {1.5 dup} def
/arrowangle -8 def
I O A  0.5 (->) tripointarc
I O B 0.3 (->) tripointarc
/A'{A projy} def
/B'{B projy} def
pointilles
[A B] ligne

#latex#$\displaystyle{\frac{\pi}{4}}$
A [1.2 1.2] crtexlabel

#latex#$\displaystyle{\frac{3\pi}{4}}$
B [1 1] cltexlabel

#latex#$\displaystyle{\frac{\sqrt{2}}{2}}$
-0.1 0.75 [1 1] cctexlabel

setTimes
(O) O dltext