/A {-4 -4} def   /C {4 4} def  
/B {4 -4} def    /D {-4 4} def 

1.5 setlinewidth
[A B C D] polygone

OX A 8 interdroitecercle /B' defpoint popp
OY A 8 interdroitecercle /C' defpoint popp
OX B 8 interdroitecercle popp /D' defpoint 
OY C 8 interdroitecercle popp /A' defpoint 

gsave
newpath
   B' smoveto
   B' C' A ABCercle_
   C' D' B ABCercle_
   D' A' C ABCercle_
   A' B' D ABCercle_
clip
   bleu hachure
grestore

0 90 A 8 Cercle
-180 -90 C 8 Cercle
90 180 B 8 Cercle
-90 0 D 8 Cercle

%% pour la mise au point
gsave
   jaune
   [A' B' C' D'] points
grestore

setTimesItalic
   (A) A dltext   (A') A' dtext
   (B) B drtext   (B') B' rtext
   (C) C urtext   (C') C' utext
   (D) D ultext   (D') D' ltext