\documentclass[12pt]{article}
\begin{document}
\input fig4tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 1. Definition des points caracteristiques de la geometrie
\figinit{1.2cm}
\figpt 0:$O$(0,0)\figpt 1:Re $z$(5,0)\figpt 2:(0,5)\figpt 4:(5,5)
%
\figptrot 3:=1/0,60/
\figvectP 11[0,1]\figvectP 13[0,3]\figptinterlines 5 :[2,11; 0,13]
%
\figptrot 6:=1/0,30/
\figvectP 12[0,2]\figvectP 16[0,6]\figptinterlines 7 :[1,12; 0,16]
%
\def\LUN{0.06}\def\LDE{0.12}% \LDE= 2*\LUN
\figpttra 21:=0/\LUN,16/\figptstra 22=21,22,23,24,25,26,27,28,29/\LDE,16/
\def\LTR{0.1}% \LTR < distance entre 2 points
%
\figptinterlines 31 :[1,12; 27,13]
\figptinterlines 32 :[1,12; 27,11]
% 2. Creation du fichier graphique
\psbeginfig{}
% Axes + droite
\psarrow[0,1]\psarrow[0,2]\psline [0,5]
% Zones grises
\psset (fillmode=yes,color=0.8)\psline [31,27,32]
\pscirc 21(\LTR)\pscirc 22(\LTR)\pscirc 23(\LTR)\pscirc 24(\LTR)
\pscirc 25(\LTR)\pscirc 26(\LTR)
%
\psreset{first}
\psset (dash=3)\psline [0,7]
\def\EPAIS{0.8}
\psset (dash=\defaultdash, width=\EPAIS)\psline [27,31]\psline [27,32]
%
\psreset{first}\psset (fillmode=yes,color=0.8)\pscirc 27(\LTR)
%
\psreset{first}\psset (width=\EPAIS)\psarccirc 27;\LTR(60,0)
\pscirc 21(\LTR)\pscirc 22(\LTR)\pscirc 23(\LTR)\pscirc 24(\LTR)
\pscirc 25(\LTR)\pscirc 26(\LTR)
\psendfig
% 3. Inscription du texte sur le dessin
\figvisu{\figBoxA}{Example}{%
\figwrites 1:(4pt)
\figwritew 2:Im $z$(4pt)
\figwritesw 0:(4pt)
%
%\figshowpts[0,9]\figshowpts[21,30]
\figsetmark{$.$}\figwritep[21,22,23,24,25,26,27,28,29,30]
%\figshowpts[31,32]
}
\centerline{\box\figBoxA}
\bigskip
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{document}
%\bye