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
|