%% auteur : %% auteur : -7 8 setxrange -5 4 setyrange %40 setxunit %40 setyunit /A{-1 3} def /D{4 3 } def /F{-6 3} def /C{D F 310 rotatepoint} def /B{-4 0} def /I{A B milieu} def /J {B C milieu} def [A B C D] polygone [ A C] ligne [A B C D I J] points pointilles [I C] ligne [A J] ligne setTimes (A) A ultext (B) B ltext (C) C dtext (D) D urtext (I) I ultext (J) J dtext