Présentation de losange_cerc_2.jps

%% auteur :

-2 4 setxrange
-3.2 3.2 setyrange

O 1 /C1 defcercle
/O2 {2 0} def
O2 1 /C2 defcercle
/O3 {O2 O 60 rotatepoint} def
/C3 {C2 O 60 rotatecercle} def
/O4 {O2 O -60 rotatepoint} def
/C4 {C2 O -60 rotatecercle} def

C1 cercle
C2 cercle
C3 cercle
C4 cercle


/A {60 C1 cpoint} def 
 %/OO2 {O O2} def      

 %/A {OO2 C1 interdroitecercle} def

/B {-60 C3 cpoint} def
/C {-120 C2 cpoint} def
/D {-60 C1 cpoint} def

noir
[O2 O3 O O4] polygone

/fillstyle{hachure}def
-60 60 O 1 wedge*
-120 -60 O3 1 wedge*
120 240 O2 1 wedge*
60 120 O4 1 wedge*