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