summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/opl2ofm.web
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-17 07:36:47 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-17 07:36:47 +0000
commitec1b55e58ef1767afd329c2e44ebdea8fe502f89 (patch)
treeadfc94d7e4701db4efd00e929bd152d74d90d531 /Build/source/texk/web2c/omegaware/opl2ofm.web
parentf83ff5e42379a04ed7d13704e1baff7ef5cedb81 (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.web11
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|.