input geometriesyr16; %1ere série figure(0,0,15u,3u); trace grille(0.5) withcolor orange; path cc; cc=cercles(pp(3,3),1u); path dd; dd=polygone(pointarc(cc,0),pp(6,6),pointarc(cc,90),pp(0,6),pointarc(cc,180),pp(0,0),pointarc(cc,270),pp(6,0)); path ee; ee=polygone(pointarc(cc,0),pointarc(cc,90),pointarc(cc,180),pointarc(cc,270)); for k=0 upto 5: trace dd shifted(k*u*(3,0)); endfor; fin; figure(0,0,15u,3u); remplis feuillet withcolor noir; for k=0 upto 5: remplis (dd shifted(k*u*(3,0))) withcolor blanc; endfor; fin; figure(0,0,15u,3u); remplis feuillet withcolor noir; picture io[]; for k=0 upto 5: io[k]=image( trace grille(0.5) withcolor orange; clip currentpicture to (cc shifted(k*u*(3,0))); ); endfor; for k=0 upto 5: remplis (dd shifted(k*u*(3,0))) withcolor blanc; trace cc shifted(k*u*(3,0)); trace io[k]; endfor; fin; figure(0,0,15u,3u); trace feuillet; for k=0 upto 5: remplis (dd shifted(k*u*(3,0))) withcolor noir; remplis (cc shifted(k*u*(3,0))) withcolor blanc; remplis (ee shifted(k*u*(3,0))) withcolor noir; endfor; fin; end