autocrop
25 setxunit
/a {4} def   /A {a 0} def   /B {0 a} def
%% la definition et le traitement du domaine plan
gsave
   %% definition du chemin
   newpath                                 
      %% initialisation du point courant
      A smoveto                            
      %% le 1/4 de cercle AB
      0 90 O a Cercle_                     
      %% le 1/2 cercle BO   
      90 -90 O B milieu a 2 div Cercle_    
      %% le 1/2 cercle OA   
      180 0 O A milieu a 2 div Cercle_     
   clip      %% creation du masque                                   
      bleu hachure 
      1.5 setlinewidth noir
   stroke    %% encrage de la frontiere
grestore

[O A B] points

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