function HON_im2txt(im)
%

[M,N] = size(im);

figure(1);
clf
hold on
plot(-1,-1,'w.');
plot(N+2,M+2,'w.');

for r = 1:M
    for c = 1:N
        x = c;
        y = M - r + 1;
        if im(r,c)<255/3
            text(x,y,'*');
        elseif im(r,c)<2*255/3
            text(x,y,'.');
        end
        drawnow
    end
end
