/A {-2 2} def
/B {3 -3} def
/dessin_1 {
noir
tracerepere
A point
(A) A ultext
orange
A 2 cercle
} def
/dessin_2 {
bleu
B 2 cercle
noir
B point
(B) B drtext
} def
1.2 setlinewidth
setTimesItalic
%% par defaut
{dessin_1} relief
%% avec la direction imposee
{dessin_2} 1 1 relief
|