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