-4 4 setxrange
-1 6 setyrange
quadrillage

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

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

/E {A A B vecteur -2 3 div mulv addv} def
/F {A A C vecteur -2 3 div mulv addv} def

[A B C E F] points

18 setfontsize
setTimesItalic
   (A) A urtext
   (B) B ultext
   (C) C urtext
   (E) E urtext
   (F) F urtext