summaryrefslogtreecommitdiff
path: root/dviware/dvitops/timessl.ps
blob: 894601ddc5f0764238445631fa90d62b52568853 (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/timessl.ps,v 1.1 89/02/01 09:25:41 jjc Rel $
% implements Times-Slanted.ps

/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


/Times-Roman /Times-Slanted 9 MakeSlantedFont