/contrib/groff/font/devps/symbolsl.ps
Unknown | 41 lines | 37 code | 4 blank | 0 comment | 0 complexity | 493293dd04c5b8d4e4dcab451be7350f MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, BSD-3-Clause, LGPL-2.0, LGPL-2.1, BSD-2-Clause, 0BSD, JSON, AGPL-1.0, GPL-2.0
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 41MakeTransformedFont