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
|
