summaryrefslogtreecommitdiff
path: root/dviware/dvitops/timessl.ps
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/dvitops/timessl.ps
Initial commit
Diffstat (limited to 'dviware/dvitops/timessl.ps')
-rw-r--r--dviware/dvitops/timessl.ps33
1 files changed, 33 insertions, 0 deletions
diff --git a/dviware/dvitops/timessl.ps b/dviware/dvitops/timessl.ps
new file mode 100644
index 0000000000..894601ddc5
--- /dev/null
+++ b/dviware/dvitops/timessl.ps
@@ -0,0 +1,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