200 setwidth -8 8 setxrange -8 8 setyrange /quadrillagegray .2 def quadrillage /A {-4 -2} def /B {0 4} def /C {4 -2} def A B C vecteur -.5 mulv addv /M defpoint 1.3 setlinewidth [A B C] polygone M times2 setTimesItalic (A) A dltext (B) B ultext (C) C drtext (M) M urtext