/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 M N] points

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

pointilles
A M droite

setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext
   (M) M drtext
   (N) N drtext