PageRenderTime 21ms CodeModel.GetById 14ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 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