eopen('demo2.eps') % open eps-file and write eps-head eglobpar % get access to global parameters eXAxisSouthLabelText='Sector [No]'; % set South Label of XAxis eXAxisSouthScaleType=1; % set classes scaling eYAxisWestLabelText='Range'; % set West Label of YAxis eYAxisWestLabelDistance=10; % set West Label disctance from YAxis eYAxisEastLabelText='Outlook'; % set East Label of YAxis eXAxisNorthVisible=0; % switch North-XAxis off eYAxisEastValueVisible=0; % switch East-YAxis Values off eXGridVisible=1; % switch x-Grid on eXGridDash=[1 0.5 2]; % switch y-Grid on eYGridVisible=1; % switch y-Grid on eYGridDash=[1 0.5 ]; % switch y-Grid on % background [im cm]=eimgread; % read standard image cm=econtra(cm,200,[1 2]); % change contrast of image cm=ebright(cm,60); % change brightness of image im=eimgrot(im,90); % rotate image eframe(0,0,eWinWidth,eWinHeight,0,im,cm,0,10); % print background image % frame eframe(0,0,eWinWidth,eWinHeight,0.5,[1 1 3 6 3],[0 0 0],0,10); % draw frame around window etext('demo only',eWinWidth/2,eWinHeight/2,40,0,1,... %print demo text atan(eWinHeight/eWinWidth)*180/pi,[0.8 0.8 0.8]) eXAxisSouthScale=[0 0 6]; %set scale x-axis eYAxisWestScale=[0 10 60]; %set scale y-axis etitle('Standard Plot',25,9,[0 0.3 0]) % print title eYAxisWestValueFormat='%d km'; eXAxisSouthValueFormat='sector %d'; % 1. plot lines x=0:0.1:2*pi; eplot(x,sin(x)*15+30,'street',0,[0.8 0.8 0],3) %solid line eplot(x,sin(x)*15+33,'power line',[0.5 0.8],[1 0 1]) % dash plot eplot(x,sin(x)*15+36,'railway',[1 3 1],[0.3 0.3 0.4],1) % dot-line plot % 2. plot symbols x=0:0.5:2*pi; edsymbol('spire','spire.psd',0.3,0.3,0,0,90) % define symbol 'spire' with a symbol file eplot(x,cos(x)*10+20,'tree','spire',[0 0.7 0]) % plot trees edsymbol('textplot','10 0 moveto (<-tree) show',0.5,0.5,0,0,45) % define symbol 'textplot' with postscript commands text='newpath 0 0 moveto -10 -10 lineto 10 -10 lineto closepath fill'; etxtwrit(text,'myNewSymbol.psd'); % write new symbol file edsymbol('mysymbol','myNewSymbol.psd',0.5,0.5) % define symbol 'mysymbol' eplot(x,cos(x)*10+20,'','textplot',[1 0 0]) % plot trees eplot(x,cos(x)*10+20,'','mysymbol',[1 0 0]) % plot mysymbol % 3. plot area lake=[1 30;1.3 35;1.5 32;2 40;2.5 25;1.6 15;1.4 17;1.2 24;1 30]; eplot(lake(:,1),lake(:,2),'water',-1,[0.5 0.5 1]); % filled area,dash<0 eplot(lake(:,1),lake(:,2),'water limit',0,[0 0 0]); % solid line around the area % 4. plot image x1=0:pi/12:pi; x1=x1'; x2=flipud(x1); girl=[x1+2.8 sin(x1)*10+sin(x1*5)+45;x2+2.8 -sin(x2)*10+45]; im=eimgread; eplot(girl(:,1),girl(:,2),'girl',im,-1); % fill area with image eplot(girl(:,1),girl(:,2),'',0,[0 0.4 0]); % solid line around the image % 5. plot bars x=0.5:1:5.5; [xb yb]=ebar(sin(x)*8+9,0,1,3); % 1. bars eplot(xb,yb,'forest',-1,[0.5 0.7 0]) eplot(xb,yb,'',0,[0 0 0]) [xb yb]=ebar(cos(x)*8+5,0,2,3); % 2. bars eplot(xb,yb,'town',-1,[0.8 0 0]) eplot(xb,yb,'',0,[0 0 0]) [xb yb]=ebar(cos(x)*8+9,0,3,3); % 3. bars eplot(xb,yb,'sea',-1,[0 0 1]) eplot(xb,yb,'',0,[0 0 0]) eplot % write parameters eParamPos=[80,70]; eParamFontSize=5; eparam('Altitude','232 m') eparam('Power','100 W') valuePos=eYAxisEastValuePos; posNo=1; etext('Start of EastAxis',valuePos(posNo,1),valuePos(posNo,2),4,4); posNo=2; etext('2. Value',valuePos(posNo,1),valuePos(posNo,2),4,4); posNo=3; etext('3. Value=',valuePos(posNo,1),valuePos(posNo,2),4,4); etext('(a+b)',0,0,4,1,13); posNo=7; etext('End of EastAxis',valuePos(posNo,1),valuePos(posNo,2),4,4); % axis eYAxisEastScaleType=0; % set linear scaling eYAxisEastValueVisible=0; % no values visible angle=-55; eaxis(80,30,100,'e',[0 1 10],angle,[1 0 0]); valuePos=eYAxisEastValuePos; posNo=1; etext('Start',valuePos(posNo,1),valuePos(posNo,2),4,1,1,angle,[1 0 0]); posNo=4; etext('3 cm',valuePos(posNo,1),valuePos(posNo,2),4,4,1,angle,[0 0.5 0]); etext(' or 30 mm',0,0,4,4,1,angle,[0 0 1]); posNo=6; etext('5 cm',valuePos(posNo,1),valuePos(posNo,2),4,4,1,angle,[0.3 0 1]); posNo=11; etext('10 cm',valuePos(posNo,1),valuePos(posNo,2),4,4,1,angle,[0 0 1]); eclose % close ps output delete('myNewSymbol.psd'); % delete new symbol file if ~exist('noDemoShow') eview % start ghostview with eps-file end