-4 4 setxrange
-1 6 setyrange
quadrillage

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

%%%%%%%%%%%%%%%%%%

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

[A B C M] points

18 setfontsize
setTimesItalic
   (A) A urtext
   (B) B dltext
   (C) C urtext
   (M) M dltext