The Machine Perception Toolbox

[Introduction]- [News]- [Download]- [Screenshots]- [Manual (pdf)]- [Forums]- [API Reference]- [Repository ]

 

manyscales.m

Go to the documentation of this file.

function manyscales

%load results.txt;
%results(:,1) = results(:,1)+1;
%results(:,3) = max(1,results(:,3)-3);
figure(1);
set(gcf, 'DoubleBuffer', 'On');
figure(2);
set(gcf, 'DoubleBuffer', 'On');
figure(3);
set(gcf, 'DoubleBuffer', 'On');

for sc = 0:22
    fname = sprintf('iiimage_scale%d.bin', sc);
    fid = fopen(fname, 'r');
    header=fread(fid, 2, 'int');
    data=fread(fid, 'double');
    fclose(fid); 
    numframes = length(data)/prod(header);
    data = reshape(data, header(1), header(2), numframes);
    for fr = 1:numframes
        images(fr).scale(sc+1) = {data(:,:,fr)};
    end
end

for fr = 1:length(images)
    frimage = [];
    images(fr).composite = zeros(25);
    for sc = 1:length(images(1).scale)   
        scimage = cell2mat(images(fr).scale(sc));
        frimage = [frimage; scimage(:)]; 
        images(fr).composite = images(fr).composite + imresize(scimage, [25, 25]);
    end
    maxsc(fr) = max(frimage);
    minsc(fr) = min(frimage);
end

for fr = 1:length(images)
    figure(1); 
    fname = sprintf('image_%d.bin', fr-1); 
    fid = fopen(fname, 'r');
    header=fread(fid, 2, 'int');
    data=fread(fid, prod(header), 'double');
    im = (reshape(data, header(1), header(2)))';
    fclose(fid);
    %im = imresize(im, [125,125], 'bilinear');

    imagesc(im); axis off; axis image; colormap(hot);
   % hold on;
   % r = rectangle('position', [results(fr,1:3), results(fr,3)]);
   % set(r, 'LineWidth', 10);
    
    figure(2);
    scimage = zeros(25*5,25*5);
    starty = -24;
    endy = starty+24;
    startx = -24;
    endx = startx+24;
    
    %framedata = [];
    for sc = 1:length(images(1).scale)
        im = (cell2mat(images(fr).scale(sc)))';
        %im = imresize(im,[25,25],'bilinear');   
        
        subplot(5,5,sc);
        imagesc(im, [minsc(fr), maxsc(fr)]); colormap(hot);
        %framedata = cat(1, framedata, im(:));
    end  
    
    images(fr).composite = transpose(images(fr).composite);
    figure(3); imagesc(images(fr).composite); colormap(hot); colorbar; 
    
    drawnow;
    pause;%(0.01);
end 

---