Font list - EpsTk

# Font list

>     eopen('demo15.eps');
>     eglobpar;

>     %a few global parameter
>     eTextFontSize=3.5;
>     Space=2;

>     %titel
>     etext('Fonts of epsTk',eWinWidth/2,230,9,0,1);

>     % text
>     etext('Base Font List:',0.1,220,5,1,1);
>     y=eWinHeight-30;
>     for i=1:32
>       y=y-eTextFontSize-Space;
>       text=sprintf('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz Font No.: %d',i);
>       etext(text,1,y,eTextFontSize,1,i);
>     end

>     y=y-5-Space;
>     etext('Additional Font(s):',0.1,y,5,1,1);
>     fontName='SMonoHand';
>     fontNo=edfont('SMonoHand.pfa',fontName);
>     text=sprintf('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz Font: %s',fontName);
>     y=y-eTextFontSize-Space;
>     etext(text,1,y,eTextFontSize,1,fontNo);
>     fontName='LayneLighthouse';
>     fontNo=edfont('LayneLighthouse.pfa',fontName);
>     text=sprintf('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz Font: %s',fontName);
>     y=y-eTextFontSize-Space;
>     etext(text,1,y,eTextFontSize,1,fontNo);

>     eclose;
>     ebbox(5);
>     if ~exist('noDemoShow')
>      eview                                   % start ghostview with eps-file
>     end

Close