fin=0;
		while ~fin
			% déplacement
			if g
				j=j-1; g=0; d=1;
				if j<1, fin=1; G(i)=0; end
			elseif d
				j=j+1; d=0; g=1;
				if j>nc, fin=1; D(i)=0; end
			elseif h
				i=i+1; h=0; b=1;
				if i>nc, fin=1; H(j)=0; end
				if (j==l)&(i==m), fin=1; end
			elseif b
				i=i-1; b=0; h=1;
				if i<1, fin=1; B(j)=0; end
			end
			if ~fin, 
				if T(i,j) 
					if b, 
						b=0; g=1; d=0; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x1+j-1,y1+i-1,c); 
					elseif g, 
						b=1; g=0; d=0; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x1+j-1,y1+i-1,c); 
					elseif h, 
						b=0; g=0; d=1; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x2+j-1,y2+i-1,c); 
					else, 
						b=0; g=0; d=0; h=1; 
						R(i,j)=R(i,j)+1;
						p=plot(x2+j-1,y2+i-1,c); 
					end
				else
					if b, 
						b=0; g=0; d=1; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x3+j-1,y3+i-1,c); 
					elseif g, 
						b=0; g=0; d=0; h=1; 
						R(i,j)=R(i,j)+1;
						p=plot(x4+j-1,y4+i-1,c);
					elseif h, 
						b=0; g=1; d=0; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x4+j-1,y4+i-1,c); 
					else, 
						b=1; g=0; d=0; h=0; 
						R(i,j)=R(i,j)+1;
						p=plot(x3+j-1,y3+i-1,c); 
					end
				end
			end	
			set(p,'erasemode','none');
			drawnow	
		end
