%%% origine pour le trace des axes
/Ox 0 def
/Oy 0 def
%%% l'axe Oy %%%
/traceOy {
newpath
Ox ymin smoveto
Ox ymax slineto
stroke
} def
%%% l'axe Ox %%%
/traceOx {
newpath
xmin Oy smoveto
xmax Oy slineto
stroke
} def
/traceaxes {
traceOx
traceOy
} def
|