home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / groff / devices / devps / symbolsl.ps < prev    next >
Encoding:
Text File  |  1991-04-30  |  856 b   |  41 lines
  1. %!PS-Adobe-2.1
  2. %%DocumentFonts: Symbol
  3.  
  4. % newfontname matrix oldfontname MakeTransformedFont
  5.  
  6. /MakeTransformedFont {
  7.     findfont dup maxlength dict begin
  8.         {
  9.             exch dup dup /FID ne exch /UniqueID ne and {
  10.                 exch def
  11.             } {
  12.                 pop pop
  13.             } ifelse
  14.         } forall
  15.         % first copy FontBBox
  16.         /FontBBox 
  17.         % FontBBox sometimes seems to have the executable
  18.         % attribute set
  19.         % so to get the array on the stack, we have to do this
  20.         currentdict /FontBBox get
  21.         4 array copy def
  22.         % now transform it
  23.         FontBBox aload pop
  24.         4 index transform 4 2 roll
  25.         4 index transform 4 2 roll
  26.         FontBBox astore pop
  27.         % matrix
  28.         % now transform FontMatrix
  29.         FontMatrix exch matrix concatmatrix
  30.         /FontMatrix exch def
  31.         dup /FontName exch def
  32.     currentdict end
  33.     definefont pop
  34. } bind def
  35.  
  36.  
  37. /Symbol-Slanted
  38. [.89 0.0 15.5 dup sin exch cos div .89 0.0 0.0]
  39. /Symbol
  40. MakeTransformedFont
  41.