Cdrom cover - EpsTk

# 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 ...
>       '#new ecolor2gray functions###'  lf ...
>       '#scale axes bug fixedr###'  lf ...
>       '#clipping bug fixed ###'  lf ...
>       ];
>     etxtwrit(contenttext,contentFile);

>     % make cover

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

>     eclose
>     delete(titleFile);
>     delete(backgrFile);
>     delete(logoFile);
>     delete(contentFile);
>     if ~exist('noDemoShow')
>       eview                                   % start ghostview with eps-file
>     end

Close