summaryrefslogtreecommitdiffstats
path: root/font/devps/symbolsl.ps
blob: ac3810eaa1278e5a5db632042f85826daf077372 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
%!PS-Adobe-3.0 Resource-Font
%%DocumentNeededResources: font Symbol
%%EndComments

% newfontname matrix oldfontname MakeTransformedFont

/MakeTransformedFont {
	findfont dup maxlength dict begin
		{
			exch dup dup /FID ne exch /UniqueID ne and {
				exch def
			} {
				pop pop
			} ifelse
		} forall
		% first copy FontBBox
		/FontBBox 
		% FontBBox sometimes seems to have the executable
		% attribute set
		% so to get the array on the stack, we have to do this
		currentdict /FontBBox get
		4 array copy def
		% now transform it
		FontBBox aload pop
		4 index transform 4 2 roll
		4 index transform 4 2 roll
		FontBBox astore pop
		% matrix
		% now transform FontMatrix
		FontMatrix exch matrix concatmatrix
		/FontMatrix exch def
		dup /FontName exch def
	currentdict end
	definefont pop
} bind def

%%IncludeResource: font Symbol

/Symbol-Slanted
[.89 0.0 15.5 dup sin exch cos div .89 0.0 0.0]
/Symbol
MakeTransformedFont