diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/ppchtex.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/ppchtex.tex | 57 |
1 files changed, 29 insertions, 28 deletions
diff --git a/Master/texmf-dist/tex/context/base/ppchtex.tex b/Master/texmf-dist/tex/context/base/ppchtex.tex index f2a022b20d5..13c457800b5 100644 --- a/Master/texmf-dist/tex/context/base/ppchtex.tex +++ b/Master/texmf-dist/tex/context/base/ppchtex.tex @@ -19,7 +19,7 @@ % constante van phantom in definitie ONE: \setchemicaltextwidth 300 % % it would be interesting to rewrite this module with todays -% experiences and new context functionality, mybe ... +% experiences and new context functionality, maybe ... % Deze module ondersteunt het zetten van chemische % (structuur)formules. Hoewel de macro' zijn afgestemd op @@ -297,7 +297,7 @@ % and/or LaTeX2e we had to force \@@dochemicalstyle. Otherwise % some weird \nullfont error comes up. -\def\beginlatexmathmodehack% +\def\beginlatexmathmodehack {\ifmmode \let\endlatexmathmodehack=\relax \else @@ -320,7 +320,7 @@ \global\loweredsubscriptstrue \endlatexmathmodehack} -\def\resetsubscripts% +\def\resetsubscripts {\ifloweredsubscripts \beginlatexmathmodehack \def\doresetsubscript##1##2% @@ -337,14 +337,14 @@ \endlatexmathmodehack \fi} -\def\doresetsubscripts% +\def\doresetsubscripts {\resetsubscripts} -\def\sethighsubscripts% +\def\sethighsubscripts {\resetsubscripts \let\dosetsubscripts=\relax} -\def\setlowsubscripts% +\def\setlowsubscripts {\def\dosetsubscripts{\setsubscripts}} \setlowsubscripts @@ -771,7 +771,7 @@ \def\@@chemicalpostponed{}% \complexorsimpleempty\startchemical} -\def\startchemical% +\def\startchemical {\bgroup % t.b.v. ungrouped floats % \loadchemicaldimensions % \ifskipchemical @@ -785,7 +785,7 @@ % \fi \dostartchemical} -\def\stopchemical% +\def\stopchemical {%\ifskipchemical % \getchemicaldimensions{\dimen0}{\dimen2}{\dimen4}% % \dimen8=\dimen2\advance\dimen8 by \dimen4 @@ -864,7 +864,7 @@ \setcoordinatesystem point at {\the\horchemical} {\the\verchemical} \fi} -\def\resetchemicalcoordinates% +\def\resetchemicalcoordinates {\horchemical=0 \verchemical=0 \edef\chemicalxoffset{0}% @@ -875,7 +875,7 @@ \setcoordinatesystem point at 0 0 \fi} -\def\restorechemicalcoordinates% +\def\restorechemicalcoordinates {%\writestatus{ppchtex}{restoring \the\horchemical,\the\verchemical}% \edef\chemicalxoffset{\the\horchemical}% \edef\chemicalyoffset{\the\verchemical}% @@ -1745,7 +1745,7 @@ {$\simplechemical{#1}{#2}{#3}$% \egroup} % erbij -\def\simplechemical% +\def\simplechemical {\ifinner \innerchemicaltrue \else @@ -1865,7 +1865,7 @@ \processcommalist[\@@chemicaloffset,#1]\dodoprocesschemical}% \ignorespaces} -\def\chemicaloxidation#1#2#3% +\unexpanded\def\chemicaloxidation#1#2#3% {\chemicaltop {\ifnum#20=0 0% @@ -1879,11 +1879,11 @@ \def\chemicallfraction{\ifinchemical.1\else.1\fi} \def\chemicalrfraction{\ifinchemical.1\else.1\fi} -\def\chemicaltighttext% +\def\chemicaltighttext {\def\chemicaltfraction{\ifinchemical.3\else.6\fi}% \def\chemicalbfraction{\ifinchemical.2\else.4\fi}% - \def\chemicallfraction{\ifinchemical0\else0\fi}% - \def\chemicalrfraction{\ifinchemical0\else0\fi}} + \def\chemicallfraction{\ifinchemical 0\else 0\fi}% + \def\chemicalrfraction{\ifinchemical 0\else 0\fi}} \def\dochemicaltop#1#2#3#4% {\vbox @@ -2067,7 +2067,7 @@ \setvalue{\s!chemical\c!x1}{0} \setvalue{\s!chemical\c!y1}{0} -\def\executechemicalSAVE% +\def\executechemicalSAVE {%\writestatus{ppchtex}{saving \the\horchemical,\the\verchemical}% \advance\chemicalstack by 1 \letvalue {\s!chemical n\the\chemicalstack}=\chemicalname @@ -2080,7 +2080,7 @@ \doifdefined{\s!executechemical#1}{\getvalue{\s!executechemical#1}[]}% \let\processchemical=\oldprocesschemical} -\def\executechemicalRESTORE% +\def\executechemicalRESTORE {\ifnum\chemicalstack=0\relax \horchemical=\getvalue{\s!chemical x1}\relax \verchemical=\getvalue{\s!chemical y1}\relax @@ -2142,18 +2142,18 @@ {\ifdim\ht4>\!!zeropoint\box4\fi}% % expands to \empty in test \egroup} -\def\chemicalsingleouterarrow% +\def\chemicalsingleouterarrow {\dochemicalouterarrow {\hbox to \dimen2{\rightarrowfill}}} -\def\chemicaldoubleouterarrow% +\def\chemicaldoubleouterarrow {\dochemicalouterarrow {\lower.5\ht0\vbox {\offinterlineskip \hbox to \dimen2{\rightarrowfill} \hbox to \dimen2{\leftarrowfill}}}} -\def\chemicaltwintipouterarrow% +\def\chemicaltwintipouterarrow {\dochemicalouterarrow {\hbox {\hbox to \dimen2{\rightarrowfill}% @@ -2366,7 +2366,7 @@ MOV##4##5=>\processchemicaltranslate{##4##5}, DIR##4##5=>\processchemicaldirection{##4##5}, OFF##4##5=>\processchemicaloffset{##4##5}, -CCD##4##5=>\processchemicaldottsegment{CC}{##4##5}, + CCD##4##5=>\processchemicaldottsegment{CC}{##4##5}, LDD##4##5=>\processchemicaldashedlinesegment{DB1}{##4##5}% \processchemicallinesegment{DB2}{##4##5}, RDD##4##5=>\processchemicallinesegment{DB1}{##4##5}% @@ -2638,10 +2638,10 @@ CCD##4##5=>\processchemicaldottsegment{CC}{##4##5}, -RB##4=>\processchemicaldeltalinesegment{-R}{##4}, +RB##4=>\processchemicaldeltalinesegment{+R}{##4}, CRZ##4=>\processchemicaltextelement{CRZ}{##4}{#1}{0}{}, -RTN##4=>\processchemicaltextconstant{RTN}{##4}{\chemicaltextelementnumber}{0}, -RTT##4=>\processchemicaltextelement{RTN}{##4}{#1}{0}{}, -RBN##4=>\processchemicaltextconstant{RBN}{##4}{\chemicaltextelementnumber}{0}, -RBT##4=>\processchemicaltextelement{RBN}{##4}{#1}{0}{}, + RTN##4=>\processchemicaltextconstant{RTN}{##4}{\chemicaltextelementnumber}{0}, + RTT##4=>\processchemicaltextelement{RTN}{##4}{#1}{0}{}, + RBN##4=>\processchemicaltextconstant{RBN}{##4}{\chemicaltextelementnumber}{0}, + RBT##4=>\processchemicaltextelement{RBN}{##4}{#1}{0}{}, -SS##4=>\processchemicallinesegment{-SS}{##4}, +SS##4=>\processchemicallinesegment{+SS}{##4}, CCD##4=>\processchemicaldottsegment{CC}{##4}, @@ -2650,8 +2650,8 @@ RBT##4=>\processchemicaltextelement{RBN}{##4}{#1}{0}{}, RB##3##4=>\processchemicaldeltalinesegment{R}{##3##4}, ZN##3##4=>\processchemicaltextconstant{ZN}{##3##4}{\chemicaltextelementnumber}{0}, ZT##3##4=>\processchemicaltextelement{ZN}{##3##4}{#1}{0}{}, -RN##3##4=>\processchemicaltextconstant{RN}{##3##4}{\chemicaltextelementnumber}{0}, -RT##3##4=>\processchemicaltextelement{RN}{##3##4}{#1}{0}{}, + RN##3##4=>\processchemicaltextconstant{RN}{##3##4}{\chemicaltextelementnumber}{0}, + RT##3##4=>\processchemicaltextelement{RN}{##3##4}{#1}{0}{}, AU##3##4=>\processchemicaluparrowsegment{A}{##3##4}, AD##3##4=>\processchemicaldownarrowsegment{A}{##3##4}, CC##3##4=>\processchemicalcircsegment{CC}{##3##4}, @@ -3367,7 +3367,8 @@ RT##3##4##5=>\processchemicaltextelement{RN}{##3##4##5}{#1}{0}{}, %D \item styles hooked into \CONTEXT\ style mechanism %D \item support for color and rulethickness (mp mode only) %D \item position tracking -%D \stopopsoming +%D \stopitemize + \ifCONTEXT \else \protect \endinput \fi |