%% auteur : -1 6 setxrange -1 4 setyrange 50 setxunit 50 setyunit /A{0 0} def /B{5 0} def /C{5 3} def /D{0 3} def /M{5 1.2} def /N{3.8 0} def [A B C D] polygone [A N M C D] polygone /fillstyle {.5 setgray continu hachure} def mixte [A N M C D] polygone* setTimes (A) A [1.5 1.5] dltext (B) B [1.5 1.5] dtext (C) C [1.5 1.5] urtext (D) D [1.5 1.5] ultext (M) M [1.5 1.5] rtext (N) N [1.5 1.5] dtext %% adresse IP : 85.168.108.103