111.jps

%% 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
<tex>
$\overline A$
</tex>
(C) C [2 2]cctexlabel