%% auteur : Gilles Mora -10 10 setxrange -7 7 setyrange /C1 {-2 0 5} def /I{-10 -7} def /J{-10 7} def /K{10 7} def /L{10 -7} def [I J K L] polygone gsave newpath masque_ C1 cercle-_ clip orange hachure grestore C1 cercle %% la legende /A {-2 1} def noir /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def %[A 160 C1 cpoint] ligne boxit_all /fillstyle {blanc fill} def setTimes (A) A [2 2] cctext /C{5 -2} def $\overline A$ (C) C [2 2]cctexlabel