Name: Anonymous 2014-07-22 13:29
Can be yours or not, I just want to see something good.
%% initmap.m %%
Fname = "classic.txt"
b = getMap(Fname);
b2 = b != tvalues(2);
bx = b == tvalues(6);
%%imshow(bx)
%%pause;
bz = reMap(bx, b2);
%%break;
zf = [0,1,0; 1,4,1; 0,1,0];
x = size(b2,2);
y = size(b2,1);
b3 = zeros(y,x);
b3(2:end-1, 2:end-1) = zfilter(bz, zf);
%imshow(b3 ./ 8)
bx = ((b3 > 4) .- (b3 == 6)) == 1;
by = zeros(y,x);
by(bx) = [1:sum(bx(:))];
imshow(by ./ sum(bx(:)));
nodes = sum(bx(:));
node = zeros(nodes, 3);
for(itery = 1:y)
for(iterx = 1:x)
if(bx(itery, iterx))
item = by(itery, iterx);
link = b3(itery, iterx) - 4;
node(item, :) = [itery, iterx, link];
endif;
endfor;
endfor;
figure(2);
plot(node(:,1), '-r', node(:,2), '-b', node(:,3), '-g');
maxTicks = fun_Eol(y,x);
%% end %%
function bx = reMap(bx, b2);
z2 = [0,1,0; 1,1,1; 0,1,0];
oldbx = b2;
i=0;
%%imshow(bx)
%%pause;
while(sum(oldbx(:) == bx(:)) < length(bx(:)))
oldbx = bx;
bn = (zfilter(bx, z2) > 0);
bx(2:end-1, 2:end-1) = bn;
bx = bx .* b2;
%%imshow(bx);
%%sleep(0.5);
%%++i
endwhile;
endfunction;