%% 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
|