% name of textfile: Font path grabber (DL/Synergetics Feb 02 v1.0)
% ....

% =========

% This file requires the previous download of gonzo.ps
% available from http://www.tinaja.com/post01.asp

% Make sure the following line agrees with your gonzo.ps location
% Use DOUBLE SLASHES anytime you want a single slash in a PS string.

  (C:\\windows\\desktop\\gonzo\\gonzo.ps) run  % use internal gonzo

% ==========

% This file returns the fixed size font path of one or more selected characters.
% Note that hinting may change results for different font sizes.

% View results in log file. Ignore PDF file.

gonzo begin
gutility begin
printerror
nuisance begin



/grabfontpath {  false charpath
    
       {     (\n) print
             exch 10 string cvs  print 
             ( ) print 
             10 string cvs  print 
             ( ) print
             (moveto\n) print }

       {     exch 10 string cvs  print 
             ( ) print 
             10 string cvs  print 
             ( ) print
             (lineto\n) print }


       {/y3 exch store /x3 exch store 
        /y2 exch store /x2 exch store 
        /y1 exch store /x1 exch store 
        
        x1 10 string cvs  print ( ) print 
        y1 10 string cvs  print ( ) print 
        x2 10 string cvs  print ( ) print 
        y2 10 string cvs  print ( ) print 
        x3 10 string cvs  print ( ) print
        y3 10 string cvs  print ( ) print 

        (curveto\n) print }
         

       { (closepath \n\n) print } 


            pathforall } store
 



%%%%%%%% demo - remove or alter before reuse. %%%%%%%%%%%%%%

100 100 10 setgrid
30 50 showgrid



   /cstretch 0 store
   /sstretch 0 store
   /font1 /Helvetica-Bold 6 gonzofont
   font1 

  0 0 mt  (PI) grabfontpath

%% example should return a grabpath log of...

%%  1.352 1.556 moveto
%%  2.384 1.556 lineto
%%  3.542 1.556 3.758 2.54 3.758 2.93 curveto
%%  3.758 3.776 3.254 4.31 2.42 4.31 curveto
%%  0.452 4.31 lineto
%%  0.452 0.00200081 lineto
%%  1.352 0.00200081 lineto
%%  closepath 

%%  1.352 2.3 moveto
%%  1.352 3.566 lineto
%%  2.066 3.566 lineto
%%  2.624 3.566 2.858 3.392 2.858 2.972 curveto
%%  2.858 2.78 2.858 2.3 2.186 2.3 curveto
%%  closepath 

%%  5.288 4.31 moveto
%%  4.388 4.31 lineto
%%  4.388 0.00200081 lineto
%%  5.288 0.00200081 lineto
%%  closepath 

%%  5.67 0.0 moveto

% no showpage needed



% eof