function cartepp(n,Ox,Oy,dt,r)
if n==0
   return
end
carreop(n,Ox,Oy,dt,r)
cartepp(n-1,Ox+2^n,Oy,dt,r);
cartepp(n-1,Ox,Oy-2^n,dt,r);
cartepp(n-1,Ox,Oy+2^n,dt,r);
