Fichier 111.jps — Modifié le 9 Septembre 2006 à 12 h 27
%% 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