Présentation de carre_cerc.jps

%% auteur :

-3 3 setxrange
-3 3 setyrange
/O1 {1 1} def 
/O4 {1 -1} def
/O2 {-1 1} def
/O3 {-1 -1} def
O1 1 /C1 defcercle
O2 1 /C2 defcercle
O3 1 /C3 defcercle
O4 1 /C4 defcercle



C1 cercle
C2 cercle
C3 cercle
C4 cercle



noir
%[O2 O3 O1 O4] polygone


/fillstyle{hachure}def
180 270 O1 1 wedge*
0 90 O3 1 wedge*
-90 0 O2 1 wedge*
90 180 O4 1 wedge*