%displaypic.m
%simple image manipulation
[file,path]=uigetfile('','Open Image File');
[pic,map]=imread([path,file]);
figure(1);
clf;
colormap(map);
image(pic);

%prof.m a button callback to create an image profile of an image in Figure 1
figure(1);
p=improfile;
p=sum(p,3);
figure(2);
plot(p);