summaryrefslogtreecommitdiff
path: root/dviware/dvitops/symbolsl.ps
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/dvitops/symbolsl.ps')
-rw-r--r--dviware/dvitops/symbolsl.ps33
1 files changed, 33 insertions, 0 deletions
diff --git a/dviware/dvitops/symbolsl.ps b/dviware/dvitops/symbolsl.ps
new file mode 100644
index 0000000000..a92398d484
--- /dev/null
+++ b/dviware/dvitops/symbolsl.ps
@@ -0,0 +1,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
+