summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/tfmload.c
diff options
context:
space:
mode:
authorTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-02-27 10:34:32 +0000
committerTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-02-27 10:34:32 +0000
commit89919853af98366b60aa89e21803ba5e54278957 (patch)
tree3399ed767168d6078f0b1544b7de74d7f9fa77aa /Build/source/texk/dvipsk/tfmload.c
parent901b17cb4863c29f2ad8eae27cbc34edf49735cb (diff)
dvips: Interpret FONTDIR RT in OFM as pTeX vertical writing
git-svn-id: svn://tug.org/texlive/trunk@62223 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/tfmload.c')
-rw-r--r--Build/source/texk/dvipsk/tfmload.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/Build/source/texk/dvipsk/tfmload.c b/Build/source/texk/dvipsk/tfmload.c
index cd507d0c2bd..0c721bbebc2 100644
--- a/Build/source/texk/dvipsk/tfmload.c
+++ b/Build/source/texk/dvipsk/tfmload.c
@@ -175,6 +175,11 @@ tfmload(register fontdesctype *curfnt)
bc = tfm32(); ec = tfm32();
nw = tfm32();
for (i=0; i<8; i++) li=tfm32();
+ if (!noptex && font_level==1 && ec>=0x2E00) {
+ curfnt->iswide = 1;
+ if (li==5) /* interpret FONTDIR RT as pTeX vertical writing */
+ curfnt->dir = 9;
+ }
if (font_level>1 || hd<2 || bc<0 || ec<0 || nw<0
|| bc>ec+1 || ec>65535 || nw>65536)
badtfm("header");