next up previous contents
Next: edemo10.m Up: Examples Previous: edemo8.m   Contents

edemo9.m

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

%make title image
[titleImg titleCM]=eppmread([ePath 'default.ppm']); % read image
swCM=titleCM(:,1)+titleCM(:,2)+titleCM(:,3);
swCM=swCM/max(swCM);
titleCM=[swCM swCM swCM];
eppmwrit('title.ppm',titleImg,titleCM); % save image

%make background image
[backImg backCM]=eshadoi; % get default shadow image
backCM(:,2:3)=0; % red colormap
eppmwrit('backgr.ppm',backImg,backCM); % save image

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

%content
lf=setstr(10); %linefeed
contenttext=[
'New features:' lf ...
'#import and export of images###' lf ...
'#quiverplots###' lf ...
'#new symbols###' lf ...
'#new demos###' lf ...
'#mix shadow plots###' lf ...
'#import of matlab eps-files###' lf ...
'#bugs removed in eisoline, esubeps, ebitmap...###' lf ...
];
fid=fopen('content.txt','w');
fprintf(fid,'%s',contenttext);
fclose(fid);

% make cover

ecdcover('The EpsTk',...
'Graphic for Octave & MATLAB(R)',...
'St.Mueller',...
'Version 1.9',...
'2001',...
[1 1 0],...
'title.ppm','backgr.ppm',...
'logo.ppm','content.txt');


eclose
eview



Stefan Müller 2002-01-15