%**********************************************************
%**         Prepocet obrazku na rozliseni 256x256        **
%**                Diskrétní transformace                **
%**        Leos Marsalek  Leos.Marsalek@tiscali.cz       **
%**        Jan Skapa Jeniczek.s@seznam.cz (c) 2003       **
%**********************************************************

% pic 1
pic=zeros(256,256);
pic(1:240,1:256,1)=pic1(1:240,32:287,1);
pic(1:240,1:256,2)=pic1(1:240,32:287,2);
pic(1:240,1:256,3)=pic1(1:240,32:287,3);
pic1=pic;

% pic2
pic=zeros(256,256);
pic(1:240,1:256,1)=pic2(1:240,32:287,1);
pic(1:240,1:256,2)=pic2(1:240,32:287,2);
pic(1:240,1:256,3)=pic2(1:240,32:287,3);
pic2=pic;

%pic3
pic=zeros(256,256);
pic(1:240,1:256,1)=pic3(1:240,32:287,1);
pic(1:240,1:256,2)=pic3(1:240,32:287,2);
pic(1:240,1:256,3)=pic3(1:240,32:287,3);
pic3=pic;

% pic4
pic=zeros(256,256);
pic(1:240,1:256,1)=pic4(1:240,32:287,1);
pic(1:240,1:256,2)=pic4(1:240,32:287,2);
pic(1:240,1:256,3)=pic4(1:240,32:287,3);
pic4=pic;

%pic5
pic=zeros(256,256);
pic(1:240,1:256,1)=pic5(1:240,32:287,1);
pic(1:240,1:256,2)=pic5(1:240,32:287,2);
pic(1:240,1:256,3)=pic5(1:240,32:287,3);
pic5=pic;

imwrite(pic1,
'pic1_256x256.tif','tif');
imwrite(pic2,
'pic2_256x256.tif','tif');
imwrite(pic3,
'pic3_256x256.tif','tif');
imwrite(pic4,
'pic4_256x256.tif','tif');
imwrite(pic5,
'pic5_256x256.tif','tif');