/contrib/groff/font/devps/symbolsl.ps

https://bitbucket.org/freebsd/freebsd-head/ · Unknown · 41 lines · 37 code · 4 blank · 0 comment · 0 complexity · 493293dd04c5b8d4e4dcab451be7350f MD5 · raw file

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