ps/devps/symbolsl.ps

   1 %!PS-Adobe-3.0 Resource-Font
   2 %%DocumentNeededResources: font 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 %%IncludeResource: font Symbol
  37
  38 /Symbol-Slanted
  39 [.89 0.0 15.5 dup sin exch cos div .89 0.0 0.0]
  40 /Symbol
  41 MakeTransformedFont