Présentation de losange_cerc_2.jps

/syracuse/bbgraf/albums/cercles/losange_cerc_2.jpg
%% 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*