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