-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
|