input geometriesyr;
beginfig(1);
path rectangle;
picture rectanglenoir,ligne;
rectangle=(0,0)--u*(1,0)--u*(1,0.5)--u*(0,0.5)--cycle;
rectanglenoir=image(
fill rectangle withcolor noir;
);
for k=0 upto 10:
for j=0 upto 10:
trace rectanglenoir shifted (u*(2*j,k));
endfor;
endfor;
for k=0 upto 10:
for j=0 upto 10:
trace rectanglenoir shifted (u*(2*j-0.5,k+0.5));
endfor;
endfor;
for l=1 upto 21:
trace (0,0.5*u*l)--(20u,0.5*u*l) withpen pencircle scaled 1.5bp withcolor 0.8*white;
endfor;
endfig;
beginfig(2);
trace u*(1,1)--u*(9,1)--u*(9,9)--u*(1,9)--cycle withpen pencircle scaled 2bp;
picture lel,L;
lel=image(
trace
(0,0)--u*(0.5,0)--u*(0.5,0.75)--u*(0.25,0.75)--u*(0.25,0.25)--u*(0,0.25)--cycle
withpen pencircle scaled 1.25bp;
trace u*(0.25,0.25)--u*(0.5,0.25) withpen pencircle scaled 1.25bp;
currentpicture:=currentpicture shifted(u*(2,2));
);
path cadre;
cadre=u*(2,2)--u*(8,2)--u*(8,8)--u*(2,8)--cycle;
L=image(
for k=-10 upto 10:
for j=-10 upto 15:
trace lel shifted((j*0.5u+k*0.25*u,j*0.25u+k*0.75*u));
endfor;
endfor;
currentpicture:=rotation(currentpicture,iso(u*(2,2),u*(8,8)),-30);
clip currentpicture to cadre;
);
trace L;
endfig;
end
|