%! % $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