home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / util / print / draw2ps.pit / PostScript from Mac.pit / PostScript from Mac.rsrc / STR#_1001.txt < prev    next >
Encoding:
Text File  |  1987-05-20  |  627 b   |  21 lines
  1. /text {gsave translate /dy xd /dx xd dx 0.5 mul fl translate rotate dx -0.5 mul fl neg translate
  2.  
  3.   /mwid 0 def dup {stringwidth pop dup mwid gt {/mwid xd} {pop} ifelse} forall
  4.  
  5.   dup length dy exch div /lspa xd
  6.  
  7.   newpath 0 0 moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto dofill
  8.  
  9.   /y fh fl sub lspa add 2 div fh add neg def /x 0 def
  10.  
  11.   {newpath x y moveto show /y y lspa add def} forall grestore} def
  12.  
  13. /ff {/siz exch def findfont siz scalefont setfont
  14.  
  15.   currentfont /FontBBox get aload pop
  16.  
  17.   currentfont /FontMatrix get dtransform /fh xd /dx xd
  18.  
  19.   currentfont /FontMatrix get dtransform /fl xd dx exch sub /fw xd} def
  20.  
  21.