%% code jps desormais obsolete (23/09/2003)
-.5 6.5 setxrange
-.5 6.5 setyrange

/width 500 def

tracerepere
marks

medium setcourbelinewidth
/f {
   -3.125 mul Exp 9 mul 16 add 5 div
}  def
0 xmax Tracecourbe

gsave
   pointilles
   /f {
      -3.125 mul Exp neg 1 add 5 div 16 mul
   }  def
   0 xmax Tracecourbe
grestore

gsave
   /courbelinewidth verythin def
   mixtefin
   Xmin 3.2 smoveto
   Xmax 3.2 slineto
stroke
grestore

setTimesItalic
   (O) O downrighttext