-1 5 setxrange
-1 5 setyrange

/a {4} def
/A {a 0} def
/B {0 a} def

%% la definition et le traitement du domaine plan
gsave
newpath                                 %% definition du chemin
   A smoveto                            %% initialisation du point courant
   0 90 O a Cercle_                     %% le 1/4 de cercle AB
   90 -90 O B milieu a 2 div Cercle_    %% le 1/2 cercle BO   
   180 0 O A milieu a 2 div Cercle_     %% le 1/2 cercle OA   
clip                                    %% creation du masque
bleu hachure                            %% remplissage avec des hachures
grestore

1.5 setlinewidth
%% le trace de la frontiere
0 90 O a Cercle                         %% le 1/4 de cercle AB
90 -90 O B milieu a 2 div Cercle        %% le 1/2 cercle BO
180 0 O A milieu a 2 div Cercle         %% le 1/2 cercle OA   

[O A B] points

setTimesItalic
   (A) A drtext
   (B) B ultext
   (O) O dltext