summaryrefslogtreecommitdiff
path: root/dviware/dvitops/symbolsl.ps
blob: a92398d4847a5d498a7af159d5d5bc28de07c8de (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
%! 
% $Header: /usr/jjc/dvitops/RCS/symbolsl.ps,v 1.1 89/02/01 16:41:50 jjc Rel $

/slantmatrix matrix def

% oldfontname newfontname angle MakeSlantedFont

/MakeSlantedFont {
	slantmatrix exch dup sin exch cos div 2 exch put
	exch
	findfont dup maxlength dict begin
		dup {
			exch dup dup /FID ne exch /UniqueID ne and {
				exch def
			} {
				pop pop
			} ifelse
		} forall
		dup 
		/FontBBox 
			exch /FontBBox get aload pop
			slantmatrix transform 4 2 roll slantmatrix transform 4 2 roll
			4 array	astore
		def
		/FontMatrix exch /FontMatrix get slantmatrix matrix concatmatrix def
		dup /FontName exch def
	currentdict end
	definefont pop
} bind def


/Symbol /Symbol-Slanted 15.5 MakeSlantedFont