Présentation de align_004a.jps

/height 200 def
/width 300 def

-3 9 setxrange
-4 4 setyrange

/A {-1 -2} def
/B {3 -2} def
/C {0 1} def

%% /M {
%%    A
%%    A B vecteur 2 mulv A C vecteur addv 
%%    addv
%% } def
%% /N {
%%    B
%%    B C vecteur 1 3 div mulv
%%    addv
%% } def

quadrillage

[A B C] points

%% 1 setlinewidth
%% A dupp A B vecteur addv (->) line
%% A dupp A C vecteur addv (->) line

setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext