function cartepr(n,Ox,Oy,c1,c2,dt,r)
if n==0
   return
end
carreor(n,Ox,Oy,c1,c2,dt,r)
cartepr(n-1,Ox+2^n,Oy,c1,c2,dt,r);
cartepr(n-1,Ox,Oy-2^n,c1,c2,dt,r);
cartepr(n-1,Ox,Oy+2^n,c1,c2,dt,r);
