%% auteur : Christian Vassard -3 8 setxrange -5 5 setyrange 15 setfontsize 30 setxunit 30 setyunit /A {2.5 1} def /B {-1 -2} def /C {3 -2} def [A B C] points [A B C] polygone /M {-2 2.5} def M point /N {M A 180 rotatepoint} def N point /P {N C 180 rotatepoint} def P point /Q {P B 180 rotatepoint} def Q point pointilles .7 setcurvelinewidth [M N] ligne [N P] ligne [P Q] ligne A M 3 marked A N 3 marked C N 2 marked C P 2 marked B P 1 marked B Q 1 marked setTimesItalic (A) A drtext (B) B drtext (C) C drtext (M) M drtext (N) N drtext (P) P drtext (Q) Q drtext