function TapisDemo(n,c)
x=[0 1 1 0];
y=[0 0 1 1];
fill(x,y,c)

tapis(1/3,1/3,1,n)
