1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| function test
infos = imfinfo('TheManualOfLinotypeTypography.tif','tif');
n = 1;
figure(1)
clf
colormap(gray(2))
im = image(NaN(infos(1).Height,infos(1).Width));
axis image off
t = title(sprintf('Page %d/%d', n, numel(infos)));
uicontrol('units','normalize', 'position', [.2 .45 .1 .1], ...
'string', '<', 'callback', @prev);
uicontrol('units','normalize', 'position', [.8 .45 .1 .1], ...
'string', '>', 'callback', @next);
showpage
function showpage
I = imread('TheManualOfLinotypeTypography.tif','tif','index',n);
set(im, 'CData', I);
set(t, 'string', sprintf('Page %d/%d', n, numel(infos)));
end
function prev(obj,event)
n = n-1;
if n==0
n = 1;
end
showpage
end
function next(obj,event)
n = n+1;
if n>numel(infos)
n = numel(infos);
end
showpage
end
end |
Partager