if(mod(t,10)==0)
figure(1), cla, box
    imagesc([min(min(X)) max(max(X))],[min(min(Y)) max(max(Y))], T(iny,inx)), axis equal, ...
        axis tight, drawnow
        ylabel('y [m]')
    xlabel('x [m]'), pause(0.1)
    

spreadfigures

end