diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-17 07:36:47 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-17 07:36:47 +0000 |
commit | ec1b55e58ef1767afd329c2e44ebdea8fe502f89 (patch) | |
tree | adfc94d7e4701db4efd00e929bd152d74d90d531 /Build/source/texk/web2c/omegaware/opl2ofm.web | |
parent | f83ff5e42379a04ed7d13704e1baff7ef5cedb81 (diff) |
Version 1.12 of omegaware font programs
git-svn-id: svn://tug.org/texlive/trunk@15332 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/opl2ofm.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/opl2ofm.web | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.web b/Build/source/texk/web2c/omegaware/opl2ofm.web index df91a25dfee..529c4afbb36 100644 --- a/Build/source/texk/web2c/omegaware/opl2ofm.web +++ b/Build/source/texk/web2c/omegaware/opl2ofm.web @@ -27,6 +27,8 @@ % Version 1.0 of OPL2OFM (March 1997) allows one to read OPL files % and generate OFM files. +% Version 1.11 (February 2000). +% Version 1.12 (September 2009) various bug fixes by Peter Breitenlohner. % Here is TeX material that gets inserted after \input webmac \def\hang{\hangindent 3em\indent\ignorespaces} @@ -47,7 +49,7 @@ \vfill \centerline{\titlefont The {\ttitlefont OPL2OFM} processor} \vskip 15pt - \centerline{(Version 1.11, February 2000)} + \centerline{(Version 1.12, September 2009)} \vfill} \def\botofcontents{\vfill \centerline{\hsize 5in\baselineskip9pt @@ -82,7 +84,7 @@ apply to the \.{OPLtoOFM} program and to \.{OFM} and \.{OPL} files. The |banner| string defined here should be changed whenever \.{OPLtoOFM} gets modified. -@d banner=='This is OPL2OFM, Version 1.11' +@d banner=='This is OPL2OFM, Version 1.12' @ This program is written entirely in standard \PASCAL, except that it has to do some slightly system-dependent character code conversion @@ -1131,6 +1133,8 @@ load4("C")("K")("R")("N")(ckrn_code);@/ load8("O")("F")("M")("L")("E")("V")("E")("L")(ofm_level_code);@/ load7("F")("O")("N")("T")("D")("I")("R")(font_dir_code);@/ load8("N")("F")("O")("N")("T")("D")("I")("R")(n_font_dir_code);@/ +load14("N")("A")("T")("U")("R")("A")("L")("F")("O")("N")("T")("D")("I")("R")(n_font_dir_code); + {compatibility with \.{omegafonts} (\.{C}) version} load10("C")("H")("A")("R")("R")("E")("P")("E")("A")("T")(char_repeat_code);@/ load10("C")("H")("A")("R")("I")("V")("A")("L")("U")("E")(char_ivalue_code);@/ load10("C")("H")("A")("R")("F")("V")("A")("L")("U")("E")(char_fvalue_code);@/ @@ -3068,7 +3072,7 @@ case ofm_level of 0: begin out(index[char_wd[c]] div 256); out(index[char_wd[c]] mod 256); out(index[char_ht[c]]); out(index[char_dp[c]]); - out(index[char_ic[c]] div 64);out((index[char_ic[c]] mod 64)*4+char_tag[c]); + out(index[char_ic[c]]); out(char_tag[c]); out(char_remainder[c] div 256); out(char_remainder[c] mod 256); end; 1: begin @@ -3093,7 +3097,6 @@ case ofm_level of end; end; - @ When a scaled quantity is output, we may need to divide it by |design_units|. The following subroutine takes care of this, using floating point arithmetic only if |design_units<>1.0|. |