font/devps/symbolsl.ps

   1 %!PS-Adobe-3.0 Resource-Font
   2 %%DocumentNeededResources: font Symbol
   3 %%EndComments
   4
   5 % newfontname matrix oldfontname MakeTransformedFont
   6
   7 /MakeTransformedFont {
   8         findfont dup maxlength dict begin
   9                 {
  10                         exch dup dup /FID ne exch /UniqueID ne and {
  11                                 exch def
  12                         } {
  13                                 pop pop
  14                         } ifelse
  15                 } forall
  16                 % first copy FontBBox
  17                 /FontBBox
  18                 % FontBBox sometimes seems to have the executable
  19                 % attribute set
  20                 % so to get the array on the stack, we have to do this
  21                 currentdict /FontBBox get
  22                 4 array copy def
  23                 % now transform it
  24                 FontBBox aload pop
  25                 4 index transform 4 2 roll
  26                 4 index transform 4 2 roll
  27                 FontBBox astore pop
  28                 % matrix
  29                 % now transform FontMatrix
  30                 FontMatrix exch matrix concatmatrix
  31                 /FontMatrix exch def
  32                 dup /FontName exch def
  33         currentdict end
  34         definefont pop
  35 } bind def
  36
  37 %%IncludeResource: font Symbol
  38
  39 /Symbol-Slanted
  40 [.89 0.0 15.5 dup sin exch cos div .89 0.0 0.0]
  41 /Symbol
  42 MakeTransformedFont