From 865b2eff89886da9a17dfe4c3785d23f302a9b92 Mon Sep 17 00:00:00 2001 From: Takuji Tanaka Date: Wed, 6 Apr 2022 11:55:47 +0000 Subject: dvips: warn if interpreting OFM FONTDIR as pTeX vertical writing git-svn-id: svn://tug.org/texlive/trunk@62964 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/dvipsk/ChangeLog | 6 ++++++ Build/source/texk/dvipsk/tfmload.c | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) (limited to 'Build') diff --git a/Build/source/texk/dvipsk/ChangeLog b/Build/source/texk/dvipsk/ChangeLog index bfe6e740052..052ceed3248 100644 --- a/Build/source/texk/dvipsk/ChangeLog +++ b/Build/source/texk/dvipsk/ChangeLog @@ -1,3 +1,9 @@ +2022-02-27 TANAKA Takuji + + * tfmload.c: + Warn if interpreting OFM FONTDIR as pTeX vertical writing + with option -d 4. + 2022-03-21 Karl Berry * TL'22 release. diff --git a/Build/source/texk/dvipsk/tfmload.c b/Build/source/texk/dvipsk/tfmload.c index 722c9f5ada5..1b354834283 100644 --- a/Build/source/texk/dvipsk/tfmload.c +++ b/Build/source/texk/dvipsk/tfmload.c @@ -160,8 +160,15 @@ tfmload(register fontdesctype *curfnt) 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 */ + if (li==5) { /* interpret FONTDIR RT as pTeX vertical writing */ curfnt->dir = 9; +#ifdef DEBUG + if (dd(D_FONTS)) + fprintf_str(stderr, + "We will interpret font (%s.ofm) direction as pTeX vertical writing.\n", + curfnt->name); +#endif /* DEBUG */ + } } if (font_level>1 || hd<2 || bc<0 || ec<0 || nw<0 || bc>ec+1 || ec>65535 || nw>65536) -- cgit v1.2.3