-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