| 
-5 5 setxrange
-5 5 setyrange
/A {0 3} def
/B {-3 -2} def
%%%%%%%%%%%%%%%%%%%%%
/D {O A addv B addv} def
/C {O A subv B subv} def
/E {O A addv C addv} def
/F {O B addv C addv} def
quadrillage
[A B C O D E F] points
[A B F E] polygone
20 setfontsize
setTimesItalic
   (O) O urtext
   (A) A urtext
   (B) B ultext
   (C) C urtext
   (D) D urtext
   (E) E urtext
   (F) F drtext
 |