%% ATTENTION : code totalement obsolete (11/02/2004)

/xmin -2.5 def
/xmax 3.5 def
/ymin -1 def
/ymax 5 def

/xA 2 def
/yA 2 def
/xB -2 def
/yB 4 def
/xC -1 def
/yC 1 def

xA yA spoint
xB yB spoint
xC yC spoint

/f {
   -3 mul 2 sub
} def
tracecourbe

/Times-Italic findfont fontcorps scalefont setfont
   (A) xA yA uptext
   (B) xB yB righttext
   (C) xC yC downlefttext
   (O) 0 0 downrighttext
   (T) -.5 dup f downlefttext

/xstquadrillage 1 def
/ystquadrillage 1 def
quadrillage
traceaxes
unites

/f {
   neg 2 div 3 add 
} def
tracecourbe


/f {
   4 add 3 div
} def

tracecourbe