400 setwidth
400 setheight
18 setfontsize
-1.5 1.5 setxrange
-2 2 setyrange

jpegmode

/f {
   Arcsin
} def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      -1 1 {f} Courbe
   grestore

   setTimesItalic
      (O) O drtext
      (y = ) -1 1 text
   setTimes
	 (arcsin ) show
   setTimesItalic
     (x) show
   
} def

{dessin} relief