100 setxunit
18 setfontsize
-1.7 1.7 setxrange
-1.7 1.7 setyrange

tracerepere
marks
pi 2 div 
dup xtick ytick

/id { setxvar x } def

mixte
xmin xmax {id} Courbe
   /f {
   Arcsin
   } def

   /g {
Sin
   } def

pointilles
-1.57 1.57 {g} Courbe


continu
2 setlinewidth
bleu

-0.999 0.999 {f} Courbe

noir

setTimesItalic 
   (Arcsin)  0.8 dup f ultext
   (sin)  1.3 dup g drtext
   (O) O drtext
setSymbol
    (p/2) pi 2 div 0 uctext
    (p/2) 0 pi 2 div crtext