Cdrom cover

eopen('demo9.eps')                      % open eps-file and write eps-head
eglobpar;

titleFile='demo_title.ppm';
backgrFile='demo_backgr.ppm';
logoFile='demo_logo.ppm';
contentFile='demo_content.txt';

%make title image
[titleImg titleCM]=eimgread([ePath 'default.jpg']); % read image
[imgH imgW]=size(titleImg);
imgMask=eimgmask(imgH,imgW,1);
imgMask=circshift(imgMask,50);
swCM=titleCM(:,1)+titleCM(:,2)+titleCM(:,3);
swCM=swCM/max(swCM);
swCM=[swCM swCM swCM]; % color -> gray
swImg=eidx2rgb(titleImg,swCM);
colorImg=eidx2rgb(titleImg,titleCM);
titleImg=eimgmix(swImg,colorImg,imgMask);
eimgwrit(titleFile,titleImg,-1); % save image

%make background image
[backImg backCM]=eshadoi; % get default shadow image
backCM(:,[2 3])=0.1;
eppmwrit(backgrFile,backImg,backCM); % save image

%make logo image
[logoImg logoCM]=eshadois; % get default shadow image
eppmwrit(logoFile,logoImg,logoCM); % save image

%content
lf=char(10); %linefeed
contenttext=[
  'New features:' lf ...
  '#HTML documentation###'  lf ...
  '#encryption tools###'  lf ...
  '#auto data reduction of plot data ###'  lf ...
  '#more dash styles###'  lf ...
  '#more character codes###'  lf ...
  '#many bugs removed###' lf ...
  ];
etxtwrit(contenttext,contentFile);

% make cover

ecdcover('The EpsTk',...
         sprintf('Graphic for Octave & Matlab\\256'),...
         'Stefan Mueller',...
         'Version 2.2',...
         sprintf('\\251 2007'),...
         [1 1 0],...
         titleFile,backgrFile,...
         logoFile,contentFile);


eclose
if ~exist('noDemoShow')
  eview                                   % start ghostview with eps-file
end
Close