CTAN sync 202104200300

1 files changed, 226 insertions, 0 deletions

diff --git a/macros/optex/base/fonts-opmac.opm b/macros/optex/base/fonts-opmac.opm
new file mode 100644
index 0000000000..3ae2f0c5e1
--- /dev/null
+++ b/macros/optex/base/fonts-opmac.opm
@@ -0,0 +1,226 @@
+%% This is part of the OpTeX project, see http://petr.olsak.net/optex
+
+\_codedecl \typosize {Font managing macros from OPmac <2021-03-10>} % loaded in format
+
+   \_doc -----------------------------
+   \`\typosize` `[<font-size>/<baselineskip>]` sets given parameters.
+   It sets text font size by the \^`\setfontsize` macro and math font sizes
+   by setting internal macros \^`\_sizemtext`, \^`\_sizemscript` and
+   \^`\_sizemsscript`. It uses common concept font sizes: 100\,\%,
+   70\,\% and 50\,\%.
+   The \^`\_setmainvalues` sets the parameters as main values when
+   the `\_typosize` is called first.
+   \_cod -----------------------------
+
+\_protected\_def \_typosize [#1/#2]{%
+   \_textfontsize{#1}\_mathfontsize{#1}\_setbaselineskip{#2}%
+   \_setmainvalues \_ignorespaces
+}
+\_protected\_def \_textfontsize #1{\_if$#1$\_else \_setfontsize{at#1\_ptunit}\_fi}
+
+\_def \_mathfontsize #1{\_if$#1$\_else
+    \_tmpdim=#1\_ptunit
+    \_edef\_sizemtext{\_ea\_ignorept \_the\_tmpdim \_ptmunit}%
+    \_tmpdim=0.7\_tmpdim
+    \_edef\_sizemscript{\_ea\_ignorept \_the\_tmpdim \_ptmunit}%
+    \_tmpdim=#1\_ptunit \_tmpdim=0.5\_tmpdim
+    \_edef\_sizemsscript{\_ea\_ignorept \_the\_tmpdim \_ptmunit}%
+    \_fi
+}
+\_public \typosize ;
+
+   \_doc -----------------------------
+   \`\typoscale` `[<font-factor>/<baseline-factor>]` scales
+   font size and baselineskip by given factors in respect to current values.
+   It calculates the \^`\typosize` parameters and runs the \^`\typosize`.
+   \_cod -----------------------------
+
+\_protected\_def \_typoscale [#1/#2]{%
+   \_ifx$#1$\_def\_tmp{[/}\_else
+      \_settmpdim{#1}\_optsize
+      \_edef\_tmp{[\_ea\_ignorept\_the\_tmpdim/}\_fi
+   \_ifx$#2$\_edef\_tmp{\_tmp]}\_else
+      \_settmpdim{#2}\_baselineskip
+      \_edef\_tmp{\_tmp \_ea\_ignorept\_the\_tmpdim]}\_fi
+   \_ea\_typosize\_tmp
+}
+\_def\_settmpdim#1#2{%
+   \_tmpdim=#1pt \_divide\_tmpdim by1000
+   \_tmpdim=\_ea\_ignorept \_the#2\_tmpdim
+}
+\_public \typoscale ;
+
+   \_doc -----------------------------
+   \`\_setbaselineskip` `{<baselineskip>}` sets new `\baselineskip` and
+   more values of registers which are dependent on the `<baselineskip>`
+   including the \^`\strutbox`.
+   \_cod -----------------------------
+
+\_def \_setbaselineskip #1{\_if$#1$\_else
+   \_tmpdim=#1\_ptunit
+   \_baselineskip=\_tmpdim \_relax
+   \_bigskipamount=\_tmpdim plus.33333\_tmpdim minus.33333\_tmpdim
+   \_medskipamount=.5\_tmpdim plus.16666\_tmpdim minus.16666\_tmpdim
+   \_smallskipamount=.25\_tmpdim plus.08333\_tmpdim minus.08333\_tmpdim
+   \_normalbaselineskip=\_tmpdim
+   \_jot=.25\_tmpdim
+   \_maxdepth=.33333\_tmpdim
+   \_setbox\_strutbox=\_hbox{\_vrule height.709\_tmpdim depth.291\_tmpdim width0pt}%
+   \_fi
+}
+
+   \_doc -----------------------------
+   \`\_setmainvalues` sets the current font size and `\baselineskip`
+   values to the \`\mainfosize` and \hbox{\`\mainbaselineskip`} registers
+   and loads fonts at given sizes.
+   It redefines itself as \`\_setmainvaluesL`
+   to set the main values only first. The \^`\_setmainvaluesL` does only
+   fonts loading.
+   \nl
+   \`\scalemain` returns to these values if they were set. Else they are set
+   to 10/12\,pt.
+   \nl
+   \`\mfontsrule` gives the rule how math fonts are loaded when \^`\typosize`
+   or \^`\typoscale` are used. The value of \^`\mfontsrule` can be:
+   \begitems
+   * 0: no math fonts are loaded. User must use \^`\normalmath` or \^`\boldmath` explicitly.
+   * 1: `\_normalmath` is run if \^`\typosize`/\^`\typoscale` are used
+        first or they are run at outer group level. No
+        `\everymath`/`\everydisplay` are set in this case. If
+        \^`\typosize`/\^`\typoscale` are run repeatedly in a group then `\_normalmath` is
+        run only when math formula occurs. This is done using
+        `\everymath`/`\everydisplay` and \^`\_setmathfonts`.
+        \^`\mfontsrule=1` is default.
+   * 2: `\_normalmath` is run whenever \^`\typosize`/\^`\typoscale` are used.
+        `\everymath`/`\everydisplay` registers are untouched.
+   \enditems
+   \_cod -----------------------------
+
+\_newskip   \_mainbaselineskip   \_mainbaselineskip=0pt \_relax
+\_newdimen  \_mainfosize         \_mainfosize=0pt
+\_newcount  \_mfontsrule         \_mfontsrule=1
+
+\_def\_setmainvalues {%
+   \_mainbaselineskip=\_baselineskip
+   \_mainfosize=\_optsize
+   \_topskip=\_mainfosize \_splittopskip=\_topskip
+   \_ifmmode \_else \_bf \_it \_bi \_rm \_fi % load all basic variants of the family
+   \_ifnum \_mfontsrule>0 \_normalmath \_fi  % load math fonts first
+   \_let \_setmainvalues =\_setmainvaluesL
+}
+\_def\_setmainvaluesL {\_relax \_ifmmode \_else \_rm \_fi % load text font
+   \_ifcase \_mfontsrule                                  % load math fonts
+   \_or \_ifnum\_currentgrouplevel=0 \_normalmath
+        \_else \_everymath={\_setmathfonts}\_everydisplay={\_normalmath}%
+               \_let\_runboldmath=\_relax \_fi
+   \_or \_normalmath \_fi}
+\_def\_scalemain {%
+   \_ifdim \_mainfosize=\_zo
+       \_mainfosize=10pt  \_mainbaselineskip=12pt
+       \_let \_setmainvalues=\_setmainvaluesL
+    \_fi
+   \_optsize=\_mainfosize  \_baselineskip=\_mainbaselineskip
+}
+\_public \scalemain \mainfosize \mainbaselineskip \mfontsrule ;
+
+   \_doc -----------------------------
+   Suppose following example:
+   `{\typosize[13/15] Let $M$ be a subset of $R$ and $x\in M$...}`
+   If \^`\mfontsrule=1` then \^`\typosize` does not load math fonts
+   immediatelly but at the first math formula. It is done by `\everymath`
+   register, but the contents of this register is processed inside the math
+   group. If we do `\everymath={\_normalmath}` then this complicated macro
+   will be processed three times in your example above. We want only one
+   pocessing, so we do `\everymath={`\`\_setmathfonts``}` and
+   this macro closes math mode first, loads fonts and opens math mode again.
+   \_cod -----------------------------
+
+\_def\_setmathfonts{$\_normalmath\_everymath{}\_everydisplay{}$}
+
+   \_doc -----------------------------
+   \`\thefontsize` `[<size>]` and \`\thefontscale` `[<factor>]`
+    do modification of the size of the current font. They are implemented by the
+   \^`\newcurrfontsize` macro.
+   \_cod -----------------------------
+
+\_protected\_def\_thefontsize[#1]{\_if$#1$\_else
+     \_tmpdim=#1\_ptunit
+     \_newcurrfontsize{at\_tmpdim}%
+  \_fi
+  \_ignorespaces
+}
+\_protected\_def\_thefontscale[#1]{\_ifx$#1$\_else
+     \_tmpdim=#1pt \_divide\_tmpdim by1000
+     \_tmpdim=\_ea\_ea\_ea\_ignorept \_pdffontsize\_font \_tmpdim
+     \_newcurrfontsize{at\_tmpdim}%
+  \_fi
+  \_ignorespaces
+}
+\_public \thefontsize \thefontscale ;
+
+   \_doc -----------------------------
+   \`\em` keeps the weight of the current variant and switches
+   roman $\leftrightarrow$ italic. It adds the italic correction by
+   the \`\_additcorr` and \`\_afteritcorr` macros. The second does not
+   add italic correction if the next character is dot or comma.
+   \_cod -----------------------------
+
+\_protected\_def\_em {%
+   \_ea\_ifx \_the\_font \_tenit \_additcorr \_rm  \_else
+   \_ea\_ifx \_the\_font \_tenbf \_bi\_aftergroup\_afteritcorr\_else
+   \_ea\_ifx \_the\_font \_tenbi \_additcorr \_bf  \_else
+   \_it \_aftergroup\_afteritcorr\_fi\_fi\_fi
+}
+\_def\_additcorr{\_ifdim\_lastskip>\_zo
+   \_skip0=\_lastskip \_unskip\_italcorr \_hskip\_skip0 \_else\_italcorr \_fi}
+\_def\_afteritcorr{\_futurelet\_next\_afteritcorrA}
+\_def\_afteritcorrA{\_ifx\_next.\_else\_ifx\_next,\_else \_italcorr \_fi\_fi}
+\_let\_italcorr=\/
+
+   \_doc -----------------------------
+   The \`\boldify` macro does `\let\rm\bf`, `\let\it\bi` and
+   `\let\normalmath=\boldmath`. All following text will be in bold.
+   If should be used after \^`\typosize` or \^`\typoscale` macros.\nl
+   The internal \`\_runboldmath` macro runs `\_boldmath` immediatelly
+   if no delay of the math font loading is set by \^`\_setmainvaluesL`.\nl
+   The `\rm`, `\it` in math mode must keep its original meaning.
+   \_cod -----------------------------
+
+\_protected\_def \_boldify {%
+   \_let \_setmainvalues=\_setmainvaluesL
+   \_let\it =\_bi \_let\rm =\_bf \_let\_normalmath=\_boldmath \_bf
+   \_runboldmath
+   \_ifx\_ncharrmA\_undefined \_protected\_addto\rm{\_fam0 }\_protected\_addto\it{\_fam1 }%
+   \_else \_protected\_def\rm {\_tryloadbf \_tenbf \_inmath{\_rmvariables \_rmdigits}}%
+          \_protected\_def\it {\_tryloadbi \_tenbi \_inmath{\_itvariables}}%
+   \_fi
+}
+\_def\_runboldmath{\_boldmath}
+
+\_public \em \boldify ;
+
+   \_doc -----------------------------
+   We need to use a font selector for default pagination. Because we don't
+   know what default font size will be selected by the user, we use this
+   \`\_rmfixed` macro. It sets the `\rm` font from the default font size
+   (declared by first \^`\typosize` command and redefines itself be only
+   the font switch for the next pages.
+   \_cod -----------------------------
+
+\_def \_rmfixed {% used in default \footline
+   {\_ifdim\_mainfosize=0pt \_mainfosize=10pt \_fi
+    \_fontdef\_tenrm{\_setfontsize{at\mainfosize}\_resetmod\_rm}%
+    \_global\_let\_rmfixed=\_tenrm}% next use will be font switch only
+   \_rmfixed
+}
+\_let \rmfixed = \_tenrm % user can redefine it
+
+\_endcode % -------------------------------------
+
+History:
+2021-03-10 \boldify corrected
+2021-03-09 \mfontsrule and \_setmathfonts introduced
+2020-12-12 \_rmfixed fixed
+2020-04-28 \boldify: removed \let\_rm=\_bf
+2020-04-14 \_setmainvaluesL: \_ifmmode test added
+2020-03-27 \_setmainvalues: \_splittopskip=\_topskip added