Fichier curry.mp (figure 1) — Modifié le 4 Octobre 2009 à 23 h 49
input geo2d;
f1 = Chemin(((0,0)--(8,0)--(8,3)--cycle) shifted (1,9));
f2 = Chemin(((0,0)--(8,0)--(8,3)--cycle) shifted (6,3));
f3 = Chemin(((0,0)--(5,0)--(5,2)--cycle) shifted (1,1));
f4 = Chemin(((0,0)--(5,0)--(5,2)--cycle) shifted (9,12));
f5 = Chemin(((0,0)--(2,0)--(2,1)--(5,1)--(5,2)--(0,2)--cycle) shifted (6,1));
f6 = Chemin(((0,0)--(2,0)--(2,1)--(5,1)--(5,2)--(0,2)--cycle) shifted (9,10));
f7 = Chemin(((0,0)--(5,0)--(5,2)--(2,2)--(2,1)--(0,1)--cycle) shifted (9,1));
f8 = Chemin(((0,0)--(5,0)--(5,2)--(2,2)--(2,1)--(0,1)--cycle) shifted (9,9));
beginfig(1);
pGu := 1cm;
for i=0 upto 15:
trace Segment((i,0),(i,15)) withcolor 0.7white;
trace Segment((0,i),(15,i)) withcolor 0.7white;
endfor;
pGct := red; pGat := 0.5;
Colorie f1;
trace f1 withpen pencircle scaled 1.5;
Colorie f2;
trace f2 withpen pencircle scaled 1.5;
pGct := green; pGat := 0.5;
Colorie f3;
trace f3 withpen pencircle scaled 1.5;
Colorie f4;
trace f4 withpen pencircle scaled 1.5;
pGct := red+green; pGat := 0.5;
Colorie f5;
trace f5 withpen pencircle scaled 1.5;
Colorie f6;
trace f6 withpen pencircle scaled 1.5;
pGct := blue; pGat := 0.5;
Colorie f7;
trace f7 withpen pencircle scaled 1.5;
Colorie f8;
trace f8 withpen pencircle scaled 1.5;
endfig;
end