function carreor(n,Ox,Oy,c1,c2,dt,r)
a=2^n;
fill((Ox+[0 a a 0]+dt)*r,(Oy+[0 0 a a]+dt)*r,c1,'edgecolor','none');
fill((-Ox+[0 -a -a 0]+dt)*r,(Oy+[0 0 a a]+dt)*r,c1,'edgecolor','none');
fill((Ox+[0 a a 0]+dt)*r,(Oy+[0 0 -a -a]+dt)*r,c2,'edgecolor','none');
fill((-Ox+[0 -a -a 0]+dt)*r,(Oy+[0 0 -a -a]+dt)*r,c2,'edgecolor','none');

