diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/xymtex/chemist |
Initial commit
Diffstat (limited to 'macros/latex/contrib/xymtex/chemist')
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/assurechemist.dtx | 279 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/assurechemist.ins | 43 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/assurechemist.sty | 92 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemist.dtx | 3349 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemist.ins | 63 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemist.sty | 1492 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemtimes.dtx | 839 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemtimes.ins | 42 | ||||
-rw-r--r-- | macros/latex/contrib/xymtex/chemist/chemtimes.sty | 515 |
9 files changed, 6714 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/chemist/assurechemist.dtx b/macros/latex/contrib/xymtex/chemist/assurechemist.dtx new file mode 100644 index 0000000000..c8d5566525 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/assurechemist.dtx @@ -0,0 +1,279 @@ +% \iffalse meta-comment +%% File: assurechemist.dtx +% +% Copyright 2010 by Shinsaku Fujita +% +% This file is part of XyMTeX system. +% ------------------------------------- +% +% This file (assurechemist.sty) is a successor to: +% +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00} +% \typeout{ -- Released December 1, 1993 by Shinsaku Fujita} +% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved. +% +% This file is a part of the macro package ``XyMTeX'' which has been +% designed for typesetting chemical structural formulas. +% +% This file is to be contained in the ``xymtex'' directory which is +% an input directory for TeX. It is a LaTeX optional style file and +% should be used only within LaTeX, because several macros of the file +% are based on LaTeX commands. +% +% For the review of XyMTeX, see +% (1) Shinsaku Fujita, ``Typesetting structural formulas with the text +% formatter TeX/LaTeX'', Computers and Chemistry, in press. +% The following book deals with an application of TeX/LaTeX to +% preparation of manuscripts of chemical fields: +% (2) Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' +% Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese]. +% +% This work may be distributed and/or modified under the +% conditions of the LaTeX Project Public License, either version 1.3 +% of this license or (at your option) any later version. +% The latest version of this license is in +% http://www.latex-project.org/lppl.txt +% and version 1.3 or later is part of all distributions of LaTeX +% version 2005/12/01 or later. +% +% This work has the LPPL maintenance status `maintained'. +% The Current Maintainer of this work is Shinsaku Fujita. +% +% This work consists of the files assurechemist.dtx and assurechemist.ins +% and the derived file lewisstruc.sty. +% +% Please report any bugs, comments, suggestions, etc. to: +% Shinsaku Fujita, +% Shonan Institute of Chemoinformatics and Mathematical Chemistry +% Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun, Kanagawa 250-0019 Japan +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{assurechemist} +% \def\versi@ndate{October 01, 2010} +% \def\versi@nno{ver5.00} +% \def\copyrighth@lder{SF}% Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% \fi +% +% \CheckSum{101} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +% \setcounter{StandardModuleDepth}{1} +% +% \StopEventually{} +% \MakeShortVerb{\|} +% +% \iffalse +% \changes{v5.00}{2010/10/01}{First release for XyMTeX5.00} +% \fi +% +% \iffalse +%<*driver> +\NeedsTeXFormat{pLaTeX2e} +% \fi +\ProvidesFile{assurechemist.dtx}[2010/10/01 v5.00 assurechemist package file] +% \iffalse +\documentclass{ltxdoc} +\GetFileInfo{lewisstruc.dtx} +% +% %%XyMTeX Logo: Definition 2%%% +\def\UPSILON{\char'7} +\def\XyM{X\kern-.30em\smash{% +\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}} +\def\XyMTeX{\XyM\kern-.1em\TeX} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\title{Dummy Declarations for Assuring the \protect\TeX/\protect\LaTeX{} Mode +by {\sffamily assurechemist.sty} +(\fileversion) of \XyMTeX{}} +\author{Shinsaku Fujita \\ +Shonan Institute of Chemoinformatics and +Mathematical Chemistry \\ +Kanagawa, 258-0019 Japan +} +\date{\filedate} +% +\begin{document} + \maketitle + \DocInput{assurechemist.dtx} +\end{document} +%</driver> +% \fi +% +% \section{Introduction}\label{assurechemist:intro} +% +% \subsection{Options for {\sffamily docstrip}} +% +% \DeleteShortVerb{\|} +% \begin{center} +% \begin{tabular}{|l|l|} +% \hline +% \emph{option} & \emph{function}\\ \hline +% assurechemist & assurechemist.sty \\ +% driver & driver for this dtx file \\ +% \hline +% \end{tabular} +% \end{center} +% \MakeShortVerb{\|} +% +% \subsection{Version Information} +% +% \begin{macrocode} +%<*assurechemist> +\typeout{Part of XyMTeX for Drawing Chemical Structural Formulas. Version 5.00} +\typeout{ -- Released October 01, 2010 by Shinsaku Fujita} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\j@urnalname{assurechemist} +\def\versi@ndate{October 01, 2010} +\def\versi@nno{ver5.00} +\def\copyrighth@lder{SF} % Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% +\space[\copyrighth@lder]} +% \end{macrocode} +% +% \begin{macrocode} +%\RequirePackage{chemist} +% \end{macrocode} +% +% \section{Dummy Declarations} +% If a document written by using the \textsf{chemist} package in the PostScript or PDF mode +% is processed by the TeX/LaTeX mode, some commands for the PS or PDF mode +% (defined in the \textsf{chmst-ps} or \textsf{chmst-pdf} package) cause errors of non-existence. +% To avoid these errors, dummy commands are defined as follows. +% These dummy commands are overwritten or replaced by equivalent commands +% when processed by the PS or PDF mode. +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macrocode} +\def\notdefinedarrows#1{% + \XyMTeXWarning{The command + \expandafter\string\csname #1\endcsname\space is unavailable in TeX/LaTeX mode. ^^J + Please try the PostScript or PDF mode}} +% \end{macrocode} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newllongrightarrow} +% \begin{macro}{\newllongleftarrow} +% \begin{macro}{\newllongleftrightarrow} +% \begin{macro}{\newEquilibarrow} +% \begin{macrocode} +\def\newllongrightarrow{\notdefinedarrows{newllongrightarrow}} +\def\newllongleftarrow{\notdefinedarrows{newllongleftarrow}} +\def\newllongleftrightarrow{\notdefinedarrows{newllongleftrightarrow}} +\def\newEquilibarrow{\notdefinedarrows{newEquilibarrow}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newLlongrightarrow} +% \begin{macro}{\newLlongleftarrow} +% \begin{macro}{\newLlongleftrightarrow} +% \begin{macrocode} +\def\newLlongrightarrow{\notdefinedarrows{newLlongrightarrow}} +\def\newLlongleftarrow{\notdefinedarrows{newLlongleftarrow}} +\def\newLlongleftrightarrow{\notdefinedarrows{newLlongleftrightarrow}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newlllongrightarrow} +% \begin{macro}{\newlllongleftarrow} +% \begin{macro}{\newlllongleftrightarrow} +% \begin{macro}{\newEquiliblongarrow} +% \begin{macrocode} +\def\newlllongrightarrow{\notdefinedarrows{newlllongrightarrow}} +\def\newlllongleftarrow{\notdefinedarrows{newlllongleftarrow}} +\def\newlllongleftrightarrow{\notdefinedarrows{newlllongleftrightarrow}} +\def\newEquiliblongarrow{\notdefinedarrows{newEquiliblongarrow}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newLllongrightarrow} +% \begin{macro}{\newLllongleftarrow} +% \begin{macro}{\newLllongleftrightarrow} +% \begin{macrocode} +\def\newLllongrightarrow{\notdefinedarrows{newLllongrightarrow}} +\def\newLllongleftarrow{\notdefinedarrows{newLllongleftarrow}} +\def\newLllongleftrightarrow{\notdefinedarrows{newLllongleftrightarrow}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newllongrightharpoonup} +% \begin{macro}{\newllongrightharpoondown} +% \begin{macro}{\newllongleftharpoonup} +% \begin{macro}{\newllongleftharpoondown} +% \begin{macrocode} +\def\newllongrightharpoonup{\notdefinedarrows{newllongrightharpoonup}} +\def\newllongrightharpoondown{\notdefinedarrows{newllongrightharpoondown}} +\def\newllongleftharpoonup{\notdefinedarrows{newllongleftharpoonup}} +\def\newllongleftharpoondown{\notdefinedarrows{newllongleftharpoondown}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newlllongrightharpoonup} +% \begin{macro}{\newlllongrightharpoondown} +% \begin{macro}{\newlllongleftharpoonup} +% \begin{macro}{\newlllongleftharpoondown} +% \begin{macrocode} +\def\newlllongrightharpoonup{\notdefinedarrows{newlllongrightharpoonup}} +\def\newlllongrightharpoondown{\notdefinedarrows{newlllongrightharpoondown}} +\def\newlllongleftharpoonup{\notdefinedarrows{newlllongleftharpoonup}} +\def\newlllongleftharpoondown{\notdefinedarrows{newlllongleftharpoondown}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \changes{v5.00}{2010/10/01}{Warning of non-existence} +% \begin{macro}{\newequilibarrow} +% \begin{macro}{\newequiliblongarrow} +% \begin{macrocode} +\def\newequilibarrow{\notdefinedarrows{newequilibarrow}} +\def\newequiliblongarrow{\notdefinedarrows{newequiliblongarrow}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\chmstpspdfsw} +% \begin{macrocode} +\let\chmstpspdfsw=\relax +\endinput +%</assurechemist> +% \end{macrocode} +% \end{macro} +% +% \Finale +% +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/assurechemist.ins b/macros/latex/contrib/xymtex/chemist/assurechemist.ins new file mode 100644 index 0000000000..728c62feb4 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/assurechemist.ins @@ -0,0 +1,43 @@ +\def\batchfile{assurechemist.ins} +\input docstrip.tex +\preamble + +This is a generated file. + +Copyright 2010 by Shinsaku Fujita +all rights reserved. +This style file is created for drawing chemical structural formulas +This style file is to be contained in the ``xymtex'' directory which +is an input directory for TeX. + +This file is part of the XyMTeX system. +======================================= +Version 5.00 Released on October 01, 2010 + +This work may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.3 or later is part of all distributions of LaTeX +version 2005/12/01 or later. + +This work has the LPPL maintenance status `maintained'. +The Current Maintainer of this work is Shinsaku Fujita. + +This work consists of the files assurechemist.dtx and assurechemist.ins +and the derived file assurechemist.sty. + +======================================= + +\endpreamble + +\keepsilent + +\generateFile{assurechemist.drv}{t}{% + \from{assurechemist.dtx}{driver}} + +\generateFile{assurechemist.sty}{t}{% + \from{assurechemist.dtx}{assurechemist}} + +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/assurechemist.sty b/macros/latex/contrib/xymtex/chemist/assurechemist.sty new file mode 100644 index 0000000000..f01e1e8c61 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/assurechemist.sty @@ -0,0 +1,92 @@ +%% +%% This is file `assurechemist.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% assurechemist.dtx (with options: `assurechemist') +%% +%% This is a generated file. +%% +%% Copyright 2010 by Shinsaku Fujita +%% all rights reserved. +%% This style file is created for drawing chemical structural formulas +%% This style file is to be contained in the ``xymtex'' directory which +%% is an input directory for TeX. +%% +%% This file is part of the XyMTeX system. +%% ======================================= +%% Version 5.00 Released on October 01, 2010 +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% The Current Maintainer of this work is Shinsaku Fujita. +%% +%% This work consists of the files assurechemist.dtx and assurechemist.ins +%% and the derived file assurechemist.sty. +%% +%% ======================================= +%% +%% File: assurechemist.dtx +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\typeout{Part of XyMTeX for Drawing Chemical Structural Formulas. Version 5.00} +\typeout{ -- Released October 01, 2010 by Shinsaku Fujita} +\def\j@urnalname{assurechemist} +\def\versi@ndate{October 01, 2010} +\def\versi@nno{ver5.00} +\def\copyrighth@lder{SF} % Shinsaku Fujita +\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% +\space[\copyrighth@lder]} +\def\notdefinedarrows#1{% + \XyMTeXWarning{The command + \expandafter\string\csname #1\endcsname\space is unavailable in TeX/LaTeX mode. ^^J + Please try the PostScript or PDF mode}} +\def\newllongrightarrow{\notdefinedarrows{newllongrightarrow}} +\def\newllongleftarrow{\notdefinedarrows{newllongleftarrow}} +\def\newllongleftrightarrow{\notdefinedarrows{newllongleftrightarrow}} +\def\newEquilibarrow{\notdefinedarrows{newEquilibarrow}} +\def\newLlongrightarrow{\notdefinedarrows{newLlongrightarrow}} +\def\newLlongleftarrow{\notdefinedarrows{newLlongleftarrow}} +\def\newLlongleftrightarrow{\notdefinedarrows{newLlongleftrightarrow}} +\def\newlllongrightarrow{\notdefinedarrows{newlllongrightarrow}} +\def\newlllongleftarrow{\notdefinedarrows{newlllongleftarrow}} +\def\newlllongleftrightarrow{\notdefinedarrows{newlllongleftrightarrow}} +\def\newEquiliblongarrow{\notdefinedarrows{newEquiliblongarrow}} +\def\newLllongrightarrow{\notdefinedarrows{newLllongrightarrow}} +\def\newLllongleftarrow{\notdefinedarrows{newLllongleftarrow}} +\def\newLllongleftrightarrow{\notdefinedarrows{newLllongleftrightarrow}} +\def\newllongrightharpoonup{\notdefinedarrows{newllongrightharpoonup}} +\def\newllongrightharpoondown{\notdefinedarrows{newllongrightharpoondown}} +\def\newllongleftharpoonup{\notdefinedarrows{newllongleftharpoonup}} +\def\newllongleftharpoondown{\notdefinedarrows{newllongleftharpoondown}} +\def\newlllongrightharpoonup{\notdefinedarrows{newlllongrightharpoonup}} +\def\newlllongrightharpoondown{\notdefinedarrows{newlllongrightharpoondown}} +\def\newlllongleftharpoonup{\notdefinedarrows{newlllongleftharpoonup}} +\def\newlllongleftharpoondown{\notdefinedarrows{newlllongleftharpoondown}} +\def\newequilibarrow{\notdefinedarrows{newequilibarrow}} +\def\newequiliblongarrow{\notdefinedarrows{newequiliblongarrow}} +\let\chmstpspdfsw=\relax +\endinput +%% +%% End of file `assurechemist.sty'. diff --git a/macros/latex/contrib/xymtex/chemist/chemist.dtx b/macros/latex/contrib/xymtex/chemist/chemist.dtx new file mode 100644 index 0000000000..3b07bc2e48 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemist.dtx @@ -0,0 +1,3349 @@ +% \iffalse +% +% chemist.dtx +% +% Copyright (C) 1996, 1999, 2000, 2004, 2009, 2010, 2013 by Shinsaku Fujita All rights reserved. +% +% This file is part of the ChemSci system +% ======================================== +% +% This style file is created for submitting a manuscript to +% scientific journals. This style file is to be contained in the +% ``chemist'' directory which is an input directory for TeX. +% +% This work may be distributed and/or modified under the +% conditions of the LaTeX Project Public License, either version 1.3 +% of this license or (at your option) any later version. +% The latest version of this license is in +% http://www.latex-project.org/lppl.txt +% and version 1.3 or later is part of all distributions of LaTeX +% version 2005/12/01 or later. +% +% This work has the LPPL maintenance status `maintained'. +% The Current Maintainer of this work is Shinsaku Fujita. +% +% This work consists of the files xymtex.dtx and xymtex.ins +% and the derived files: xymtex.sty, xymtexps.sty and xymtexpdf.sty. +% +%======================================= +% +% For using this file, see +% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' +% Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16. +% +% This file is a successor to: +% +% ********************************************************************* +% * chemist.sty <Sept 29 1991> by Shinsaku Fujita * +% * counters and related matters for compounds. * +% * ffboxit: November 2 1991 by S. Fujita * +% * bslskipchange: November 6 1991 by S. Fujita (deleted) * +% * chapinitial: 1991 November 7 by S. Fujita * +% * variable arrows: 1992 May 24 by S. Fujita * +% * reaction and scheme arrows (revised): 1992 May 24 by S. Fujita * +% * changespace <=== bslskipchange: Dec 31 1992 by S. Fujita * +% * (g)rshfboxit and (g)lshfboxit: January 3, 1993 by S. Fujita * +% ********************************************************************* +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Released on January 3, 1993 +% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved. +% This style file is created for making manuscripts of chemical fields. +% This option style file is to be contained in the ``chemist'' directory +% which is an input directory for TeX. +% +% For using this file, see +% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' +% Tokyo Kagaku Dojin, Tokyo (1993), Chapters 7, 9, 12 and 18. +% +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} +% \def\versi@ndate{January 03, 1993} +% \def\versi@nno{ver1.00} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% Version 1.01 +% --- added the end commands of the \verbatim environment and the +% \verb command contained in LaTeX 2.09 +% --- \LaTeX, \BibTeX logos etc improved +% \typeout{verbatim for LaTeX2.09 (and LaTeX2e) in chemist.sty} +% \typeout{logos for LaTeX2.09 (and LaTeX2e) in chemist.sty} +% \def\versi@ndate{April 20, 1996} +% \def\j@urnalname{chemist} +% \def\versi@ndate{April 20, 1996} +% \def\versi@nno{ver1.01} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{June 15, 1996} +% \def\versi@nno{ver1.01a} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +% \typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space +% [\copyrighth@lder]} +% \typeout{chemist.sty ver1.01a (for LaTeX2e) 1996/06/15[SF]} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{March 16, 1999} +% \def\versi@nno{ver2.00} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{November 3, 2000} +% \def\versi@nno{ver2.00a} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{June 20, 2001} +% \def\versi@nno{ver2.01} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{May 30, 2002} +% \def\versi@nno{ver3.00} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{August 30, 2004} +% \def\versi@nno{ver4.01} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{November 17, 2004} +% \def\versi@nno{ver4.01b} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{December 02, 2004} +% \def\versi@nno{ver4.01c} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{September 02, 2005} +% \def\versi@nno{ver4.03} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{November 08, 2009} +% \def\versi@nno{ver4.05} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% \def\j@urnalname{chemist} \def\journalID{chemist} +% \def\versi@ndate{November 21, 2010} +% \def\versi@nno{ver5.00a} +% \def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +% +% \fi +% \CheckSum{5053} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +% \iffalse +%% +%% `chemist.dtx' ver1.01a (for LaTeX2e) 1996/06/15 +%% `chemist.dtx' ver1.02 (for LaTeX2e) 2009/11/08 +%% `chemist.dtx' ver5.00 (for LaTeX2e) 2010/10/01 +%% `chemist.dtx' ver5.00a (for LaTeX2e) 2010/11/21 +%% by Shinsaku Fujita +%% +% +% \section{Initial declaration} +% +% \changes{v1.01a}{1996/06/15}{For LaTeX2e: dtx file} +% \changes{v1.01a}{1996/07/16}{Comment out for use LaTeX2.09} +% \changes{v2.00}{1999/03/16}{For XyMTeX 2.00 Enhanced Version} +% \changes{v2.00a}{2000/11/03}{Bug fix} +% \changes{v2.01}{2001/06/20}{Size reduction and Clip information} +% \changes{v3.00}{2002/05/30}{PStricks & mathversion{boldchem}} +% \changes{v4.03}{2005/9/2}{Bug fix for mathchem} +% \changes{v4.05}{2009/11/08}{extension of mathversions chem and boldchem} +% \changes{v5.00}{2010/10/01}{for bond coloring and the LaTeX Project Public License} +% \changes{v5.00a}{2010/11/21}{bug fix} +% \changes{v5.01}{2013/06/06}{bug fix} +% +% \begin{macrocode} +% \NeedsTeXFormat{LaTeX2e} +% \end{macrocode} +% +% \begin{macrocode} +% <chemist>\ProvidesFile{chemist.sty} +%<driver>\ProvidesFile{chemist.drv} +%<driver> [2013/06/06 v5.01 +% <chemist> ChemSci package ] +%<driver> ChemSci package driver (English) +% \end{macrocode} +% +%\setcounter{StandardModuleDepth}{1} +% +% \section{Driver file for this dtx file} +% +% \changes{v1.0a}{1996/06/15}{first draft} +% \changes{v2.00a}{2000/11/05}{bug fix} +% \changes{v4.01}{2004/08/30}{variable arrows} +% \changes{v4.01c}{2004/12/02}{To be compatible with multicol.sty: dimen2 into dimen6} +% \changes{v4.05}{2009/11/08}{extension of mathversions chem and boldchem; +% modification of reaction arrows} +% \changes{v5.00a}{2010/11/21}{bug fix} +% \changes{v5.01}{2013/06/06}{bug fix} +% +% \begin{macrocode} +%<*driver> + ] +\documentclass{ltxdoc} +\GetFileInfo{chemist.drv} +\title{Chemist Package \space\fileversion} +\author{Shinsaku Fujita \\ +Shonan Institute of Chemoinformatics and +Mathematical Chemistry \\ +Ashigara-Kami-Gun, Kanagawa, Japan +%% (old address) +%% Department of Chemistry and Materials Technology \\ +%% Kyoto Institute of Technology \\ +%Matsugasaki, Sakyoku, Kyoto, 606-8585 Japan +%% (old address) +%% Ashigara Research Laboratories \\ +%% Fuji Photo Film Co. Ltd. +} +\date{\filedate} +\begin{document} +\maketitle +\tableofcontents +\DocInput{chemist.dtx} +\end{document} +%</driver> +% \end{macrocode} +% +% \fi +% +% \StopEventually{} +% +% \section{{\sc docstrip} options} +% +% This dtx file provides the {\sffamily chemist} package +% by docstrip processing. +% +% \DeleteShortVerb{\|} +% \begin{center} +% \begin{tabular}{|l|l|} +% \hline +% argument & package name \\ +% \hline +% chemist & chemist.sty \\ +% driver & a documentation driver file \\ +% \hline +% \end{tabular} +% \end{center} +% \MakeShortVerb{\|} +% +% \section{Version information} +% +% The old process for typing out version information remains active. +% \begin{macrocode} +%<chemist> +%%%%%%%% +\def\j@urnalname{chemist} \def\journalID{chemist} +\def\versi@ndate{June 6, 2013} +\def\versi@nno{ver5.01} +\def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +%<*chemist> +\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space +[\copyrighth@lder]} +\typeout{chemist.sty ver5.01 (for LaTeX2e) 2013/06/06[SF]} +%</chemist> +% \end{macrocode} +% +% \section{Times Fonts} +% +% If the \textsf{chemtimes} package is loaded, the switch \verb/\@chemtimestrue/ +% becomes effective. Thereby, the mathversions ``chem'' and ``boldchem'' +% defined in the present \textsf{chemist} package are entirely replaced by those defined +% in the \textsf{chemtimes} package. +% \changes{v4.05}{2009/11/20}{the unskip command was deleted.} +% +% \begin{macro}{\if@chemtimes} +% \begin{macrocode} +%<*chemist> +\@ifundefined{ifchemtimes}{\newif\ifchemtimes}{}%from chemtimes +\@ifundefined{if@chemtimes}{\newif\if@chemtimes}{} +\@ifundefined{if@@chemtimes}{\newif\if@@chemtimes}{}%from chemtimes +\DeclareOption{chemtimes}{\@chemtimestrue} +\@chemtimesfalse +\ProcessOptions +\if@chemtimes +\if@@chemtimes\else +\ifchemtimes\else + \PackageError{chemist} + {The option ``chemtimes'' is not permitted} + {You should use this option after the chemtimes package is loaded} +\fi\fi\fi +% \end{macrocode} +% \end{macro} +% +% +% \section{Cross-references of compounds} +% +% The \textsf{compd} counter is introduced for numbering +% chemical compounds. +% +% \begin{macro}{\thecompd} +% \begin{macro}{\compd} +% \begin{macro}{\nocompd} +% +% The |\thecompd| command prints compound numbering without +% advancing the the \textsf{compd} counter. +% The |\compd| command prints compound numbering and advances +% the \textsf{compd} counter by one, while +% the |\nocompd| advances the \textsf{compd} counter by one +% without printing. +% \changes{v1.01a}{1996/06/22}{the unskip command was deleted.} +% +% \begin{macrocode} +% ******************* +% * compound label * +% * 1991 sept 29 * +% ******************* +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\@ifundefined{chapter}{\newcounter{compd}}{\newcounter{compd}[chapter]} +\def\thecompd{\arabic{compd}} +%\def\compd{\refstepcounter{compd}\unskip{\large\bf \thecompd}} +\def\compd{\leavevmode\refstepcounter{compd}{\large\bf \thecompd}} +\def\nocompd{\refstepcounter{compd}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\compdlabel} +% \begin{macro}{\nocompdlabel} +% \begin{macro}{\cref} +% +% The cross-reference of compound numbers are conducted by using +% |\label| and |\ref| commands. Alternative commands are also available +% as follows. +% \begin{macrocode} +\def\compdlabel#1{\compd \label{#1}} +\def\nocompdlabel#1{\nocompd \label{#1}} +\@ifundefined{bf}{\def\bf{\normalfont\bfseries}}{} +\def\cref#1{{\bf \ref{#1}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\compdfbox} +% \begin{macro}{\compdmbox} +% \begin{macro}{\lbcompdpbox} +% +% For takeing a space for compound output, we can use |\compdfbox| +% and like. +% +% \begin{macrocode} +\def\compdfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\compdmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\lbcompdpbox#1#2#3{\parbox{#2}{\vskip 2em + \parbox{#2}{#3 \par \centering{\compdlabel{#1}}\vskip 2em }}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% The \textsf{deriv} counter is introduced for numbering +% derivatives of a compound. +% \changes{v1.01a}{1996/06/22}{the unskip command was deleted.} +% \changes{v2.00}{1999/03/17}{derivnum added} +% +% \begin{macro}{\thederiv} +% \begin{macro}{\deriv} +% \begin{macro}{\noderiv} +% \begin{macro}{\derivnum} +% +% \begin{macrocode} +% ******************** +% * deriv label * +% * 1991 oct 01 * +% ******************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\newcounter{deriv}[compd] +\def\thederiv {\thecompd\alph{deriv}} +%\def\deriv{\refstepcounter{deriv}\unskip{\large\bf \thederiv}} +\def\deriv{\leavevmode\refstepcounter{deriv}{\large\bf \thederiv}} +\def\noderiv{\refstepcounter{deriv}} +\def\derivnum{% +\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\derivlabel} +% \begin{macro}{\noderivlabel} +% +% The cross-reference of derivative numbers are conducted by using +% |\label| and |\ref| commands. +% Alternative commands are also available as follows. +% \begin{macrocode} +\def\derivlabel#1{\deriv \label{#1}} +\def\noderivlabel#1{\noderiv \label{#1}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\derivfbox} +% \begin{macro}{\derivmbox} +% \begin{macro}{\lbderivpbox} +% +% For takeing a space for placing a derivative, we can use |\compdfbox| +% and like. +% +% \begin{macrocode} +\def\derivfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\derivmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\lbderivpbox#1#2#3{\parbox{#2}{\vskip 2em + \parbox{#2}{#3 \par \centering{\derivlabel{#1}}\vskip 2em }}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\deriva} +% \begin{macro}{\noderiva} +% \begin{macro}{\derivalabel} +% \begin{macro}{\noderivalabel} +% +% The \textsf{deriv} counter is also advanced by |\deriva| command and like. +% This command produced the net output of the \textsf{deriv} counter. +% \changes{v1.01a}{1996/06/22}{the unskip command was deleted.} +% \begin{macrocode} +% ******************** +% * deriva label * +% * 1991 oct 05 * +% ******************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +%\def\deriva{\refstepcounter{deriv}\unskip{\large\bf \alph{deriv}}} +\def\deriva{\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} +\def\noderiva{\refstepcounter{deriv}} +\def\derivalabel#1{\deriva \label{#1}} +\def\noderivalabel#1{\noderiva \label{#1}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \section{Boxes for placing compounds} +% +% \begin{macro}{\cdonecell} +% \begin{macro}{\cdtwocell} +% +% These boxes with a given width are used for printing chemical compounds. +% A box provided by |\cdonecell| is used for accomodating a compound. +% A box provided by |\cdtwocell| is devied into two vertical cells +% where the one is to place a compound and the other to place +% the compound number. +% \begin{macrocode} +% ******************** +% * cdonecell label * +% * 1991 oct 04 * +% ******************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\cdonecell#1#2#3{\raisebox{#1}{\parbox{#2}{\centering{#3}}}} +% #1 ue, #2 haba, #3 honbun +\def\cdtwocell#1#2#3#4{\raisebox{#1}{ + \parbox{#2}{\centering{#3} \par \vskip 3pt \centering{#4} }}} +% #1 ue, #2 haba, #3 ue honbun, #4 shita label +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \section{Arrows} +% +% \subsection{Arrows with variable length} +% +% \begin{macro}{\leftrightarrowfill} +% \begin{macro}{\Leftarrowfill} +% \begin{macro}{\Rightarrowfill} +% \begin{macro}{\Leftrightarrowfill} +% +% LaTeX{} are possessed of |\leftarrowfill| and |\rightarrowfill| for +% drawing arrows with variable length. The {\sffamily chemist} +% package defines other arrows with variable length for drawing +% chemical equations or schemes. +% +% \begin{macrocode} +% ******************* +% * variable arrows * 1992 May 24 S. Fujita +% ******************* +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\leftrightarrowfill{$\m@th \mathord\leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill + \mkern-6mu \mathord\rightarrow$} +\def\Leftarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord=$} +\def\Rightarrowfill{$\m@th \mathord= \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord\Rightarrow$} +\def\Leftrightarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord\Rightarrow$} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \subsection{Reaction arrows with variable length} +% +% \begin{macro}{\reactrarrow} +% \begin{macro}{\reactlarrow} +% \begin{macro}{\reactlrarrow} +% \begin{macro}{\reacteqarrow} +% +% The {\sffamily chemist} package defines arrows with variable length +% for drawing chemical equations, where additional information +% can be written on the upper and/or downward sides of each arrow. +% \changes{v2.00}{1999/02/02}{Vertical spacing changed} +% \changes{v2.00}{1999/03/16}{Horizontal shift} +% +% The vertical space between the upper text and the arrow as well as +% the vertical spece between the the arrow and the below text can be +% changed by the dimension register \verb/\reactarrowsep/. +% +% \changes{v4.05}{2009/11/8}{added \cs{reactarrowsep} and \cs{reactarrowseprate}} +% \changes{v4.05}{2009/11/15}{added \cs{ChemStrut}} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% +% \begin{verbatim} +% \reactarrowsep (dimension) for adjusting the two vertical spaces +% (default value 0pt) +% \reactarrowseprate (string) for adjusting the lower vertical space +% (default 1.0) +% \end{verbatim} +% +% \begin{macrocode} +% ******************* 1991 Oct 4 S. Fujita +% * reaction arrows * Revised 1992 May 24 S.Fujita%1999/02/02 SF +% ******************* +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% +% #1 yoko #2 ue, #3 haba, #4 ya no ue, #5 ya no shita +% +\newdimen\reactarrowsep +\def\reactarrowseprate{1.0} +\reactarrowsep=0pt +\def\oldreactrarrow{\@ifnextchar[{\oldreact@rarrow}{\oldreact@rarrow[0pt]}} +\def\oldreact@rarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactlarrow{\@ifnextchar[{\oldreact@larrow}{\oldreact@larrow[0pt]}} +\def\oldreact@larrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactlrarrow{\@ifnextchar[{\oldreact@lrarrow}{\oldreact@lrarrow[0pt]}} +\def\oldreact@lrarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\centering{\leftrightarrowfill} \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreacteqarrow{\@ifnextchar[{\oldreact@eqarrow}{\oldreact@eqarrow[0pt]}} +\def\oldreact@eqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par \vskip-0.55\normalbaselineskip% + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +%%%%%%2009/11/19 +%\let\reactrarrow=\oldreactrarrow +%\let\reactlarrow=\oldreactlarrow +%\let\reactlrarrow=\oldreactlrarrow +%\let\reacteqarrow=\oldreacteqarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\reactreqarrow} +% \begin{macro}{\reactleqarrow} +% +% These commands have been added for the XyMTeX version 4.05. +% The {\sffamily chemist} package additionally defines arrows with variable length +% for drawing chemical equilibrium, where additional information +% can be written on the upper and/or downward sides of each arrow. +% The length of either one of arrows can be reduced by \verb/\eqlbarrowstretch/. +% +% \changes{v4.05}{2009/11/08}{added \cs{reactreqarrow} and \cs{reactleqarrow}} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% +% \begin{macrocode} +% **************************************** 2009/11/08 S. Fujita +% * equilibrium arrows of uneven lengths * +% **************************************** +% +% #1 yoko #2 ue, #3 haba, #4 ya no ue, #5 ya no shita +% +\def\eqlbarrowstretch{0.6}%reduction rate of arrow length +\def\oldreactreqarrow{\@ifnextchar[{\oldreact@reqarrow}{\oldreact@reqarrow[0pt]}} +\def\oldreact@reqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering\dimen0=#3 + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par \vskip-0.55\normalbaselineskip% + \leavevmode\hbox to\eqlbarrowstretch\dimen0{\leftarrowfill} \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactleqarrow{\@ifnextchar[{\oldreact@leqarrow}{\oldreact@leqarrow[0pt]}} +\def\oldreact@leqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering\dimen0=#3 + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\hbox to\eqlbarrowstretch\dimen0{\rightarrowfill} \par + \vskip-0.55\normalbaselineskip% + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +%%%%%2009/11/19 +%\let\reactreqarrow=\oldreactreqarrow +%\let\reactleqarrow=\oldreactleqarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\k@nz@n} +% The |\k@nz@n| command is used for changing a dimension to a +% parameter for the \LaTeX{} picture environment. +% \begin{macrocode} +\def\k@nz@n#1{\@tempdima=#1\relax +\@tempcnta=\@tempdima \@tempcntb=\unitlength +\divide\@tempcnta by \@tempcntb +\edef\kanzanchi{\the\@tempcnta}% +\divide\@tempcnta by2\relax +\edef\kanzanhalf{\the\@tempcnta}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\reactdarrow} +% \begin{macro}{\reactuarrow} +% \begin{macro}{\reactveqarrow} +% \begin{macro}{\reactduarrow} +% Vertical reaction arrows has been added. +% \changes{v2.00}{1999/02/02}{New commands} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% \begin{macrocode} +\def\oldreactdarrow{\@ifnextchar[{\oldreact@darrow}{\oldreact@darrow[0pt]}} +\def\oldreact@darrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanchi){\vector(0,-1){\kanzanchi}} +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\oldreactuarrow{\@ifnextchar[{\oldreact@uarrow}{\oldreact@uarrow[0pt]}} +\def\oldreact@uarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,0){\vector(0,1){\kanzanchi}} +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\oldreactveqarrow{\@ifnextchar[%] +{\oldreact@veqarrow}{\oldreact@veqarrow[0pt]}} +\def\oldreact@veqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(40,\kanzanchi)(0,0) +\Put@Direct(40,0){\vector(0,1){\kanzanchi}}% +\Put@Direct(0,\kanzanchi){\vector(0,-1){\kanzanchi}}% +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\oldreactduarrow{\@ifnextchar[{\oldreact@duarrow}{\oldreact@duarrow[0pt]}} +\def\oldreact@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanhalf){\vector(0,1){\kanzanhalf}}% +\Put@Direct(0,\kanzanhalf){\vector(0,-1){\kanzanhalf}}% +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +%%%%2009/11/19 +%\let\reactdarrow=\oldreactdarrow +%\let\reactuarrow=\oldreactuarrow +%\let\reactveqarrow=\oldreactveqarrow +%\let\reactduarrow=\oldreactduarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\reactswarrow} +% \begin{macro}{\reactsearrow} +% \begin{macro}{\reactnwrarrow} +% \begin{macro}{\reactnearrow} +% Further reaction arrows have been added. +% \changes{v2.00}{1999/02/02}{New commands} +% \changes{v2.00}{2000/06/14}{Bug Fix: exchanged sw -- se and nw --ne} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% \begin{macrocode} +\def\oldreactsearrow{\@ifnextchar[{\oldreact@searrow}{\oldreact@searrow[0pt]}} +\def\oldreact@searrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanchi){\vector(1,-1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +% +\def\oldreactnwarrow{\@ifnextchar[{\oldreact@nwarrow}{\oldreact@nwarrow[0pt]}} +\def\oldreact@nwarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanchi,0){\vector(-1,1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +% +\def\oldreactnearrow{\@ifnextchar[{\oldreact@nearrow}{\oldreact@nearrow[0pt]}} +\def\oldreact@nearrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,0){\vector(1,1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +% +\def\oldreactswarrow{\@ifnextchar[{\oldreact@swarrow}{\oldreact@swarrow[0pt]}} +\def\oldreact@swarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanchi,\kanzanchi){\vector(-1,-1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +%%%%%2009/11/19 +%\let\reactsearrow=\oldreactsearrow +%\let\reactnwarrow=\oldreactnwarrow +%\let\reactnearrow=\oldreactnearrow +%\let\reactswarrow=\oldreactswarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\reactdeqarrow} +% \begin{macro}{\reactueqarrow} +% \begin{macro}{\reactdlrarrow} +% \begin{macro}{\reactulrarrow} +% Further reaction arrows have been added. +% \changes{v2.00}{1999/02/02}{New commands} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% \begin{macrocode} +\def\oldreactdeqarrow{\@ifnextchar[%] +{\oldreact@deqarrow}{\oldreact@deqarrow[0pt]}} +\def\oldreact@deqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(0,\kanzanchi){\Put@Direct(15,15){\vector(1,-1){\kanzanchi}}}% +\Put@Direct(\kanzanchi,0){\Put@Direct(-15,-15){\vector(-1,1){\kanzanchi}}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactueqarrow{\@ifnextchar[%] +{\oldreact@ueqarrow}{\oldreact@ueqarrow[0pt]}} +\def\oldreact@ueqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,0){\Put@Direct(-15,15){\vector(1,1){\kanzanchi}}} +\Put@Direct(\kanzanchi,\kanzanchi){\Put@Direct(15,-15){\vector(-1,-1){\kanzanchi}}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactulrarrow{\@ifnextchar[%] +{\oldreact@ulrarrow}{\oldreact@ulrarrow[0pt]}} +\def\oldreact@ulrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(1,1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(-1,-1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactdlrarrow{\@ifnextchar[%] +{\oldreact@dlrarrow}{\oldreact@dlrarrow[0pt]}} +\def\oldreact@dlrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(-1,1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(1,-1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +%%%%%2009/11/19 +%\let\reactdeqarrow=\oldreactdeqarrow +%\let\reactueqarrow=\oldreactueqarrow +%\let\reactulrarrow=\oldreactulrarrow +%\let\reactdlrarrow=\oldreactdlrarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\schemelarrow} +% \begin{macro}{\schemerarrow} +% \begin{macro}{\schemelrarrow} +% +% The {\sffamily chemist} package defines double-line arrows with variable +% length for drawing reaction schemes, where additional information +% can be written on the upper and/or downward sides of each arrow. +% \changes{v2.00}{1999/02/02}{Vertical spacing changed} +% \changes{v4.05}{2009/11/19}{\cs{react...} to \cs{oldreact...}} +% \begin{macrocode} +% ******************************** +% * scheme arrows * +% * 1991 OCT 4 S. Fujita * +% * Revised 1992 May 24 S.Fujita * 1999/02/02 by S. Fujita +% ******************************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\oldschemelarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Leftarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +\def\oldschemerarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Rightarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +\def\oldschemelrarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Leftrightarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +%%%%2009/11/19 +%\let\schemelarrow=\oldschemelarrow +%\let\schemerarrow=\oldschemerarrow +%\let\schemelrarrow=\oldschemelrarrow +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% +% \begin{macro}{\ChemStrut} +% +% The commond \verb/\ChemStrut/ is defined to output a strut for chemical arrows. +% For example, \verb/\reactrarrow{0pt}{1cm}{AAAA}{\ChemStrut}/ can adjust the horizontal +% position of an arrow. +% +% \changes{v4.05}{2009/11/08}{added \cs{ChemStrut}} +% +% \begin{macrocode} +\def\ChemStrut{\mbox{\vphantom{A}}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\changespace} +% +% The |\changespace| command is used to change a vertical space +% between lines. +% \begin{macrocode} +% ************************* +% * Changing line spacing * +% ************************* +% After Chapter 3 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\changespace#1{\def\baselinestretch{#1} \@normalsize} +% \end{macrocode} +% \end{macro} +% +% \begin{macrocode} +% %%%%%%%%%%1991 November 6%%%\bslskipchange%%%%%%%%%% +% \newenvironment{bslskipchange}[1]% +% {\par\begingroup\global\baselineskip= #1\normalbaselineskip}% +% {\endgroup\par\global\baselineskip=\normalbaselineskip% +% \global\@ignoretrue} +% \end{macrocode} +% +% \section{Captions} +% \subsection{Changing caption types within a float} +% \changes{v1.00}{1993/06/17}{by S. Fujita} +% +% \begin{macro}{\tbcaption} +% \begin{macro}{\fgcaption} +% \begin{macro}{\smcaption} +% +% These commands enable us to place two or more floats of +% different kinds in a single floating body. +% +% \begin{center} +% \begin{tabular}{lp{5cm}} +% \verb/\tbcaption[TCAP]{CAP}/ & +% makes a table caption in a float other than ``table'' or +% after using \verb/\fgcaption/ or \verb/\smcaption/ command. \\ +% \verb/\fgcaption[TCAP]{CAP}/ & +% makes a figure caption in a float other than ``figure'' or +% after using \verb/\tbcaption/ or \verb/\smcaption/ command. \\ +% \verb/\smcaption[TCAP]{CAP}/ & +% makes a scheme caption in a float other than ``scheme'' or +% after using \verb/\tbcaption/ or \verb/\fgcaption/ command. \\ +% \end{tabular} +% \end{center} +% +% For exmaple, we have +% +% \begin{verbatim} +% \begin{figure} +% \caption{aaa} % ’Êí‚̃LƒƒƒvƒVƒ‡ƒ“B +% \tbcaption{bbb} % •\‚̃LƒƒƒvƒVƒ‡ƒ“‚Ì‹§“I‚É•ÏXB +% \fgcaption[ccc]{ddd} %}‚̃LƒƒƒvƒVƒ‡ƒ“‚É–ß‚·B +% \end{figure} +% \end{verbatim} +% +% \begin{macrocode} +\def\tbcaption{\def\@captype{table}\caption} +\def\fgcaption{\def\@captype{figure}\caption} +\def\smcaption{\def\@captype{scheme}\caption} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\chapinitial} +% +% \begin{macrocode} +% ***************** +% * miscellaneous * +% ***************** +%%%%%%%%%%%1991 November 7%%%chapinitial%%%%%%%%%%%%% +\def\chap@initial#1% +{\medbreak\begingroup\clubpenalty=10000 + \def\par{\endgraf\endgroup\medbreak} + \noindent\hangindent28pt\hangafter=-2 +\hbox to0pt{\hskip-\hangindent +\hbox to28pt{\hss\raise-4pt\hbox{\lower3pt\hbox{\Huge\bf #1}} } +} \hskip-5pt plus2pt minus2pt} +\outer\def\chapinitial{\chap@initial} +% \end{macrocode} +% \end{macro} +% +% \section{Redefinition of verbatim} +% +% \begin{macro}{\yen} +% +% The {\sffamily chemist} package uses a customaized defintion of |\yen| for +% printing the top symbol of each command sequence. +% \begin{macrocode} +% ************ +% * ‚Ì’è‹` * +% ************ +% % %%%%%from ascmac.sty%%%%added \leavevmode%%%%%%%%%%%%%%%% +%\def\yen{\leavevmode{\setbox0=\hbox{Y}Y\kern-.97\wd0\vbox{% +% \hrule\@height.1ex\@width.98\wd0% +% \kern.33ex\hrule\@height.1ex\@width.98\wd0\kern.45ex}}} +% +\def\yen{\leavevmode\hbox{\setbox0=\hbox{Y}% +\setbox1=\vbox{\hrule height.05\ht0 width.96\wd0% +\kern.18\ht0\hrule height.05\ht0 width.96\wd0}% +\setbox1=\hbox to\wd0{\raise.3\ht0\box1\hss}% +{\ooalign{\hfil\box1\hfil\crcr\box0}}}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\ifverbswitch} +% \begin{macro}{\verb} +% +% The switch |\ifverbswitch| is used for changing |\yen| or +% |\backslash| for the top symbol of each control sequence +% printed by the |\verb| command. +% +% \begin{macrocode} +% ************************** +% * ‚ðŠÜ‚ñ‚¾verbatimŠÂ‹« * +% ************************** +% %%%%%%1992 April 30 %%%verbatim%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % from ‰œ‘º°•F@LaTeX”ü•¶‘쬓ü–å@1991 ‹Zp•]˜_ŽÐ % +% % omitted: =, by, etc. % +% % added: verbswitch % +% % \verbswitchtrue===> yen mark % +% % \verbswitchfalse===> backslash mark % +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newif\ifverbswitch \verbswitchtrue +\let\old@verbatim\@verbatim +\let\old@xverbatim\@xverbatim +\let\old@sxverbatim\@sxverbatim +\begingroup + \catcode`\|=0 \catcode`\\=13 + |gdef|verbh@@k{|catcode`|\=13 |let\=|yen} +|endgroup +% \end{macrocode} +% +% \begin{macrocode} +\def\verb{\begingroup \catcode``=13 \@noligs + \tt \let\do\@makeother \dospecials + \ifverbswitch \verbh@@k \fi \@ifstar{\@sverb}{\@verb}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{environment}{@verbatim} +% \begin{environment}{verbatim} +% +% The switch |\ifverbswitch| is also effective +% for in a verbtim environment. +% +% \begin{macrocode} +\begingroup +\catcode`|=0 \catcode`[=1 \catcode`]=2 +\catcode`\{=12 \catcode`\}=12 \catcode`\\=13 +|gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]] +|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]] +|endgroup +% \end{macrocode} +% +% \begin{macrocode} +\newdimen\verbatimleftmargin \verbatimleftmargin\leftmargini +\newdimen\verbatimbaselineskip \verbatimbaselineskip11pt +\def\verbatimsize{\small} +% \end{macrocode} +% +% \begin{macrocode} +\def\@verbatim{\trivlist \item[]% + \if@minipage \else \vskip\baselineskip% + \vskip-\verbatimbaselineskip \vskip\parskip\fi + \leftskip\@totalleftmargin + \if@minipage \else \advance\leftskip\verbatimleftmargin \fi + \rightskip\z@ \parindent\z@ \parfillskip\@flushglue \parskip\z@ + \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par} + \obeylines \verbatimsize \baselineskip\verbatimbaselineskip \tt + \catcode``=13 \@noligs \let\do\@makeother \dospecials} +% \end{macrocode} +% +% \begin{macrocode} +\def\verbatim{\ifverbswitch \@verbatim \else \old@verbatim \fi +\frenchspacing \@vobeyspaces +\ifverbswitch \verbh@@k \@xverbatim \else \old@xverbatim \fi} +\@namedef{verbatim*}{% + \ifverbswitch \@verbatim \verbh@@k \@sxverbatim + \else \old@verbatim \old@sxverbatim \fi} +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%%%%%%%%%%pLaTeX2e%%%%%%%%%%%%%1996/04/20 by S. Fujita%%%%%% +% pLaTeX2e‚Å‚ÍÄ’è‹`‚³‚ê‚Ä‚¢‚é‚Ì‚ÅCã‚Ì‚Ü‚Ü‚¾‚ƃGƒ‰[‚É‚È‚é +% LaTeX2.09‚Ì’è‹`‚ð•â‚Á‚Ä‚¨‚ +\def\@sverb#1{\def\@tempa ##1#1{##1\endgroup}\@tempa} +\def\@verb{\obeyspaces \frenchspacing \@sverb} +\def\@sverbtim{\obeyspaces\@verbatim} +\let\endverbatim=\endtrivlist +\@namedef{varbatim*}{\@verbatim\@sxverbatim} +\expandafter\let\csname endverbatim*\endcsname =\endtrivlist +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% +% \section{Shadowed Boxes} +% +% \begin{macro}{\fb@xit} +% \begin{macro}{\fboxit} +% +% \begin{macrocode} +% +% <<Base box for boxes>> +% \fb@xit{LWIDTH}{SPACE}{BWIDTH}{TEXT} +% #1 LWIDTH: line thickness +% #2 SPACE: spacing around the text +% #3 BWIDTH: box width +% #4 TEXT: text +% +\long\def\fb@xit#1#2#3#4{% +\setbox4=\vbox{\hsize#3\noindent#4}% +%\setbox4=\vbox{\hsize#3\noindent\strut#4\strut}% +\vbox{\hrule\@height#1\hbox{\vrule\@width#1\kern#2\vbox{% +\kern#2\box4\kern#2}\kern#1\vrule\@width#1}\hrule\@height#1}} +%\kern#2\box4\kern#2}\vrule\@width#1}\hrule\@height#1}} +% \end{macrocode} +% +% \begin{macrocode} +% +% \fboxit{BWIDTH}{TEXT} +% #1 BWIDTH: box width +% #2 TEXT: text +% +\long\def\fboxit#1#2{\fb@xit{\fboxrule}{\fboxsep}{#1}{#2}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\leftshfr@me} +% \begin{macro}{\leftshframe} +% \begin{macro}{\leftshfbox} +% +% \begin{macrocode} +% % ************************************************************ +% % * ‰e‚̂‚¢‚½” * +% % * January 3, 1993 by Shinsaku Fujita * +% % * Borde ({\em \TeX{} by Example})‚Ì‹LÚ‚ðŽQl‚É‚µ‚Äì‚Á‚½* +% % ************************************************************ +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% +% left shadow box +% +% \leftshfr@me{SWIDTH}{SPACE}{BOXWIDTH}{TEXT} +% +% #1 SWIDTH: shadow width +% #2 SPACE: spacing around the text +% #3 BOXWIDTH: box width +% #4 TEXT: text +% +% \leftshframe{BOXWIDTH}{TEXT} +% +% #1 BOXWIDTH: box width +% #2 TEXT: text +% +% \leftshfbox{TEXT} +% +% #1 TEXT: text +% +% %%leftshfr@me#1 shadow width, #2 space, #3 boxwidth, #4 text% +\long\def\leftshfr@me#1#2#3#4{\leavevmode% + \vbox{\hbox{\hsize #3\vbox{% + \hbox{\vrule\@width #1% + \vbox{\kern-#1\fb@xit{% + \fboxrule}{#2}{#3}{#4}\kern-\fboxrule}\kern-#1}% + \hrule\@height#1}}}\strut\hskip #1\relax} +% %leftshframe%%%%%%%%%%%%%%%%%%%%%%%%% #1 width, #2 text%%%%% +\long\def\leftshframe#1#2{% + \leftshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} +% %leftshfbox%%%%%%%%%%%%%%%%%%%%%%%%% #1 text%%%%%%%%%%%%%%%% +\long\def\leftshfbox#1{\leavevmode\setbox0=\hbox{\fbox{#1}}% + \vbox{\hbox{\vbox{\hbox{\vrule\@width\fboxsep\vbox{% + \kern-\fboxsep\box0\kern-\fboxrule}\kern-\fboxsep}% + \hrule\@height\fboxsep}}}\hskip\fboxsep\relax} %%%% +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\rightshfr@me} +% \begin{macro}{\rightshframe} +% \begin{macro}{\rightshfbox} +% +% \begin{macrocode} +% +% right shadow box +% +% \rightshfr@me{SWIDTH}{SPACE}{BOXWIDTH}{TEXT} +% +% #1 SWIDTH: shadow width +% #2 SPACE: spacing around the text +% #3 BOXWIDTH: box width +% #4 TEXT: text +% +% \rightshframe{BOXWIDTH}{TEXT} +% +% #1 BOXWIDTH: box width +% #2 TEXT: text +% +% \rightshfbox{TEXT} +% +% #1 TEXT: text +% +% %rightshfr@me#1 shadow width, #2 space, #3 boxwidth, #4 text% +\long\def\rightshfr@me#1#2#3#4{\leavevmode% + \vbox{\hbox{\kern#1\vbox{\hsize#3\vbox{\kern-#1\hbox{% + \kern-#1\fb@xit{\fboxrule}{#2}{#3}{#4}}\hrule\@height#1}}% + \vrule\@width#1}}\strut} +% %rightshframe%%%%%%%%%%%%%%%%%%%%%%%%% #1 width, #2 text%%%%% +\long\def\rightshframe#1#2{% + \rightshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} +% %rightshfbox%%%%%%%%%%%%%%%%%%%%%%%%% #1 text%%%%%%%%%%%%%%%% +\long\def\rightshfbox#1{\leavevmode% + \vbox{\hbox{\kern\fboxsep\vbox{\vbox{\kern-\fboxsep\hbox{% + \kern-\fboxsep\fbox{#1}}\hrule\@height\fboxsep}}% + \vrule\@width\fboxsep}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{environment}{ffboxit} +% \begin{macro}{\ffparbox} +% +% \begin{macrocode} +% ***************************************** +% * ” (ŠÂ‹«”Å) * +% * November 2, 1991 by Shinsaku Fujita * +% ***************************************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% %%%%%%1991 November 2 %%%ffboxit%%%%%%%%%%%%%%%%%%%%%% +\def\ffboxit{\par\vskip1pc\hfil\vbox\bgroup + \hrule\hbox\bgroup\vrule\kern3pt\vbox\bgroup\kern3pt} +\def\endffboxit{\kern3pt\egroup\kern3pt\vrule\egroup\hrule\egroup + \hfil\\} +\def\ffparbox#1#2{\vbox{\hsize=#1 \noindent\strut #2\strut}} +% \end{macrocode} +% \end{macro} +% \end{environment} +% +% \section{Framed box environment with and without shadows} +% +% \subsection{Framed box environment without shadows} +% +% \begin{macrocode} +% %%%%%%1991 November 2 %%%frameboxit%%%old definition%%%%%%%%%% +% with centering function +%\def\frameboxit#1{\par\vskip1pc\hfil\vbox\bgroup +% \hrule\hbox\bgroup\vrule\kern3pt\vbox\bgroup\kern3pt +% \vbox\bgroup\hsize=#1 \noindent\strut +% \@minipagetrue% +% \everypar{\global\@minipagefalse\everypar{}}} +%\def\endframeboxit{\strut\egroup\kern3pt\egroup% +%\kern3pt\vrule\egroup +% \hrule\egroup\hfil\\} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% <<Base box for box environments>> +% \begin{fr@meboxit}{LWIDTH}{SPACE}{BWIDTH} +% LWIDTH: line thickness +% SPACE: spacing around the text +% BWIDTH: box width +% \end{fr@meboxit} +% +% %%fr@meboxit%%%%%#1 line width, #2 space, #3 width%%%%%%%%%%%%% +%\def\fr@meboxit#1#2#3{\gdef\fr@meline{#1}\gdef\fr@mesp{#2}% +% \hbox\bgroup\vbox\bgroup% +% \hrule\@height#1\hbox\bgroup% +% \vrule\@width#1\kern#2\vbox\bgroup% +% \kern#2\vbox\bgroup\hsize=#3\strut% +% \@minipagetrue% +% \everypar{\global\@minipagefalse\everypar{}}} +%\def\endfr@meboxit{\strut\egroup% +%\kern\fr@mesp\egroup\kern\fr@mesp\egroup\hrule\@height\fr@meline% +%\egroup\vrule\@width\fr@meline\egroup} +% \end{macrocode} +% +% \begin{environment}{fr@meboxit} +% \begin{environment}{frameboxit} +% +% \begin{macrocode} +% %%%%%%%revised by S. Fujita, January 16, 1993%%%%%%%%%%%%%%%%%%%%% +\long\def\fr@meboxit#1#2#3{\gdef\fr@meline{#1}\gdef\fr@mesp{#2}% +% % \setbox4=\vbox\bgroup\hsize=#3\@parboxrestore\ignorespaces} + \global\setbox4=\hbox\bgroup\minipage{#3}} +% %\def\endfr@meboxit{\egroup% +\def\endfr@meboxit{\endminipage\egroup% + \hbox{\vbox{\hrule\@height\fr@meline% + \hbox{\vrule\@width\fr@meline\kern\fr@mesp% + \vbox{\kern\fr@meline\kern\fr@mesp\box4\kern\fr@mesp}% +% % \vbox{\kern\fr@mesp\box4\kern\fr@mesp}% + \kern\fr@mesp}\hrule\@height\fr@meline}% + \vrule\@width\fr@meline}} +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%%%revised by S. Fujita, January 16, 1993%%%%%%%%%%%%%%%%%%%% +\def\frameboxit#1{\leavevmode\fr@meboxit{\fboxrule}{\fboxsep}{#1}} +\let\endframeboxit=\endfr@meboxit +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \subsection{Framed box environment with shadows} +% +% \begin{environment}{lshfr@meboxit} +% \begin{environment}{lshfboxit} +% +% \begin{macrocode} +% ***************************************** +% * ‰e‚̂‚¢‚½” (ŠÂ‹«”Å) * +% * January 16, 1993 by Shinsaku Fujita * +% * \sh@hwidth: …•½‚̉e‚Ì‘¾‚³ * +% * \sh@vwidth: ‚’¼‚̉e‚Ì‘¾‚³ * +% ***************************************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% +% <<Base box for box environments>> See above +% \begin{fr@meboxit}{LWIDTH}{SPACE}{BWIDTH} +% LWIDTH: line thickness +% SPACE: spacing around the text +% BWIDTH: box width +% \end{fr@meboxit} +% +% <<Base box environment with left shadow>> +% \begin{lshfr@meboxit}{HSWIDTH}{VSWIDTH}{SPACE}{BWIDTH} +% HSWIDTH: the thickness of the horizontal shadow +% VSWIDTH: the thickness of the vertical shadow +% SPACE: spacing around the text +% BWIDTH: box width +% \end{lshfr@meboxit} +% +% <<Box environment with left shadow>> +% \begin{lshfboxit}{BWIDTH} +% BWIDTH: box width +% \end{lshfboxit} +% +% %%%lshfr@meboxit#1 #2 shadow width, #3 space, #4 boxwidth%%%% +\def\lshfr@meboxit#1#2#3#4{\gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% +\leavevmode% + \vbox\bgroup\hbox\bgroup\hsize #4\vbox\bgroup% + \hbox\bgroup\vrule\@width\sh@vwidth% + \vbox\bgroup\kern-\sh@hwidth\fr@meboxit{\fboxrule}{#3}{#4}} +\def\endlshfr@meboxit{\endfr@meboxit%%%%\kern-\fboxrule + \egroup\kern-\sh@vwidth\egroup% + \hrule\@height\sh@hwidth\egroup\egroup\egroup% + \strut\kern\sh@hwidth\relax} +% \end{macrocode} +% +% \begin{macrocode} +% %%lshfboxit%%%%%%%%%%%%%%%%%%%%%%%%% #1 width %%%%%%%% +\def\lshfboxit#1{\leavevmode% + \lshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endlshfboxit=\endlshfr@meboxit +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \begin{environment}{rshfr@meboxit} +% \begin{environment}{rshfboxit} +% +% \begin{macrocode} +% <<Base box environment with right shadow>> +% \begin{rshfr@meboxit}{HSWIDTH}{VSWIDTH}{SPACE}{BWIDTH} +% HSWIDTH: the thickness of the horizontal shadow +% VSWIDTH: the thickness of the vertical shadow +% SPACE: spacing around the text +% BWIDTH: box width +% \end{rshfr@meboxit} +% +% <<Box environment with right shadow>> +% \begin{rshfboxit}{BWIDTH} +% BWIDTH: box width +% \end{rshfboxit} +% +% %%rshfr@meboxit#1 #2 shadow width, #3 space, #4 boxwidth%%% +\def\rshfr@meboxit#1#2#3#4{% + \gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% + \leavevmode% + \vbox\bgroup\hbox\bgroup\kern\sh@vwidth% + \vbox\bgroup\hsize#4\vbox\bgroup% + \kern-\sh@hwidth\hbox\bgroup\kern-\sh@vwidth% + \fr@meboxit{\fboxrule}{#3}{#4}} +\def\endrshfr@meboxit{\endfr@meboxit\egroup% + \hrule\@height\sh@hwidth% + \egroup\egroup\vrule\@width\sh@vwidth\egroup\egroup\strut} +% \end{macrocode} +% +% \begin{macrocode} +% %%rshfboxit%%%%%%%%%%%%%%%%%%%%%%%%% #1 width%%%%%%%% +\def\rshfboxit#1{\leavevmode% + \rshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endrshfboxit=\endrshfr@meboxit +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \subsection{Framed box environment with gradient shadows} +% +% \begin{macro}{\hsgr@d} +% \begin{macro}{\vsgr@d} +% \begin{macro}{\vwgr@d} +% \begin{macro}{\hwgr@d} +% \begin{macro}{\vsepgr@d} +% \begin{macro}{\hsepgr@d} +% \begin{macro}{\nrep} +% \begin{macro}{\nrepmax} +% +% \begin{macrocode} +% %%parameters%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newdimen\hsgr@d \newdimen\vsgr@d +\newdimen\vwgr@d \newdimen\hwgr@d +\newdimen\vsepgr@d \newdimen\hsepgr@d +\newcount\nrep \newcount\nrepmax +%\nrepmax=20 +\nrepmax=25 +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{environment}{grshfr@meboxit} +% \begin{environment}{grshfboxit} +% +% \begin{macrocode} +% ***************************************** +% * ŽÎ‚̉e‚̂‚¢‚½” (ŠÂ‹«”Å) * +% * Box environments with gradient shadow * +% * January 16, 1993 by Shinsaku Fujita * +% ***************************************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% +% <<Base box environment with gradient right shadow>> +% \begin{grshfr@meboxit}{HSWIDTH}{VSWIDTH}{SPACE}{BWIDTH} +% HSWIDTH: the thickness of the horizontal shadow +% VSWIDTH: the thickness of the vertical shadow +% SPACE: spacing around the text +% BWIDTH: box width +% \end{grshfr@meboxit} +% +% <<Box environment with gradient right shadow>> +% \begin{grshfboxit}{BWIDTH} +% BWIDTH: box width +% \end{grshfboxit} +% %%%%%%%%grshfr@meboxit#1 #2 shadow width, #3 space, #4 boxwidth%%% +\def\grshfr@meboxit#1#2#3#4{% + \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% + \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% + \leavevmode% + \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} +\def\brb@xit#1{\vbox{\setbox1=\hbox{#1}% + \offinterlineskip% + \hbox{\copy1\vsepgr@d=\nrep\vsgr@d% + \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% + \vrule\@height\vwgr@d\@width\vsgr@d}% + \hbox{\hsepgr@d=\nrep\hsgr@d\kern\hsepgr@d% + \vbox{\hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% + \hrule\@height\hsgr@d\@width\hwgr@d}}}} +\def\lprb@xit{\expandafter\setbox0=\expandafter\brb@xit{\box0}} +\def\endgrshfr@meboxit{\endfr@meboxit\egroup% + \nrep=\@ne\@whilenum\nrep<\nrepmax\do% + {\lprb@xit\advance\nrep\@ne}\box0\relax} +% %%%%% in TeX grammer +%\def\endgrshfr@meboxit{\endfr@meboxit\egroup% +% \nrep=\@ne \loop \lprb@xit \advance\nrep\@ne% +% \ifnum \nrep<\nrepmax \repeat \box0\relax} +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%%%grshfboxit%%%%%%%%%%%%%%%%%%%%%%%%% #1 width, #2 text%%%%%%%% +\def\grshfboxit#1{\leavevmode% + \grshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endgrshfboxit=\endgrshfr@meboxit +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \begin{environment}{glshfr@meboxit} +% \begin{environment}{glshfboxit} +% +% \begin{macrocode} +% <<Base box environment with gradient left shadow>> +% \begin{glshfr@meboxit}{HSWIDTH}{VSWIDTH}{SPACE}{BWIDTH} +% HSWIDTH: the thickness of the horizontal shadow +% VSWIDTH: the thickness of the vertical shadow +% SPACE: spacing around the text +% BWIDTH: box width +% \end{glshfr@meboxit} +% +% <<Box environment with gradient left shadow>> +% \begin{glshfboxit}{BWIDTH} +% BWIDTH: box width +% \end{glshfboxit} +% %%%%%%%%glshfr@meboxit#1 #2 shadow width, #3 space, #4 boxwidth%% +\def\glshfr@meboxit#1#2#3#4{% + \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% + \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% + \leavevmode% + \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} +\def\blb@xit#1{% + \vbox{\setbox1=\hbox{#1}% + \offinterlineskip% + \vsepgr@d=\nrep\vsgr@d% + \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% + \hsepgr@d=\nrep\hsgr@d% + \hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% + \hbox{\vrule\@height\vwgr@d\@width\vsgr@d\copy1}% + \hbox{\kern-\vsgr@d% + \vrule\@height\hsgr@d\@width\hwgr@d}}} +% %% \hbox{\vbox{\hrule\@height\hsgr@d\@width\hwgr@d}}}} +\def\lplb@xit{\expandafter\setbox0=\expandafter\blb@xit{\box0}} +\def\endglshfr@meboxit{\endfr@meboxit\egroup% + \nrep=\@ne\@whilenum\nrep<\nrepmax\do% + {\lplb@xit\advance\nrep\@ne}\box0\relax} +% %%%%% in TeX grammer +%\def\endglshfr@meboxit{\endfr@meboxit\egroup% +% \nrep=\@ne \loop \lplb@xit \advance\nrep\@ne% +% \ifnum\nrep<\nrepmax\repeat\box0\relax} +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%%%%glshfboxit%%%%%%%%%%%%%%%%%%%%%%%%% #1 width, #2 text%%% +\def\glshfboxit#1{\leavevmode% + \glshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endglshfboxit=\endglshfr@meboxit +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \section{(Mini)screen environment} +% \subsection{(Mini)screen environment without a title} +% +% \begin{macro}{\@oval} +% \begin{macro}{\h@b@x} +% \begin{macro}{\@vrf@} +% \changes{v2.00}{2000/06/15}{ybaselineshift etc.} +% +% \begin{macrocode} +\@ifundefined{ybaselineshift}{% +\newdimen\ybaselineshift \ybaselineshift=\z@}{} +\@ifundefined{tbaselineshift}{% +\newdimen\tbaselineshift \tbaselineshift=\z@}{} +\newdimen\@savetbaselineshift \@savetbaselineshift=\z@ +\def\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen + \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue + \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx + #1\unitlength \@ovyy #2\unitlength + \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi + \advance\@tempdimb -2pt\relax + \@getcirc \@tempdimb + \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa + \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@ + \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@ + \@circlefnt \setbox\@tempboxa + \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi + \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi + \if@ovt \@ovhorz \kern -\@ovxx \fi + \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro + \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@ + \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}% + \endgroup} +\def\h@b@x#1#2#3{\hbox to\dimen1% + {\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}} +\def\@vrf@#1#2{\vskip#1\leaders\vrule\@width#2\vfil\vskip#1} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{environment}{miniscreen} +% \begin{environment}{screen} +% \changes{v2.00}{2000/06/15}{ybaselineshift etc.} +% \changes{v4.01c}{2004/12/03}{To be compatible with multicol.sty: dimen2 into dimen6} +% +% +% \begin{macrocode} +% ****************** +% * miniscreenŠÂ‹« * +% ****************** +% +% ASCII”ÅMicro\TeX‚ÌscreenŠÂ‹«‚ð˜g‚Ì•‚ðŽw’è‚Å‚«‚é‚悤‚ɉü•Ï +% +% ifcase•¶ ==> ’¼ÚŒvŽZ +% dimen—Þ ==> dimen0 to dimen5 +% box—Þ ==> box0 and box1 +% +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% miniscreen environment +% +\let\miniscreentoprule=\hrule +\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} +% \end{macrocode} +% +% \begin{macrocode} +\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} +\def\@miniscreen[#1]#2{\dimen1=#2\relax% +\@savetbaselineshift\tbaselineshift \tbaselineshift\z@ +\@tempcnta=-2 \multiply\@tempcnta by#1\relax% +\advance\@tempcnta by 20\relax \dimen5=1pt +\multiply\dimen5\@tempcnta +\dimen4=-1pt \multiply\dimen4 by#1\relax +\advance\dimen4 by 10pt +\dimen3=\dimen4 \advance\dimen3 by -.2pt +\par\vspace{.3\baselineskip}% +\dimen6=\dimen1 \advance\dimen6 by .1pt +\advance\dimen1 -\dimen5\relax% +\setbox0=\hbox\bgroup\minipage{\dimen1 +\tbaselineshift\@savetbaselineshift}}% +% \end{macrocode} +% +% \begin{macrocode} +\def\endminiscreen{\endminipage\egroup% +\setbox1=\hbox to\dimen6{\hfil\vbox{\offinterlineskip% +\thinlines\unitlength=1pt +\miniscreentoprule%\hrule +\kern\dimen3% +\h@b@x{tl}{tr}{\@tempcnta}% +\kern-\dimen4\box0\h@b@x{bl}{br}{\@tempcnta}% +\kern-.4pt\hrule}\hfil}\dimen0=\ht1\noindent% +\hbox to\dimen6{\hbox to.4pt{% +\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}\hss}% +\box1\hbox to.2pt{% + \hss\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}}\hss}}% +% %%%%%%alternative +%\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} +%\def\@miniscreen[#1]#2{\noindent\minipage{#2}\@screen[#1]} +%\def\endminiscreen{\endscreen\endminipage} +% \end{macrocode} +% +% \begin{macrocode} +\def\screen{\@ifnextchar[{\@screen}{\@miniscreen[0]{\linewidth}}} +\def\@screen[#1]{\miniscreen[#1]{\linewidth}} +\let\endscreen=\endminiscreen +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \subsection{(Mini)screen environment with a title} +% +% \begin{macro}{\tboxscreentoprule} +% \begin{macro}{\tboxtitle} +% +% \begin{macrocode} +\def\tboxscreentoprule{% +\hbox to\wd0{\smash{\lower.4ex\hbox{% +\fboxsep=2pt \fbox{\small \tboxtitle}}}\hrulefill}} +\def\tboxtitle{\bf Memorandum} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{environment}{\tboxminiscreen} +% \begin{environment}{\tboxscreen} +% +% \begin{macrocode} +% ****************** +% * tboxscreenŠÂ‹« * +% ****************** +% 1996/06/04 by Shinsaku Fujita +% +\def\tboxminiscreen{\@ifnextchar[{\vskip8pt + \let\miniscreentoprule=\tboxscreentoprule% + \@miniscreen}{\vskip8pt + \let\miniscreentoprule=\tboxscreentoprule% + \@miniscreen[0]}} +\let\endtboxminiscreen=\endminiscreen +% \end{macrocode} +% +% \begin{macrocode} +\def\tboxscreen{\@ifnextchar[{\@tboxscreen}% +{\@tboxscreen[0]}} +\def\@tboxscreen[#1]{\tboxminiscreen[#1]{\linewidth}} +\let\endtboxscreen=\endtboxminiscreen +% \end{macrocode} +% \end{environment} +% \end{environment} +% +% \section{Further boxes} +% +% \begin{macro}{\sboxit} +% +% \begin{macrocode} +% ****************************** +% * \sboxit ¶‰E‚Ì—]—T‚Ì‚È‚¢” * +% ****************************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\sboxit#1#2{\vbox{\hrule\hbox% +{\vrule\vbox{\kern3pt\vbox{\hsize #1 \noindent #2}% +\kern3pt}\vrule}\hrule}} +% \end{macrocode} +% \end{macro} +% +% \section{Boxes with no height or no width} +% +% \begin{macro}{\bury} +% \begin{macro}{\pushtowall} +% +% \begin{macrocode} +% *********************** +% * bury and pushtowall * +% *********************** +% After Chapter 7 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% +% \bury[‰º‚°•]{“à—e} +% ‰º‚°•‚̃fƒtƒHƒ‹ƒg’l‚ÍC\normalbaselineksip‚Ì”¼•ª +% +% (‹Œ) \def\bury#1{\smash{\lower.5\normalbaselineskip\hbox{#1}}} +% ‚±‚ê‚ÍCu‰»Šw‚ƶ‰»Šw‚Ì‚½‚ß‚ÌLaTeXv‚ÉÚ‚¹‚½’è‹`‚Å‚·D +% ˆÈ‰º‚Ì’è‹`‚ÍC‰º‚°•‚ðƒIƒvƒVƒ‡ƒ“ˆø”‚Æ‚µ‚ÄŽæ‚é‚悤‚É +% Šg’£‚µ‚½‚à‚Ì‚Å‚·D +% +\def\bury{\@ifnextchar [{\@bury}{\@bury[.5\normalbaselineskip]}} +\def\@bury[#1]#2{\smash{\lower#1\hbox{#2}}} +% +% \pushtowall{“à—e} +% …•½•ûŒü‚̉Ÿ‚µ•t‚¯‚é–½—ß (\smash‚Ì…•½•ûŒü”Å) +% +\def\finpushw@ll{\wd0=0pt \box0} +\def\makepushw@ll#1{\setbox0=\hbox{#1}\finpushw@ll} +\def\mathpushw@ll#1#2{\setbox0=\hbox{$\m@th#1{#2}$}\finpushw@ll} +\def\pushtowall{\relax \leavevmode + \ifmmode\def\next{\mathpalette\mathpushw@ll} + \else\let\next\makepushw@ll \fi \next} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\penetrate} +% +% \begin{macrocode} +% \penetrate{DIM}{OBJ} +% •–³‚µ<OBJ>‚ðAˆóŽšˆÊ’u‚Í‚»‚Ì‚Ü‚Ü‚É‚µ‚ÄA<DIM>‚¾‚¯ˆÚ“®‚³‚¹‚éB‚±‚ÌŽž +% ˆø‚«‘±‚•¶Žš‚̈󎚈ʒu‚Í<OBJ>‚ª‚È‚©‚Á‚½‚Æ‚µ‚½Žž‚̈ʒu‚É‚È‚éB +% (\bury–½—ß‚Ì…•½•ûŒü”Å) +% +% (”äŠr) +% aaa bbb \penetrate{-50pt}{ccc} ddd eee fff \\ +% aaa bbb \hspace{-50pt} ccc ddd eee fff \\ +% +\def\penetrate#1#2{\pushtowall{\hbox{\hskip#1\hbox{#2}}}} +% \end{macrocode} +% \end{macro} +% +% \section{Symbols for instant photography} +% +% \begin{macro}{\cyandye}%%orig. |\cyan| 2010/10/01 +% \begin{macro}{\magentadye}%%orig. |\magenta| 2010/10/01 +% \begin{macro}{\yellowdye}%%orig. |\yellow| 2010/10/01 +% \begin{macro}{\cyandv} +% \begin{macro}{\magentadv} +% \begin{macro}{\yellowdv} +% \begin{macro}{\agxlatent} +% \begin{macro}{\agxdv} +% \begin{macro}{\agx} +% +% \begin{macrocode} +% *********************** +% * instant photography * +% *********************** +% After Chapter 7 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\cyandye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} +\def\magentadye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} +\def\yellowdye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} +\def\cyandv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} +\def\magentadv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} +\def\yellowdv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} +\def\agxlatent{% + \mbox{\ooalign{% + \hfil\raise.07ex\hbox{\footnotesize $\bullet$}\hfil\cr\cr + $\triangle$}\,}} +\def\agxdv{% + \mbox{\ooalign{\hfil\raise.07ex\hbox{% + \small $\spadesuit$}\hfil\cr\cr + $\triangle$}\,}} +\def\agx{\mbox{$\triangle$}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \section{Various arrows with fixed length} +% +% \begin{macro}{\llongrightarrow} +% \begin{macro}{\llongleftarrow} +% \begin{macro}{\llongleftrightarrow} +% \begin{macro}{\Equilibarrow} +% \begin{macro}{\Llongrightarrow} +% \begin{macro}{\Llongleftarrow} +% \begin{macro}{\Llongleftrightarrow} +% +% \begin{macrocode} +% *********************** +% * various long arrows * +% *********************** +% After Chapter 18 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\oldllongrightarrow{%%%---> +\relbar\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\oldllongleftarrow{%%%<--- + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\oldllongleftrightarrow{%%%<---> + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +%\def\oldEquilibarrow{%%%<--- and ---> +% \mathrel{\ooalign{\raise.35ex\hbox{$\llongrightarrow$}\crcr +% \lower.35ex\hbox{$\llongleftarrow$}}}} +\def\oldEquilibarrow{%%%<--- and ---> + \mathrel{\ooalign{\raise.35ex\hbox{$\oldllongrightarrow$}\crcr + \lower.35ex\hbox{$\oldllongleftarrow$}}}} +\def\oldLlongrightarrow{%%%===> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +\def\oldLlongleftarrow{%%%<=== + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Relbar} +\def\oldLlongleftrightarrow{%%<===> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +%%%%%2009/11/19 old... +%\let\llongrightarrow=\oldllongrightarrow%%%---> +%\let\llongleftarrow=\oldllongleftarrow%%%<--- +%\let\llongleftrightarrow=\oldllongleftrightarrow%%%<---> +%\let\Equilibarrow=\oldEquilibarrow%%%<--- and ---> +%\let\Llongrightarrow=\oldLlongrightarrow%%%===> +%\let\Llongleftarrow=\oldLlongleftarrow%%%<=== +%\let\Llongleftrightarrow=\oldLlongleftrightarrow%%<===> +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\llongleftharpoondown} +% \begin{macro}{\llongrightharpoonup} +% \begin{macro}{\equilibarrow} +% \changes{v5.01}{2013/06/06}{bug fix. \cs{mathrel} added} +% +% \begin{macrocode} +\def\oldllongleftharpoondown{%%% /--- + \mathrel{\leftharpoondown}\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\oldllongrightharpoonup{%%%---/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel\mathrel{\rightharpoonup}} +\def\oldequilibarrow{%%% /--- and ---/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\oldllongrightharpoonup$}\crcr + \lower.3ex\hbox{$\oldllongleftharpoondown$}}}} +%%%%%2009/11/19 +%\let\llongleftharpoondown=\oldllongleftharpoondown%%% /--- +%\let\llongrightharpoonup=\oldllongrightharpoonup%%%---/ +%\let\equilibarrow=\oldequilibarrow%%% /--- and ---/ +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\eqproton} +% +% \begin{macrocode} +% ******************************* +% * •½t‚Ì—¼‘¤–îˆó‚Ìã‚ÉH+‚ð‘‚* +% ******************************* +\def\eqproton{\stackrel{{\rm \displaystyle H}^{+}}{\Equilibarrow}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\lllongrightarrow} +% \begin{macro}{\lllongleftarrow} +% \begin{macro}{\lllongleftrightarrow} +% \begin{macro}{\Equiliblongarrow} +% \begin{macro}{\Lllongrightarrow} +% \begin{macro}{\Lllongleftarrow} +% \begin{macro}{\Lllongleftrightarrow} +% +% \begin{macrocode} +% **************** +% * ’·‚¢’·‚¢–îˆó * +% **************** +\def\oldlllongrightarrow{\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\oldlllongleftarrow{%%%<------- + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\oldlllongleftrightarrow{%%%<-------> + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\rightarrow} +\def\oldEquiliblongarrow{%%%<------- and -------> + \mathrel{\ooalign{\raise.35ex\hbox{$\oldlllongrightarrow$}\crcr + \lower.35ex\hbox{$\oldlllongleftarrow$}}}} +\def\oldLllongrightarrow{%%%=======> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +\def\oldLllongleftarrow{%%%<======= + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Relbar} +\def\oldLllongleftrightarrow{%%<=======> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +%%%%2009/11/19 +%\let\lllongrightarrow=\oldlllongrightarrow%%%%------> +%\let\lllongleftarrow=\oldlllongleftarrow%%%<------- +%\let\lllongleftrightarrow=\oldlllongleftrightarrow%%%<-------> +%\let\Equiliblongarrow=\oldEquiliblongarrow%%%<------- and -------> +%\let\Lllongrightarrow=\oldLllongrightarrow%%%=======> +%\let\Lllongleftarrow=\oldLllongleftarrow%%%<======= +%\let\Lllongleftrightarrow=\oldLllongleftrightarrow%%<=======> +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\lllongleftharpoondown} +% \begin{macro}{\lllongrightharpoonup} +% \begin{macro}{\equiliblongarrow} +% \begin{macro}{\deHBr} +% \changes{v5.01}{2013/06/06}{bug fix. \cs{mathrel} added} +% +% \begin{macrocode} +\def\oldlllongleftharpoondown{%%% /------- + \mathrel{\leftharpoondown}\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\oldlllongrightharpoonup{%%%-------/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel% + \relbar\joinrel\mathrel{\rightharpoonup}} +\def\oldequiliblongarrow{%%% /------ and ------/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\oldlllongrightharpoonup$}\crcr + \lower.3ex\hbox{$\oldlllongleftharpoondown$}}}} +%%%%%%%%2009/11/19 +%\let\lllongleftharpoondown=\oldlllongleftharpoondown%%% /------- +%\let\lllongrightharpoonup=\oldlllongrightharpoonup%%%-------/ +%\let\equiliblongarrow=\oldequiliblongarrow%%% /------ and ------/ +% %%%%% +\def\deHBr{\stackrel{\displaystyle \rm -HBr}% +{\stackrel{\displaystyle \lllongrightarrow}{\rm E2}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \section{Chemical Corrections} +% +% \subsection{Correction commands} +% +% \begin{macro}{\chemcorr} +% \begin{macro}{\leavechemcorr} +% +% \changes{v2.00a}{2000/11/03}{chemcorr 3.0pt into 3.5pt} +% \changes{v4.055}{2009/11/19}{chemcorr 3.5pt into 3.05pt} +% \begin{macrocode} +% ******************** +% * chemform command * +% ******************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\chemcorr{% + \fontdimen16\textfont2=3.05pt + \fontdimen17\textfont2=3.05pt + %\fontdimen14\textfont2=3.8pt +} +\def\leavechemcorr{% + \fontdimen16\textfont2=1.49998pt + \fontdimen17\textfont2=2.47217pt + %\fontdimen14\textfont2=3.62892pt +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \subsection{Chem Version} +% +% The `chem' for mathversion is introduced to describe chemical equations. +% The `boldchem' for mathversion is introduced to describe +% boldfaced chemical equations. +% +% \changes{v3.00}{2002/05/30}{Added the correction for commas and periods.} +% \changes{v3.00}{2002/05/30}{Added the correction for Greek letters.} +% \changes{v3.00}{2002/05/30}{Redefinition of \cs{mathversion}.} +% \changes{v3.00}{2002/05/30}{New mathversion: boldchem} +% \changes{v4.05}{2009/10/25}{Bugfix for chem and boldchem} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macro}{\ifnewl@tex} +% +% \begin{macrocode} +\newif\ifnewl@tex \newl@textrue +\@ifundefined{DeclareMathVersion}% + {\global\newl@texfalse}{\global\newl@textrue}% +% \end{macrocode} +% \end{macro} +% +% Old commands are stored temporarily. +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\def\math@chem{chem} +\def\math@boldchem{boldchem} +\def\math@bold{bold} +\def\math@normal{normal} +%%added 2005/09/02 +\let\oldalpha=\alpha +\let\oldbeta=\beta +\let\oldgamma=\gamma +\let\olddelta=\delta +\let\oldepsilon=\epsilon +\let\oldzeta=\zeta +\let\oldeta=\eta +\let\oldtheta=\theta +\let\oldiota=\iota +\let\oldkappa=\kappa +\let\oldlambda=\lambda +\let\oldmu=\mu +\let\oldnu=\nu +\let\oldxi=\xi +\let\oldpi=\pi +\let\oldrho=\rho +\let\oldsigma=\sigma +\let\oldtau=\tau +\let\oldupsilon=\upsilon +\let\oldphi=\phi +\let\oldchi=\chi +\let\oldpsi=\psi +\let\oldomega=\omega +\let\oldvarepsilon=\varepsilon +\let\oldvartheta=\vartheta +\let\oldvarpi=\varpi +\let\oldvarrho=\varrho +\let\oldvarsigma=\varsigma +\let\oldvarphi=\varphi +\let\oldGamma=\Gamma +\let\oldDelta=\Delta +\let\oldTheta=\Theta +\let\oldLamda=\Lambda +\let\oldXi=\Xi +\let\oldPi=\Pi +\let\oldSigma=\Sigma +\let\oldUpsilon=\Upsilon +\let\oldPhi=\Phi +\let\oldPsi=\Psi +\let\oldOmega=\Omega +\fi +% \end{macrocode} +% +% \begin{macro}{\chemGreekletter} +% +% \changes{v3.01}{2004/11/17}{Redefined: \cs{chemGreekletter}} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup} and \cs{egroup} added} +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\def\chemGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 +\ifx\math@version\math@chem +\mathord{\hbox{\mathversion{normal}$\mathchar"#2$}}\else +\ifx\math@version\math@boldchem +\mathord{\hbox{\mathversion{bold}$\mathchar"#2$}}\else +\ifx\math@version\math@bold +\csname old#1\endcsname +%\mathord{\hbox{\mathversion{bold}$\mathchar"#2$}}%changed 2005/09/02 +\else +\csname old#1\endcsname +%\mathord{\hbox{\mathversion{normal}$\mathchar"#2$}}%changed 2005/09/02 +\fi\fi\fi\egroup}}%added 2010/11/21 +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\chemUpGreekletter} +% +% \changes{v4.05}{2009/10/25}{Defined: \cs{chemUpGreekletter}} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup} and \cs{egroup} added} +% \begin{macrocode} +%%%\if@chemtimes\else%for chemtimes package +\newif\ifupgreekrm \upgreekrmfalse +\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\upgreekrmtrue\mathrm} +%%%\fi +\if@chemtimes\else\relax%for chemtimes package +\def\chemUpGreekletter#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by SF +\ensuremath{% +\ifx\math@version\math@chem +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}\egroup}}%added 2010/11/21 by SF +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\ChemAccent} +% +% \changes{v4.05}{2009/10/25}{Defined: \cs{ChemAccent}} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\def\ChemAccent#1#2#3{% +\expandafter\def\csname #1\endcsname{% +\ifx\math@version\math@chem +#2{\hbox{\kern-0.15em\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\kern-0.2em\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}} +\fi +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{\SetChemSymbol} +% +% \changes{v3.01}{2004/11/17}{New command: \cs{SetChemSymbol}} +% \changes{v4.05}{2009/10/25}{Added due to \cs{chemUpGreekletter}} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\def\SetChemSymbol{% +\chemGreekletter{alpha}{010B}% +\chemGreekletter{beta}{010C}% +\chemGreekletter{gamma}{010D}% +\chemGreekletter{delta}{010E}% +\chemGreekletter{epsilon}{010F}% +\chemGreekletter{zeta}{0110}% +\chemGreekletter{eta}{0111}% +\chemGreekletter{theta}{0112}% +\chemGreekletter{iota}{0113}% +\chemGreekletter{kappa}{0114}% +\chemGreekletter{lambda}{0115}% +\chemGreekletter{mu}{0116}% +\chemGreekletter{nu}{0117}% +\chemGreekletter{xi}{0118}% +\chemGreekletter{pi}{0119}% +\chemGreekletter{rho}{011A}% +\chemGreekletter{sigma}{011B}% +\chemGreekletter{tau}{011C}% +\chemGreekletter{upsilon}{011D}% +\chemGreekletter{phi}{011E}% +\chemGreekletter{chi}{011F}% +\chemGreekletter{psi}{0120}% +\chemGreekletter{omega}{0121}% +\chemGreekletter{varepsilon}{0122}% +\chemGreekletter{vartheta}{0123}% +\chemGreekletter{varpi}{0124}% +\chemGreekletter{varrho}{0125}% +\chemGreekletter{varsigma}{0126}% +\chemGreekletter{varphi}{0127}% +% +%\chemGreekletter{Gamma}{7000}% +%\chemGreekletter{Delta}{7001}% +%\chemGreekletter{Theta}{7002}% +%\chemGreekletter{Lambda}{7003}% +%\chemGreekletter{Xi}{7004}% +%\chemGreekletter{Pi}{7005}% +%\chemGreekletter{Sigma}{7006}% +%\chemGreekletter{Upsilon}{7007}% +%\chemGreekletter{Phi}{7008}% +%\chemGreekletter{Psi}{7009}% +%\chemGreekletter{Omega}{700A}% +% +% for uppercase Greek letters and some fonts +% (cmmi medium or bold) 2009/10/25 +\chemUpGreekletter{Gamma}{\mathord}{00}% +\chemUpGreekletter{Delta}{\mathord}{01}% +\chemUpGreekletter{Theta}{\mathord}{02}% +\chemUpGreekletter{Lambda}{\mathord}{03}% +\chemUpGreekletter{Xi}{\mathord}{04}% +\chemUpGreekletter{Pi}{\mathord}{05}% +\chemUpGreekletter{Sigma}{\mathord}{06}% +\chemUpGreekletter{Upsilon}{\mathord}{07}% +\chemUpGreekletter{Phi}{\mathord}{08}% +\chemUpGreekletter{Psi}{\mathord}{09}% +\chemUpGreekletter{Omega}{\mathord}{0A}% +\chemUpGreekletter{imath}{\mathord}{7B}% +\chemUpGreekletter{jmath}{\mathord}{7C}% +\chemUpGreekletter{mathless}{\mathrel}{3C}%in place of < +\chemUpGreekletter{mathgreater}{\mathrel}{3E}% in place of > +\chemUpGreekletter{leftharpoonup}{\mathrel}{28}% +\chemUpGreekletter{leftharpoondown}{\mathrel}{29}% +\chemUpGreekletter{rightharpoonup}{\mathrel}{2A}% +\chemUpGreekletter{rightharpoondown}{\mathrel}{2B}% +\chemUpGreekletter{ell}{\mathord}{60}% +\chemUpGreekletter{wp}{\mathord}{7D}% +\chemUpGreekletter{partial}{\mathord}{40}% +\chemUpGreekletter{flat}{\mathord}{5B}% +\chemUpGreekletter{natural}{\mathord}{5C}% +\chemUpGreekletter{sharp}{\mathord}{5D}% +\chemUpGreekletter{triangleleft}{\mathbin}{2F}% +\chemUpGreekletter{triangleright}{\mathbin}{2E}% +\chemUpGreekletter{smile}{\mathrel}{5E}% +\chemUpGreekletter{frown}{\mathrel}{5F}% +\chemUpGreekletter{star}{\mathbin}{3F}% +\ChemAccent{vec}{\rlap}{7E}% +} +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\mathversion} +% +% \changes{v3.00}{2002/5/30}{Redefined: \cs{mathversion}} +% \changes{v3.01}{2004/11/17}{Redefined: \cs{mathversion}} +% \changes{v4.05}{2009/10/25}{Setting added for bugfix} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\DeclareRobustCommand\mathversion[1] + {\@nomath\mathversion + \expandafter\ifx\csname mv@#1\endcsname\relax + \@latex@error{Math version `#1' is not defined}\@eha\else + \edef\math@version{#1}% + \gdef\glb@currsize{}% +%%%%%%2002/5/30, 2004/11/17, and 2009/10/25 +\ifx\math@version\math@chem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \mathcode`\=="313D + \mathcode`\?="513F + \mathcode`\[="415B + \mathcode`\]="515D + \mathcode`\(="4128 + \mathcode`\)="5129 +% \mathcode`\+="212B + \SetChemSymbol +\else\ifx\math@version\math@boldchem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \mathcode`\=="313D + \mathcode`\?="513F + \mathcode`\[="415B + \mathcode`\]="515D + \mathcode`\(="4128 + \mathcode`\)="5129 +% \mathcode`\+="212B + \def\check{\mathaccent"7114 } + \def\dot{\mathaccent"715F } + \def\acute{\mathaccent"7113 } + \def\grave{\mathaccent"7112 } + \def\ddot{\mathaccent"717F } + \def\bar{\mathaccent"7116 } + \def\breve{\mathaccent"7115 } + \SetChemSymbol +\else\ifx\math@version\math@bold + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \mathcode`\=="303D + \mathcode`\?="503F + \mathcode`\[="405B + \mathcode`\]="505D + \mathcode`\(="4028 + \mathcode`\)="5029 +% \mathcode`\+="202B + \SetChemSymbol% +\else + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \mathcode`\=="303D + \mathcode`\?="503F + \mathcode`\[="405B + \mathcode`\]="505D + \mathcode`\(="4028 + \mathcode`\)="5029 +% \mathcode`\+="202B + \SetChemSymbol% +\fi\fi\fi +%%%%%% + \aftergroup\glb@settings + \fi} +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\SetSymbolFont} +% +% \changes{v3.01}{2004/11/17}{Fonts for mathverion{chem}.} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\ifnewl@tex +\@ifundefined{mv@chem}{\DeclareMathVersion{chem}% +\SetSymbolFont{letters}{chem}{OT1}{cmr}{m}{n}%OT1-->T1-->OT1 +\SetSymbolFont{operators}{chem}{OT1}{cmr} {m}{n}% +\SetSymbolFont{symbols} {chem}{OMS}{cmsy}{m}{n}% +\DeclareMathVersion{boldchem}%2002/5/30 +\SetSymbolFont{operators}{boldchem}{OT1}{cmr} {bx}{n}% +\SetSymbolFont{letters} {boldchem}{OT1}{cmr} {b}{n}% +\SetSymbolFont{symbols} {boldchem}{OMS}{cmsy}{b}{n}% +}{} +\fi +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\mathnormal} +% +% The macro \verb/\mathnormal/ for outputting numbers of old style +% has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for oldsytle fonts} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\let\oldmathnormal=\mathnormal +\def\mathnormal#1{% +\ifx\math@version\math@chem +%\mathgroup\@ne +\mathord{\hbox{\usefont{OML}{cmm}{m}{it}#1}}% +\else\ifx\math@version\math@boldchem +%\mathgroup\@ne +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}#1}}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal{#1}% +\upgreekrmfalse +\else +\oldmathnormal{#1}% +\fi +\else +\oldmathnormal{#1}% +%\mathgroup\@ne\usefont{OML}{cmm}{m}{it}% +\fi\fi\fi}% +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\oldstyle} +% +% The command \verb/\oldstyle/ should be used in the form of \verb/{\oldstyle ...}/ +% in a math mode. +% +% \changes{v4.05}{2009/10/25}{Redefined for oldsytle fonts} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\def\oldstyle{\egroup% +\ifx\math@version\math@chem +\hbox\bgroup\usefont{OML}{cmm}{m}{it}% +\else\ifx\math@version\math@boldchem +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal\bgroup% +\upgreekrmfalse +\else +\oldmathnormal\bgroup% +\fi +\else +\oldmathnormal\bgroup% +\fi\fi\fi}% +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\mathcal} +% +% The macro \verb/\mathcal/ for outputting calligraphic letters +% has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for calligraphic letters} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\let\oldmathcal=\mathcal +\def\mathcal#1{% +\ifx\math@version\math@chem +\mathgroup\tw@{\usefont{OMS}{cmsy}{m}{n}#1}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@{\usefont{OMS}{cmsy}{b}{n}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldmathcal{#1}\upgreekrmfalse +\else \oldmathcal{#1}\fi +\else +\oldmathcal{#1}% +\fi\fi\fi}% +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cal} +% +% The macro \verb/\cal/ for outputting calligraphic letters +% (a macro of declaration type) has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for calligraphic letters} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\if@chemtimes\else%for chemtimes package +\let\oldcal=\cal +\def\cal{% +\ifx\math@version\math@chem +\mathgroup\tw@\usefont{OMS}{cmsy}{m}{n}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@\usefont{OMS}{cmsy}{b}{n}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldcal\upgreekrmfalse +\else\oldcal\fi +\else +\oldcal% +\fi\fi\fi}% +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\chemform} +% +% \changes{v2.00a}{2000/11/03}{change the position of chemcorr +% in chemform command} +% +% \begin{macrocode} +\ifnewl@tex +\def\chemform#1{{\mathversion{chem}% +$\chemcorr #1$\leavechemcorr}} +\else +\def\chemform#1{\chemcorr +$\rm #1$\leavechemcorr} +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{environment}{chemmath} +% +% \changes{v2.00a}{2000/11/03}{change the position of chemcorr +% in chemmath command} +% \begin{macrocode} +% ************************ +% * chemmath environment * +% ************************ +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\ifnewl@tex +\def\chemmath{\begingroup\mathversion{chem}\[\chemcorr} +\def\endchemmath{\]\endgroup\leavechemcorr} +\else +\def\chemmath{\chemcorr\[\rm} +\def\endchemmath{\] \leavechemcorr} +\fi +% \end{macrocode} +% \end{environment} +% +% \begin{environment}{chemeqn} +% +% \changes{v2.00a}{2000/11/03}{change the position of chemcorr +% in chemeqn command} +% \begin{macrocode} +% *********************** +% * chemeqn environment * +% *********************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\ifnewl@tex +\def\chemeqn{\begingroup\mathversion{chem}\equation\chemcorr} +%\def\endchemeqn{\endequation\endgroup\leavechemcorr} +\def\endchemeqn{\endequation\leavechemcorr\endgroup}%bug fix 2013/6/15 +\else +\def\chemeqn{\chemcorr\equation\rm} +\def\endchemeqn{\endequation\leavechemcorr} +\fi +% \end{macrocode} +% \end{environment} +% +% \begin{environment}{chemeqnarray} +% +% \changes{v2.00a}{2000/11/03}{change the position of chemcorr +% in chemeqnarray command} +% \begin{macrocode} +% **************************** +% * chemeqnarray environment * +% **************************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\ifnewl@tex +\def\chemeqnarray{\stepcounter{equation} + \let\@currentlabel=\theequation + \global\@eqnswtrue + \global\@eqcnt\z@\tabskip\@centering + \let\\=\@eqncr + \begingroup\mathversion{chem} +$$\chemcorr\halign to \displaywidth\bgroup + \@eqnsel\hskip\@centering + $\rm \displaystyle\tabskip\z@{##}$ & + \global\@eqcnt\@ne + \hskip \arraycolsep \hfil$\rm{##}$\hfil & + \global\@eqcnt\tw@ \hskip \arraycolsep + $\rm \displaystyle\tabskip\z@{##}$\hfil + \tabskip\@centering & + \llap{##}\tabskip\z@\cr} +\def\endchemeqnarray{\endeqnarray\endgroup +\leavechemcorr} +\else +\def\chemeqnarray{\stepcounter{equation} + \let\@currentlabel=\theequation + \global\@eqnswtrue + \global\@eqcnt\z@\tabskip\@centering + \let\\=\@eqncr \chemcorr +$$\halign to \displaywidth\bgroup + \@eqnsel\hskip\@centering + $\rm \displaystyle\tabskip\z@{##}$ & + \global\@eqcnt\@ne + \hskip \arraycolsep \hfil$\rm{##}$\hfil & + \global\@eqcnt\tw@ \hskip \arraycolsep + $\rm \displaystyle\tabskip\z@{##}$\hfil + \tabskip\@centering & + \llap{##}\tabskip\z@\cr} +\def\endchemeqnarray{\endeqnarray +\leavechemcorr} +\fi +% \end{macrocode} +% \end{environment} +% +% \begin{environment}{chemeqnarray*} +% +% \begin{macrocode} +% ***************************** +% * chemeqnarray* environment * +% ***************************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +% bug fix (1996/06/15) the end command is replaced. +\let\@seqncr=\@eqncr +\ifnewl@tex +\@namedef{chemeqnarray*}{% +\def\@eqncr{\nonumber\@seqncr}\chemeqnarray} +\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} +\else +\@namedef{chemeqnarray*}{% +\def\@eqncr{\nonumber\@seqncr\rm}\chemeqnarray} +\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} +\fi +% \end{macrocode} +% \end{environment} +% +% \begin{environment}{chemeqnarraya} +% +% \begin{macrocode} +% ***************** +% * chemeqnarraya * +% ***************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by S. Fujita +% revised may 21 1992 by S. Fujita +\def\chemeqnarraya{\chemeqn@rraya \chemeqnarray} +\def\chemeqn@rraya{% + \c@enumi=\c@equation + \advance\c@enumi\@ne + \c@equation=\z@ + \@ifundefined{chapter}% +{\def\theequation{\theenumi\alph{equation}}}% +{\def\theequation{% +\thechapter.\theenumi\alph{equation}}}} +\def\endchemeqnarraya{\endchemeqnarray +\global\c@equation=\c@enumi} +% \end{macrocode} +% \end{environment} +% +% \begin{macro}{\if@display} +% This switch is to meat the \textsf{amsmath} package. +% \changes{v4.05}{2009/10/25}{A new command} +% \begin{macrocode} +\@ifundefined{if@display}{\newif\if@display}{} +% \end{macrocode} +% \end{macro} +% \begin{environment}{ChemEquation} +% \changes{v4.05}{2009/10/25}{A new environment} +% \begin{macrocode} +\newif\ifupgreekrm \upgreekrmfalse +\let\ChemEqFont=\rm +\def\ChemEquation{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +\everydisplay{\ChemEqFont\chemcorr\@displaytrue\upgreekrmtrue}\equation} +\def\endChemEquation{\endequation\everymath{}\everydisplay{}% +\@displayfalse\leavechemcorr\upgreekrmfalse} +% \end{macrocode} +% \end{environment} + +% \begin{environment}{ChemEqnarray} +% \changes{v4.05}{2009/10/25}{A new environment} +% \begin{macrocode} +\def\ChemEqnarray{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +%\everydisplay{\ChemEqFont\chemcorr\@displaytrue} +\eqnarray} +\def\endChemEqnarray{\endeqnarray\everymath{}% +%\everydisplay{}\@displayfalse +\leavechemcorr\upgreekrmfalse} +% \end{macrocode} +% \end{environment} +% +% \begin{macro}{\ChemForm} +% +% \changes{v4.05}{2009/10/25}{A new command} +% \begin{macrocode} +\def\ChemForm#1{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}$#1$\everymath{}% +\leavechemcorr\upgreekrmfalse} +% \end{macrocode} +% \end{macro} +% +% \begin{environment}{ChemEqnarray*} +% \changes{v4.05}{2009/10/25}{A new environment} +% \begin{macrocode} +\@namedef{ChemEqnarray*}{\def\@eqncr{\nonumber\@seqncr}\ChemEqnarray} +\@namedef{endChemEqnarray*}{\nonumber\endChemEqnarray} +% \end{macrocode} +% \end{environment} +% +% \begin{macro}{\newchemenvironment} +% This command is used to creat a new environment for chemistry based on an appropriate +% environment for mathematics. +% +% \begin{verbatim} +% \newchemenviroment{New Name}{Old Environment} +% \end{verbatim} +% +% \changes{v4.05}{2009/11/19}{A new command} +% \begin{macrocode} +\def\newchemenvironment#1#2{% +\expandafter\def\csname #1\endcsname{% +\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +%\everydisplay{\ChemEqFont\chemcorr\@displaytrue}% +\csname #2\endcsname}% +\expandafter\def\csname end#1\endcsname{% +\csname end#2\endcsname\everymath{}% +%\everydisplay{}\@displayfalse% +\leavechemcorr\upgreekrmfalse}} +% \end{macrocode} +% \end{macro} +% +% \section{XyMcompd and XyMtab Environments} +% +% These environments are designed for XyM Markup Language +% to treat a XyM tag and a XyMtab tag. +% +% \begin{environment}{XyMcompd} +% \changes{v2.00}{1999/03/16}{New Environment} +% +% \begin{macrocode} +\def\XyMcompd(#1,#2)(#3,#4)#5#6{% +\begingroup +\edef\xymrefa{#5}\edef\xymrefb{#6}% +\edef\kkk{#1}% +\begin{tabular}{c} +\ifx\kkk\empty\else +\begin{sfpicture}(#1,#2)(#3,#4)\fi\ignorespaces} +\def\endXyMcompd{% +\ifx\kkk\empty\else\end{sfpicture}\fi +\\[-\baselineskip] +\ifx\xymrefa\empty\else{\bf \compd\xymrefb +\expandafter\label{\xymrefa}}\fi +\end{tabular}\endgroup} +% \end{macrocode} +% \end{environment} +% +% \begin{environment}{XyMtab} +% \changes{v2.00}{1999/03/16}{New Environment} +% +% \begin{macrocode} +\def\XyMtab#1{\center\tabular{#1c}} +\def\endXyMtab{\endtabular\endcenter} +% \end{macrocode} +% \end{environment} +% +% \begin{macro}{\derivlist} +% \changes{v2.00}{1999/03/17}{New command} +% +% For example, derivatives are specified as follows: +% \begin{verbatim} +% \derivlist{X = Cl;X = F;X = Me} +% \end{verbatim} +% +% \begin{macrocode} +\def\derivlist#1{% +\mbox{}\\ +\begingroup\def\arraystretch{0.7}% +\begin{tabular}{l} +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else% +\hbox to2em{\hss\derivnum}:\space\member \\ +\fi}\end{tabular}\endgroup} +% \end{macrocode} +% \end{macro} +% This command is used in the XyMderiv environment. +% +% \begin{environment}{XyMderiv} +% \changes{v2.00}{1999/03/17}{New Environment} +% +% \begin{macrocode} +\def\XyMderiv{\tabular{c}} +\def\endXyMderiv{\endtabular} +% \end{macrocode} +% \end{environment} +% +% \section{Useful commands} +% +% \begin{macro}{\endash} +% \begin{macro}{\Cent} +% \begin{macro}{\degC} +% \begin{macro}{\degF} +% +% \begin{macrocode} +% *************** +% * temperature * +% *************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\endash{\mbox{--{}}} +\def\Cent{\mbox{\raise.9ex\hbox{% + \scriptsize$\circ$}\kern-.12em\hbox{C}}} +\def\degC{\mbox{\kern-.2em\char'27\kern-.3em C}} +\def\degF{\mbox{\kern-.2em\char'27\kern-.3em F}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\yubin} +% \begin{macro}{\Yubin} +% +% \begin{macrocode} +% ******************* +% * yubin and Yubin * +% ******************* +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\yubin{$\overline{\top}$} +\def\Yubin#1{\leavevmode\hbox{\vbox{\hrule\@height.12ex\@width.7em +\kern.28ex\hrule\@height.12ex\@width.7em +\hbox{\kern.35em\kern-.06ex +\vbox{\hrule\@height1ex\@width.12ex}}}\kern.1em{#1}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\xlethead} +% +% \begin{macrocode} +% *********** +% * lethead * +% *********** +% After Chapter 18 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\xlethead#1{% + \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} + \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} + \kern-.6667\baselineskip \line{\hrulefill\hbox{ #1 }\hrulefill}} +\def\lethead#1#2#3{\def\line{\hbox to\textwidth} + \vbox{\line{\hrulefill} + \xlethead{#1} \xlethead{#2} \xlethead{#3} + \kern-.6667\baselineskip \line{\hrulefill}}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\horizon} +% +% \begin{macrocode} +% ************ +% * baseline * +% ************ +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\horizon{\rule{12pt}{0.1pt}} +% \end{macrocode} +% \end{macro} +% +% \section{Logos} +% +% \begin{macro}{\resetfontsize} +% \begin{macro}{\Bib} +% \begin{macro}{\BibTeX} +% \begin{macro}{\jBibTeX} +% +% \begin{macrocode} +% ******************************** +% * Redefinition of Logos * +% * January 3, 1993 by S. Fujita * +% ******************************** +% After Chapter 12 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\newcount\TestCount \def\tmpkern{\kern0pt} +\ifnewl@tex \else +\def\resetfontsize{% + \ifx\@currsize\normalsize% + \def\tmpf@ntsize{% + \load{\footnotesize}{\sf}% + \load{\footnotesize}{\sl}% + \load{\footnotesize}{\bf}% + \def\tmpkern{\kern0.05em}% + \footnotesize}\fi + \ifx\@currsize\scriptsize \let\tmpf@ntsize=\tiny\fi + \ifx\@currsize\footnotesize \let\tmpf@ntsize=\tiny\fi + \ifx\@currsize\small \let\tmpf@ntsize=\scriptsize\fi + \ifx\@currsize\large \let\tmpf@ntsize=\small\fi + \ifx\@currsize\Large \let\tmpf@ntsize=\@normalsize\fi + \ifx\@currsize\LARGE \let\tmpf@ntsize=\large\fi + \ifx\@currsize\huge \let\tmpf@ntsize=\Large\fi + \ifx\@currsize\Huge \let\tmpf@ntsize=\LARGE\fi} +\fi +% \end{macrocode} +% +% \begin{macrocode} +\ifnewl@tex \else +\def\Bib{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle B$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf + $\fam=\TestCount\kern-.025em I\kern-.045em B$}% + \else% + \hbox{$\fam\TestCount\scriptstyle\kern-.025em I\kern-.045em B$}% + \fi +} +\fi +% \end{macrocode} +% +% \begin{macrocode} +%\def\BibTeX{\Bib\kern-.08em\TeX} +%\def\jBibTeX{\leavevmode\lower.46ex\hbox{J} +%\kern-.08em\Bib\kern-.08em\TeX} +% %%\def\BibTeX{% +% {\rm B\kern-.05em{\sc i\kern-.025emb}\kern-.08em\TeX}} +% %%%%%1996/04/20 by Shinsaku Fujita%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifnewl@tex +\DeclareRobustCommand{\BibTeX}{% + B\hbox{$\m@th$\csname S@\f@size\endcsname + \fontsize\sf@size\z@ \math@fontsfalse\selectfont + \kern-.025em I\kern-.045em B}\kern-.08em\TeX} +\else \def\BibTeX{\Bib\kern-.08em\TeX} \fi +% \end{macrocode} +% +% \begin{macrocode} +\ifnewl@tex +\DeclareRobustCommand{\jBibTeX}{\mbox{% + \if b\expandafter\@car\f@series\@nil\boldmath\fi + \leavevmode\lower.46ex\hbox{J}\kern-.08em\BibTeX}} +\else +\def\jBibTeX{\leavevmode\lower.46ex\hbox{J}% + \kern-.08em\Bib\kern-.08em\TeX} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\jTeX} +% \begin{macro}{\pTeX} +% +% \begin{macrocode} +\def\jTeX{\leavevmode\lower.46ex\hbox{J}\kern-.15em\TeX} +\def\pTeX{p\kern-.15em\TeX} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\Sub} +% \begin{macro}{\Subbib} +% +% \begin{macrocode} +\ifnewl@tex \else +\def\Sub{\leavevmode\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam{S}% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \ifx\aaa\bbb\resetfontsize% + \hbox{\tmpf@ntsize\bf% + $\fam=\TestCount\kern-.045em{U}\kern-.12em{B}$}% + \else% + \hbox{$\fam\TestCount% + \scriptstyle\kern-.045em{U}\kern-.12em{B}$}% + \fi} +\fi +%\def\SubBib{\Sub\kern-.08em\Bib} +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%1996/04/20 by Shinsaku Fujita%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifnewl@tex +\DeclareRobustCommand{\SubBib}{S\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont% + \kern-.045em{U}\kern-.12em{B}}B\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont \kern-.025em I\kern-.045em B}} +\else \def\SubBib{\Sub\kern-.08em\Bib} \fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\La} +% \begin{macro}{\LaTeX} +% +% \begin{macrocode} +%\def\La{\TestCount=\fam \leavevmode L\raise.42ex +% \hbox{$\fam\TestCount\scriptstyle\kern-.3em A$}} +\ifnewl@tex \else +\def\La{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}\leavevmode{L}% + \ifx\aaa\bbb \resetfontsize% + \raise.46ex\hbox{{\tmpf@ntsize\bf% + $\fam\TestCount\kern-.4em\tmpkern{A}$}}% + \else% + \raise.42ex\hbox{$\fam\TestCount\scriptstyle\kern-.3em{A}$}% + \fi} +\fi +% \end{macrocode} +% +% \begin{macrocode} +% %%%%%1996/04/20 by Shinsaku Fujita%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%\def\LaTeX{\La\kern-.15em\TeX} +\ifnewl@tex \else \def\LaTeX{\La\kern-.15em\TeX}\fi +% \end{macrocode} +% +% \begin{macrocode} +%\def\jLaTeX{\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} +\ifnewl@tex + \DeclareRobustCommand{\jLaTeX}% + {\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} +\else + \def\jLaTeX{\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\PiC} +% \begin{macro}{\PiCTeX} +% +% \begin{macrocode} +\def\PiC{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC} +% \end{macrocode} +% +% \begin{macrocode} +%\def\PiCTeX{\PiC\kern-.11em\TeX} +\ifnewl@tex +\DeclareRobustCommand{\PiCTeX}{\PiC\kern-.11em\TeX} +\else +\def\PiCTeX{\PiC\kern-.11em\TeX} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\tpic} +% \begin{macro}{\PiCTeX} +% +% \begin{macrocode} +%\def\tpic{\TestCount=\fam \leavevmode T% +% \hbox{$\fam\TestCount\scriptstyle +%\kern-.025em P\kern-.025em I\kern-.025emC$}} +\ifnewl@tex +\DeclareRobustCommand{\tpic}{T\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.025em P\kern-.025em I\kern-.025emC}} +\else +\def\tpic{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam \leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize\hbox{$\fam=\TestCount\textstyle T$}% + \ifx\aaa\bbb\hbox{\tmpf@ntsize\bf$\fam=\TestCount% + \kern-.025em P\kern-.025em I\kern-.025emC$}\else% + \hbox{$\fam\TestCount\scriptstyle% + \kern-.025em P\kern-.025em I\kern-.025emC$}\fi} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\Post} +% \begin{macro}{\Script} +% \begin{macro}{\PostScript} +% +% \begin{macrocode} +\ifnewl@tex \else +\def\Post{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle P$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf% + $\fam=\TestCount\kern-.045em O\kern-.015em ST$}% + \else% + \hbox{$\fam\TestCount% + \scriptstyle\kern-.045em O\kern-.015em ST$}% + \fi} +% \end{macrocode} +% +% \begin{macrocode} +\def\Script{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle S$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf$\fam=\TestCount\kern-.035em % + C\kern-.015em R\kern-.015em IP\kern-.035em T$}% + \else% + \hbox{$\fam\TestCount\scriptstyle\kern-.035em % + C\kern-.015em R\kern-.015em IP\kern-.035em T$}% + \fi} +\fi +% \end{macrocode} +% +% \begin{macrocode} +%\def\PostScript{\Post\Script} +% %%%%%1996/04/20 by Shinsaku Fujita%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifnewl@tex +\DeclareRobustCommand{\PostScript}{P\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.045em O\kern-.015em ST}S\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.035em C\kern-.015em R\kern-.015em IP\kern-.035em T}} +\else +\def\PostScript{\Post\Script} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \section{Double and triple bonds} +% +% \begin{macro}{\triplebond} +% \begin{macro}{\doublebond} +% \begin{macro}{\tbond} +% \begin{macro}{\dbond} +% +% \begin{macrocode} +% ***************** +% * “ñd ŽOdŒ‹‡ * +% ***************** +\def\triplebond{\leavevmode\kern.2pt\raisebox{.2ex}{% +\hbox{\vbox{\hrule height.03ex width1em\kern.4ex +\hrule height.03ex width1em\kern.4ex +\hrule height.03ex width1em}}}\hskip.4pt} +\def\doublebond{\leavevmode\kern.2pt\raisebox{.3ex}{% +\hbox{\vbox{\hrule height.03ex width1em\kern.6ex +\hrule height.03ex width1em}}}\hskip.4pt} +\let\tbond=\triplebond +\let\dbond=\doublebond +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \section{Round Arrows} +% +% The macro |\calcontrolpoints| is comman to define round arrows in the \textsf{chmst-ps} +% pacakage and in the \textsf{chmst-pdf} pacakage. Two control points for Bezier curves +% are automatically calculated to draw round arrows. +% +% \begin{macro}{\upwardarrowcalcA} +% \changes{v5.00}{2010/10/01}{Control points for round arrows} +% This macro gives a midpoint between two control points for +% drawing an upward-curved arrow. +% This is used in the definition of the |\calcontrolpoints| command. +% +% \begin{macrocode} +\def\upwardarrowcalcA{% +\@tempcntXc=\@tempcntXa +\advance\@tempcntXc by\@tempcntXb +\advance\@tempcntXc by-\@tempcntYb +\advance\@tempcntXc by\@tempcntYa +\divide\@tempcntXc by2\relax +%% +\@tempcntYc=\@tempcntYa +\advance\@tempcntYc by\@tempcntYb +\advance\@tempcntYc by-\@tempcntXa +\advance\@tempcntYc by\@tempcntXb +\divide\@tempcntYc by2\relax} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\upwardarrowcalcB} +% \changes{v5.00}{2010/10/01}{Control points for round arrows} +% This macro gives two control points for drawing an upward-curved arrow. +% This is used in the definition of the |\calcontrolpoints| command. +% +% \begin{macrocode} +\def\upwardarrowcalcB{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% control point: (\@tempcntXc, \@tempcntYc)% +% control point: (\@cnttempa, \@cnttempb) % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\advance\@tempcntXc by\@tempcntXd +\advance\@tempcntYc by\@tempcntYd +\advance\@cnttempa by-\@tempcntXd +\advance\@cnttempb by-\@tempcntYd} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\downwardarrowcalcA} +% \changes{v5.00}{2010/10/01}{Control points for round arrows} +% This macro gives a midpoint between two control points for +% drawing a down ward-curved arrow. +% This is used in the definition of the |\calcontrolpoints| command. +% +% \begin{macrocode} +\def\downwardarrowcalcA{% +\@tempcntXc=\@tempcntXa +\advance\@tempcntXc by\@tempcntXb +\advance\@tempcntXc by\@tempcntYb +\advance\@tempcntXc by-\@tempcntYa +\divide\@tempcntXc by2\relax +% +\@tempcntYc=\@tempcntYa +\advance\@tempcntYc by\@tempcntYb +\advance\@tempcntYc by\@tempcntXa +\advance\@tempcntYc by-\@tempcntXb +\divide\@tempcntYc by2\relax} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\downwardarrowcalcA} +% \changes{v5.00}{2010/10/01}{Control points for round arrows} +% This macro gives two control points for drawing a down ward-curved arrow. +% This is used in the definition of the |\calcontrolpoints| command. +% +% \begin{macrocode} +\def\downwardarrowcalcB{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% control point: (\@tempcntXc, \@tempcntYc)% +% control point: (\@cnttempa, \@cnttempb) % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\advance\@tempcntXc by\@tempcntXd +\advance\@tempcntYc by\@tempcntYd +\advance\@cnttempa by-\@tempcntXd +\advance\@cnttempb by-\@tempcntYd} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\calcontrolpoints} +% \changes{v5.00}{2010/10/01}{Control points for round arrows} +% +% \begin{macrocode} +\def\calcontrolpoints#1{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arrow (\@tempcntXa,\@tempcntYa) <---> (\@tempcntXb, \@tempcntYb) % +% #1=0, 2, 4: upward round arrow % +% #1=1, 3, 5: downward round arrow % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\@tempcntXd=\@tempcntXb +\advance\@tempcntXd by-\@tempcntXa +\divide\@tempcntXd by4\relax +\@tempcntYd=\@tempcntYb +\advance\@tempcntYd by-\@tempcntYa +\divide\@tempcntYd by4\relax +% +\ifcase#1\relax%upward round: 0 +\upwardarrowcalcA% +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 1 +\downwardarrowcalcA% +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\or%upward round: 2 +\upwardarrowcalcA% +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntYc by\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 3 +\downwardarrowcalcA% +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntYc by-\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\or%upward round: 4 +\upwardarrowcalcA% +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntYc by\@tempcntXd +\advance\@tempcntYc by\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 5 +\downwardarrowcalcA% +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntYc by-\@tempcntXd +\advance\@tempcntYc by-\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\fi} +% \end{macrocode} +% \end{macro} +% +% +% The following macros are supported only by the \textsf{chmst-ps} pacakage. +% +% \begin{macrocode} +%\let\reactDEqarrow=\reactdeqarrow +%\let\reactUEqarrow=\reactueqarrow +%\let\reactVEqarrow=\reactveqarrow +%\let\reactREqarrow=\reactreqarrow +%\let\reactLEqarrow=\reactleqarrow +%\let\reactEqarrow=\reacteqarrow +%\let\lllongleftharpoonup=\lllongleftarrow +%\let\lllongrightharpoondown=\lllongrightarrow +%\let\llongleftharpoonup=\llongleftarrow +%\let\llongrightharpoondown=\llongrightarrow +% \end{macrocode} +% +% \section{Initial Setting and Switch to Arrows of Original Styles} +% +% \begin{macro}{\chemistsw} +% \begin{macrocode} +\def\chemistsw{%setting of the chemist package +\let\reactrarrow=\oldreactrarrow% +\let\reactlarrow=\oldreactlarrow +\let\reactlrarrow=\oldreactlrarrow +\let\reacteqarrow=\oldreacteqarrow +%%%% +\let\reactreqarrow=\oldreactreqarrow% +\let\reactleqarrow=\oldreactleqarrow +%%%% +\let\reactdarrow=\oldreactdarrow% +\let\reactuarrow=\oldreactuarrow +\let\reactveqarrow=\oldreactveqarrow +\let\reactduarrow=\oldreactduarrow +%%%% +\let\reactsearrow=\oldreactsearrow% +\let\reactnwarrow=\oldreactnwarrow +\let\reactnearrow=\oldreactnearrow +\let\reactswarrow=\oldreactswarrow +%%%% +\let\reactdeqarrow=\oldreactdeqarrow% +\let\reactueqarrow=\oldreactueqarrow +\let\reactulrarrow=\oldreactulrarrow +\let\reactdlrarrow=\oldreactdlrarrow +%%%% +\let\schemelarrow=\oldschemelarrow% +\let\schemerarrow=\oldschemerarrow +\let\schemelrarrow=\oldschemelrarrow +%%%% +\let\llongrightarrow=\oldllongrightarrow%%%--->% +\let\llongleftarrow=\oldllongleftarrow%%%<--- +\let\llongleftrightarrow=\oldllongleftrightarrow%%%<---> +\let\Equilibarrow=\oldEquilibarrow%%%<--- and ---> +\let\Llongrightarrow=\oldLlongrightarrow%%%===> +\let\Llongleftarrow=\oldLlongleftarrow%%%<=== +\let\Llongleftrightarrow=\oldLlongleftrightarrow%%<===> +%%%%% +\let\llongleftharpoondown=\oldllongleftharpoondown%%% /---% +\let\llongrightharpoonup=\oldllongrightharpoonup%%%---/ +\let\equilibarrow=\oldequilibarrow%%% /--- and ---/ +%%%%% +\let\lllongrightarrow=\oldlllongrightarrow%%%%------>% +\let\lllongleftarrow=\oldlllongleftarrow%%%<------- +\let\lllongleftrightarrow=\oldlllongleftrightarrow%%%<-------> +\let\Equiliblongarrow=\oldEquiliblongarrow%%%<------- and -------> +\let\Lllongrightarrow=\oldLllongrightarrow%%%=======> +\let\Lllongleftarrow=\oldLllongleftarrow%%%<======= +\let\Lllongleftrightarrow=\oldLllongleftrightarrow%%<=======> +%%%%% +\let\lllongleftharpoondown=\oldlllongleftharpoondown%%% /-------% +\let\lllongrightharpoonup=\oldlllongrightharpoonup%%%-------/ +\let\equiliblongarrow=\oldequiliblongarrow%%% /------ and ------/ +%%%%tentative setting +\let\reactDEqarrow=\oldreactdeqarrow +\let\reactUEqarrow=\oldreactueqarrow +\let\reactVEqarrow=\oldreactveqarrow +\let\reactREqarrow=\oldreactreqarrow +\let\reactLEqarrow=\oldreactleqarrow +\let\reactEqarrow=\oldreacteqarrow +\let\lllongleftharpoonup=\oldlllongleftarrow +\let\lllongrightharpoondown=\oldlllongrightarrow +\let\llongleftharpoonup=\oldllongleftarrow +\let\llongrightharpoondown=\oldllongrightarrow +%%%% +} +% \end{macrocode} +% \end{macro} +% +% Dummy commands are declared for compatibility to PS and PDF mode. +% In paticular, arrows defined in the \textsf{chmst-ps} and \textsf{chmst-pdf} packages +% are defined as futile commands. +% \changes{v5.00}{2010/10/01}{for bond coloring and the LaTeX Project Public License} +% \begin{macrocode} +\RequirePackage{assurechemist} +% \end{macrocode} +% +% Initial setting: +% \begin{macrocode} +\chemistsw%setting of the chemist package +\mathversion{normal} +%</chemist> +% \end{macrocode} +% \Finale +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/chemist.ins b/macros/latex/contrib/xymtex/chemist/chemist.ins new file mode 100644 index 0000000000..0fdfaa6469 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemist.ins @@ -0,0 +1,63 @@ +\def\batchfile{chemist.ins} +\input docstrip.tex +\preamble + +This is a generated file. + +Copyright 1996, 2000, 2001, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita6 + +This file is part of the ChemSci system. +======================================= + +Released on June 1, 1996 +Released on November 3, 2000 (v2.00a) +Released on June 20, 2001 (v2.01) +Released on August 30, 2004 (v4.01) +Released on November 17, 2004 (v4.01b) +Released on December 02, 2004 (v4.01c) +Released on September 02, 2005 (v4.03) +Released on October 25, 2009 (v4.04) +Released on November 08, 2009 (v4.05) +Released on November 21, 2010 (v5.00a) bug fix +Released on June 06, 2013 (v5.01) bug fix + +Copyright (C) 1996, 2000, 2001, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita, all rights reserved. +This style file is created for submitting a manuscript to +scientific journals. This style file is to be contained in the +``chemist'' or ``xymtex'' directory which is an input directory for TeX. + +For using this file, see + Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' + Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16. + +For PostScript output, use chmst-ps.sty together with chemist.sty. + +Copying of this file is authorized only if either + + (1) you make absolutely no changes to your copy, including name and + directory name + (2) if you do make changes, + (a) you name it something other than the names included in the + ``chemist'' directory and + (b) you acknowledge the original name. + This restriction ensures that all standard styles are identical. + +======================================= + +This file is a modification of latex.tex (LaTeX2.09) and of latex.ltx +(a LaTeX2e), the reused parts of which is subject to +Copyright 1994 the LaTeX3 project and the individual authors (For further +copyright information see the file legal.txt of the LaTeX2e standard +distribution, and any other copyright indicated in this file.) + +\endpreamble + +\keepsilent + +\generateFile{chemist.drv}{t}{% + \from{chemist.dtx}{driver}} + +\generateFile{chemist.sty}{t}{% + \from{chemist.dtx}{chemist}} + +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/chemist.sty b/macros/latex/contrib/xymtex/chemist/chemist.sty new file mode 100644 index 0000000000..a633df70a0 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemist.sty @@ -0,0 +1,1492 @@ +%% +%% This is file `chemist.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% chemist.dtx (with options: `chemist') +%% +%% This is a generated file. +%% +%% Copyright 1996, 2000, 2001, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita6 +%% +%% This file is part of the ChemSci system. +%% ======================================= +%% +%% Released on June 1, 1996 +%% Released on November 3, 2000 (v2.00a) +%% Released on June 20, 2001 (v2.01) +%% Released on August 30, 2004 (v4.01) +%% Released on November 17, 2004 (v4.01b) +%% Released on December 02, 2004 (v4.01c) +%% Released on September 02, 2005 (v4.03) +%% Released on October 25, 2009 (v4.04) +%% Released on November 08, 2009 (v4.05) +%% Released on November 21, 2010 (v5.00a) bug fix +%% Released on June 06, 2013 (v5.01) bug fix +%% +%% Copyright (C) 1996, 2000, 2001, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita, all rights reserved. +%% This style file is created for submitting a manuscript to +%% scientific journals. This style file is to be contained in the +%% ``chemist'' or ``xymtex'' directory which is an input directory for TeX. +%% +%% For using this file, see +%% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' +%% Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16. +%% +%% For PostScript output, use chmst-ps.sty together with chemist.sty. +%% +%% Copying of this file is authorized only if either +%% +%% (1) you make absolutely no changes to your copy, including name and +%% directory name +%% (2) if you do make changes, +%% (a) you name it something other than the names included in the +%% ``chemist'' directory and +%% (b) you acknowledge the original name. +%% This restriction ensures that all standard styles are identical. +%% +%% ======================================= +%% +%% This file is a modification of latex.tex (LaTeX2.09) and of latex.ltx +%% (a LaTeX2e), the reused parts of which is subject to +%% Copyright 1994 the LaTeX3 project and the individual authors (For further +%% copyright information see the file legal.txt of the LaTeX2e standard +%% distribution, and any other copyright indicated in this file.) +%% +%%%%%%%%%% +%%%%%%%%%% +%%%%%%%%%% +%%%%%%%%%% +%%%%%%%%%% +%%%%%%%%%% +%%%%%%%%%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +%% `chemist.dtx' ver1.01a (for LaTeX2e) 1996/06/15 +%% `chemist.dtx' ver1.02 (for LaTeX2e) 2009/11/08 +%% `chemist.dtx' ver5.00 (for LaTeX2e) 2010/10/01 +%% `chemist.dtx' ver5.00a (for LaTeX2e) 2010/11/21 +%% by Shinsaku Fujita +%% + +%%%%%%%% +\def\j@urnalname{chemist} \def\journalID{chemist} +\def\versi@ndate{June 6, 2013} +\def\versi@nno{ver5.01} +\def\copyrighth@lder{SF} % Shinsaku Fujita +%%%%%%%%%% +\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space +[\copyrighth@lder]} +\typeout{chemist.sty ver5.01 (for LaTeX2e) 2013/06/06[SF]} +\@ifundefined{ifchemtimes}{\newif\ifchemtimes}{}%from chemtimes +\@ifundefined{if@chemtimes}{\newif\if@chemtimes}{} +\@ifundefined{if@@chemtimes}{\newif\if@@chemtimes}{}%from chemtimes +\DeclareOption{chemtimes}{\@chemtimestrue} +\@chemtimesfalse +\ProcessOptions +\if@chemtimes +\if@@chemtimes\else +\ifchemtimes\else + \PackageError{chemist} + {The option ``chemtimes'' is not permitted} + {You should use this option after the chemtimes package is loaded} +\fi\fi\fi +\@ifundefined{chapter}{\newcounter{compd}}{\newcounter{compd}[chapter]} +\def\thecompd{\arabic{compd}} +\def\compd{\leavevmode\refstepcounter{compd}{\large\bf \thecompd}} +\def\nocompd{\refstepcounter{compd}} +\def\compdlabel#1{\compd \label{#1}} +\def\nocompdlabel#1{\nocompd \label{#1}} +\@ifundefined{bf}{\def\bf{\normalfont\bfseries}}{} +\def\cref#1{{\bf \ref{#1}}} +\def\compdfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\compdmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\lbcompdpbox#1#2#3{\parbox{#2}{\vskip 2em + \parbox{#2}{#3 \par \centering{\compdlabel{#1}}\vskip 2em }}} +\newcounter{deriv}[compd] +\def\thederiv {\thecompd\alph{deriv}} +\def\deriv{\leavevmode\refstepcounter{deriv}{\large\bf \thederiv}} +\def\noderiv{\refstepcounter{deriv}} +\def\derivnum{% +\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} +\def\derivlabel#1{\deriv \label{#1}} +\def\noderivlabel#1{\noderiv \label{#1}} +\def\derivfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\derivmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} +\def\lbderivpbox#1#2#3{\parbox{#2}{\vskip 2em + \parbox{#2}{#3 \par \centering{\derivlabel{#1}}\vskip 2em }}} +\def\deriva{\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} +\def\noderiva{\refstepcounter{deriv}} +\def\derivalabel#1{\deriva \label{#1}} +\def\noderivalabel#1{\noderiva \label{#1}} +\def\cdonecell#1#2#3{\raisebox{#1}{\parbox{#2}{\centering{#3}}}} +\def\cdtwocell#1#2#3#4{\raisebox{#1}{ + \parbox{#2}{\centering{#3} \par \vskip 3pt \centering{#4} }}} +\def\leftrightarrowfill{$\m@th \mathord\leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill + \mkern-6mu \mathord\rightarrow$} +\def\Leftarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord=$} +\def\Rightarrowfill{$\m@th \mathord= \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord\Rightarrow$} +\def\Leftrightarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu + \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill + \mkern-6mu \mathord\Rightarrow$} +\newdimen\reactarrowsep +\def\reactarrowseprate{1.0} +\reactarrowsep=0pt +\def\oldreactrarrow{\@ifnextchar[{\oldreact@rarrow}{\oldreact@rarrow[0pt]}} +\def\oldreact@rarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactlarrow{\@ifnextchar[{\oldreact@larrow}{\oldreact@larrow[0pt]}} +\def\oldreact@larrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactlrarrow{\@ifnextchar[{\oldreact@lrarrow}{\oldreact@lrarrow[0pt]}} +\def\oldreact@lrarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\centering{\leftrightarrowfill} \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreacteqarrow{\@ifnextchar[{\oldreact@eqarrow}{\oldreact@eqarrow[0pt]}} +\def\oldreact@eqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par \vskip-0.55\normalbaselineskip% + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +%%%%%%2009/11/19 +\def\eqlbarrowstretch{0.6}%reduction rate of arrow length +\def\oldreactreqarrow{\@ifnextchar[{\oldreact@reqarrow}{\oldreact@reqarrow[0pt]}} +\def\oldreact@reqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering\dimen0=#3 + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\rightarrowfill \par \vskip-0.55\normalbaselineskip% + \leavevmode\hbox to\eqlbarrowstretch\dimen0{\leftarrowfill} \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +\def\oldreactleqarrow{\@ifnextchar[{\oldreact@leqarrow}{\oldreact@leqarrow[0pt]}} +\def\oldreact@leqarrow[#1]#2#3#4#5{\ensuremath{\mathbin{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering\dimen0=#3 + \baselineskip=.8\normalbaselineskip + \ChemStrut{#4}\par + \vskip-0.2\normalbaselineskip\vskip\reactarrowsep + \leavevmode\hbox to\eqlbarrowstretch\dimen0{\rightarrowfill} \par + \vskip-0.55\normalbaselineskip% + \leavevmode\leftarrowfill \par + \vskip\reactarrowseprate\reactarrowsep + \vskip-0.1\normalbaselineskip\ChemStrut{#5}}}}}} +%%%%%2009/11/19 +\def\k@nz@n#1{\@tempdima=#1\relax +\@tempcnta=\@tempdima \@tempcntb=\unitlength +\divide\@tempcnta by \@tempcntb +\edef\kanzanchi{\the\@tempcnta}% +\divide\@tempcnta by2\relax +\edef\kanzanhalf{\the\@tempcnta}} +\def\oldreactdarrow{\@ifnextchar[{\oldreact@darrow}{\oldreact@darrow[0pt]}} +\def\oldreact@darrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanchi){\vector(0,-1){\kanzanchi}} +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +\def\oldreactuarrow{\@ifnextchar[{\oldreact@uarrow}{\oldreact@uarrow[0pt]}} +\def\oldreact@uarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,0){\vector(0,1){\kanzanchi}} +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +\def\oldreactveqarrow{\@ifnextchar[%] +{\oldreact@veqarrow}{\oldreact@veqarrow[0pt]}} +\def\oldreact@veqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(40,\kanzanchi)(0,0) +\Put@Direct(40,0){\vector(0,1){\kanzanchi}}% +\Put@Direct(0,\kanzanchi){\vector(0,-1){\kanzanchi}}% +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +\def\oldreactduarrow{\@ifnextchar[{\oldreact@duarrow}{\oldreact@duarrow[0pt]}} +\def\oldreact@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{tabular}{l}#4\end{tabular}% +{\tabcolsep=0pt +\begin{tabular}{c}\begin{sfpicture}(0,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanhalf){\vector(0,1){\kanzanhalf}}% +\Put@Direct(0,\kanzanhalf){\vector(0,-1){\kanzanhalf}}% +\end{sfpicture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +%%%%2009/11/19 +\def\oldreactsearrow{\@ifnextchar[{\oldreact@searrow}{\oldreact@searrow[0pt]}} +\def\oldreact@searrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,\kanzanchi){\vector(1,-1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactnwarrow{\@ifnextchar[{\oldreact@nwarrow}{\oldreact@nwarrow[0pt]}} +\def\oldreact@nwarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanchi,0){\vector(-1,1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactnearrow{\@ifnextchar[{\oldreact@nearrow}{\oldreact@nearrow[0pt]}} +\def\oldreact@nearrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,0){\vector(1,1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactswarrow{\@ifnextchar[{\oldreact@swarrow}{\oldreact@swarrow[0pt]}} +\def\oldreact@swarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanchi,\kanzanchi){\vector(-1,-1){\kanzanchi}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +%%%%%2009/11/19 +\def\oldreactdeqarrow{\@ifnextchar[%] +{\oldreact@deqarrow}{\oldreact@deqarrow[0pt]}} +\def\oldreact@deqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(0,\kanzanchi){\Put@Direct(15,15){\vector(1,-1){\kanzanchi}}}% +\Put@Direct(\kanzanchi,0){\Put@Direct(-15,-15){\vector(-1,1){\kanzanchi}}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactueqarrow{\@ifnextchar[%] +{\oldreact@ueqarrow}{\oldreact@ueqarrow[0pt]}} +\def\oldreact@ueqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0) +\Put@Direct(0,0){\Put@Direct(-15,15){\vector(1,1){\kanzanchi}}} +\Put@Direct(\kanzanchi,\kanzanchi){\Put@Direct(15,-15){\vector(-1,-1){\kanzanchi}}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactulrarrow{\@ifnextchar[%] +{\oldreact@ulrarrow}{\oldreact@ulrarrow[0pt]}} +\def\oldreact@ulrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(1,1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(-1,-1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}}% +\end{sfpicture}}} +\def\oldreactdlrarrow{\@ifnextchar[%] +{\oldreact@dlrarrow}{\oldreact@dlrarrow[0pt]}} +\def\oldreact@dlrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{sfpicture}(\kanzanchi,\kanzanchi)(0,0)% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(-1,1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\vector(1,-1){\kanzanhalf}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}}% +\Put@Direct(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}}% +\end{sfpicture}}} +%%%%%2009/11/19 +\def\oldschemelarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Leftarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +\def\oldschemerarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Rightarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +\def\oldschemelrarrow#1#2#3#4{\raisebox{#1}{% + \parbox{#2}{\centering + \baselineskip=.8\normalbaselineskip #3 \par + \vskip-0.2\normalbaselineskip + \centering{\Leftrightarrowfill} \par + \vskip-0.1\normalbaselineskip #4}}} +%%%%2009/11/19 +\def\ChemStrut{\mbox{\vphantom{A}}} +\def\changespace#1{\def\baselinestretch{#1} \@normalsize} +\def\tbcaption{\def\@captype{table}\caption} +\def\fgcaption{\def\@captype{figure}\caption} +\def\smcaption{\def\@captype{scheme}\caption} +%%%%%%%%%%%1991 November 7%%%chapinitial%%%%%%%%%%%%% +\def\chap@initial#1% +{\medbreak\begingroup\clubpenalty=10000 + \def\par{\endgraf\endgroup\medbreak} + \noindent\hangindent28pt\hangafter=-2 +\hbox to0pt{\hskip-\hangindent +\hbox to28pt{\hss\raise-4pt\hbox{\lower3pt\hbox{\Huge\bf #1}} } +} \hskip-5pt plus2pt minus2pt} +\outer\def\chapinitial{\chap@initial} +\def\yen{\leavevmode\hbox{\setbox0=\hbox{Y}% +\setbox1=\vbox{\hrule height.05\ht0 width.96\wd0% +\kern.18\ht0\hrule height.05\ht0 width.96\wd0}% +\setbox1=\hbox to\wd0{\raise.3\ht0\box1\hss}% +{\ooalign{\hfil\box1\hfil\crcr\box0}}}} +\newif\ifverbswitch \verbswitchtrue +\let\old@verbatim\@verbatim +\let\old@xverbatim\@xverbatim +\let\old@sxverbatim\@sxverbatim +\begingroup + \catcode`\|=0 \catcode`\\=13 + |gdef|verbh@@k{|catcode`|\=13 |let\=|yen} +|endgroup +\def\verb{\begingroup \catcode``=13 \@noligs + \tt \let\do\@makeother \dospecials + \ifverbswitch \verbh@@k \fi \@ifstar{\@sverb}{\@verb}} +\begingroup +\catcode`|=0 \catcode`[=1 \catcode`]=2 +\catcode`\{=12 \catcode`\}=12 \catcode`\\=13 +|gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]] +|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]] +|endgroup +\newdimen\verbatimleftmargin \verbatimleftmargin\leftmargini +\newdimen\verbatimbaselineskip \verbatimbaselineskip11pt +\def\verbatimsize{\small} +\def\@verbatim{\trivlist \item[]% + \if@minipage \else \vskip\baselineskip% + \vskip-\verbatimbaselineskip \vskip\parskip\fi + \leftskip\@totalleftmargin + \if@minipage \else \advance\leftskip\verbatimleftmargin \fi + \rightskip\z@ \parindent\z@ \parfillskip\@flushglue \parskip\z@ + \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par} + \obeylines \verbatimsize \baselineskip\verbatimbaselineskip \tt + \catcode``=13 \@noligs \let\do\@makeother \dospecials} +\def\verbatim{\ifverbswitch \@verbatim \else \old@verbatim \fi +\frenchspacing \@vobeyspaces +\ifverbswitch \verbh@@k \@xverbatim \else \old@xverbatim \fi} +\@namedef{verbatim*}{% + \ifverbswitch \@verbatim \verbh@@k \@sxverbatim + \else \old@verbatim \old@sxverbatim \fi} +\def\@sverb#1{\def\@tempa ##1#1{##1\endgroup}\@tempa} +\def\@verb{\obeyspaces \frenchspacing \@sverb} +\def\@sverbtim{\obeyspaces\@verbatim} +\let\endverbatim=\endtrivlist +\@namedef{varbatim*}{\@verbatim\@sxverbatim} +\expandafter\let\csname endverbatim*\endcsname =\endtrivlist +\long\def\fb@xit#1#2#3#4{% +\setbox4=\vbox{\hsize#3\noindent#4}% +\vbox{\hrule\@height#1\hbox{\vrule\@width#1\kern#2\vbox{% +\kern#2\box4\kern#2}\kern#1\vrule\@width#1}\hrule\@height#1}} +\long\def\fboxit#1#2{\fb@xit{\fboxrule}{\fboxsep}{#1}{#2}} +\long\def\leftshfr@me#1#2#3#4{\leavevmode% + \vbox{\hbox{\hsize #3\vbox{% + \hbox{\vrule\@width #1% + \vbox{\kern-#1\fb@xit{% + \fboxrule}{#2}{#3}{#4}\kern-\fboxrule}\kern-#1}% + \hrule\@height#1}}}\strut\hskip #1\relax} +\long\def\leftshframe#1#2{% + \leftshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} +\long\def\leftshfbox#1{\leavevmode\setbox0=\hbox{\fbox{#1}}% + \vbox{\hbox{\vbox{\hbox{\vrule\@width\fboxsep\vbox{% + \kern-\fboxsep\box0\kern-\fboxrule}\kern-\fboxsep}% + \hrule\@height\fboxsep}}}\hskip\fboxsep\relax} %%%% +\long\def\rightshfr@me#1#2#3#4{\leavevmode% + \vbox{\hbox{\kern#1\vbox{\hsize#3\vbox{\kern-#1\hbox{% + \kern-#1\fb@xit{\fboxrule}{#2}{#3}{#4}}\hrule\@height#1}}% + \vrule\@width#1}}\strut} +\long\def\rightshframe#1#2{% + \rightshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} +\long\def\rightshfbox#1{\leavevmode% + \vbox{\hbox{\kern\fboxsep\vbox{\vbox{\kern-\fboxsep\hbox{% + \kern-\fboxsep\fbox{#1}}\hrule\@height\fboxsep}}% + \vrule\@width\fboxsep}}} +\def\ffboxit{\par\vskip1pc\hfil\vbox\bgroup + \hrule\hbox\bgroup\vrule\kern3pt\vbox\bgroup\kern3pt} +\def\endffboxit{\kern3pt\egroup\kern3pt\vrule\egroup\hrule\egroup + \hfil\\} +\def\ffparbox#1#2{\vbox{\hsize=#1 \noindent\strut #2\strut}} +\long\def\fr@meboxit#1#2#3{\gdef\fr@meline{#1}\gdef\fr@mesp{#2}% + \global\setbox4=\hbox\bgroup\minipage{#3}} +\def\endfr@meboxit{\endminipage\egroup% + \hbox{\vbox{\hrule\@height\fr@meline% + \hbox{\vrule\@width\fr@meline\kern\fr@mesp% + \vbox{\kern\fr@meline\kern\fr@mesp\box4\kern\fr@mesp}% + \kern\fr@mesp}\hrule\@height\fr@meline}% + \vrule\@width\fr@meline}} +\def\frameboxit#1{\leavevmode\fr@meboxit{\fboxrule}{\fboxsep}{#1}} +\let\endframeboxit=\endfr@meboxit +\def\lshfr@meboxit#1#2#3#4{\gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% +\leavevmode% + \vbox\bgroup\hbox\bgroup\hsize #4\vbox\bgroup% + \hbox\bgroup\vrule\@width\sh@vwidth% + \vbox\bgroup\kern-\sh@hwidth\fr@meboxit{\fboxrule}{#3}{#4}} +\def\endlshfr@meboxit{\endfr@meboxit%%%%\kern-\fboxrule + \egroup\kern-\sh@vwidth\egroup% + \hrule\@height\sh@hwidth\egroup\egroup\egroup% + \strut\kern\sh@hwidth\relax} +\def\lshfboxit#1{\leavevmode% + \lshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endlshfboxit=\endlshfr@meboxit +\def\rshfr@meboxit#1#2#3#4{% + \gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% + \leavevmode% + \vbox\bgroup\hbox\bgroup\kern\sh@vwidth% + \vbox\bgroup\hsize#4\vbox\bgroup% + \kern-\sh@hwidth\hbox\bgroup\kern-\sh@vwidth% + \fr@meboxit{\fboxrule}{#3}{#4}} +\def\endrshfr@meboxit{\endfr@meboxit\egroup% + \hrule\@height\sh@hwidth% + \egroup\egroup\vrule\@width\sh@vwidth\egroup\egroup\strut} +\def\rshfboxit#1{\leavevmode% + \rshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endrshfboxit=\endrshfr@meboxit +\newdimen\hsgr@d \newdimen\vsgr@d +\newdimen\vwgr@d \newdimen\hwgr@d +\newdimen\vsepgr@d \newdimen\hsepgr@d +\newcount\nrep \newcount\nrepmax +\nrepmax=25 +\def\grshfr@meboxit#1#2#3#4{% + \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% + \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% + \leavevmode% + \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} +\def\brb@xit#1{\vbox{\setbox1=\hbox{#1}% + \offinterlineskip% + \hbox{\copy1\vsepgr@d=\nrep\vsgr@d% + \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% + \vrule\@height\vwgr@d\@width\vsgr@d}% + \hbox{\hsepgr@d=\nrep\hsgr@d\kern\hsepgr@d% + \vbox{\hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% + \hrule\@height\hsgr@d\@width\hwgr@d}}}} +\def\lprb@xit{\expandafter\setbox0=\expandafter\brb@xit{\box0}} +\def\endgrshfr@meboxit{\endfr@meboxit\egroup% + \nrep=\@ne\@whilenum\nrep<\nrepmax\do% + {\lprb@xit\advance\nrep\@ne}\box0\relax} +\def\grshfboxit#1{\leavevmode% + \grshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endgrshfboxit=\endgrshfr@meboxit +\def\glshfr@meboxit#1#2#3#4{% + \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% + \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% + \leavevmode% + \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} +\def\blb@xit#1{% + \vbox{\setbox1=\hbox{#1}% + \offinterlineskip% + \vsepgr@d=\nrep\vsgr@d% + \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% + \hsepgr@d=\nrep\hsgr@d% + \hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% + \hbox{\vrule\@height\vwgr@d\@width\vsgr@d\copy1}% + \hbox{\kern-\vsgr@d% + \vrule\@height\hsgr@d\@width\hwgr@d}}} +\def\lplb@xit{\expandafter\setbox0=\expandafter\blb@xit{\box0}} +\def\endglshfr@meboxit{\endfr@meboxit\egroup% + \nrep=\@ne\@whilenum\nrep<\nrepmax\do% + {\lplb@xit\advance\nrep\@ne}\box0\relax} +\def\glshfboxit#1{\leavevmode% + \glshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} +\let\endglshfboxit=\endglshfr@meboxit +\@ifundefined{ybaselineshift}{% +\newdimen\ybaselineshift \ybaselineshift=\z@}{} +\@ifundefined{tbaselineshift}{% +\newdimen\tbaselineshift \tbaselineshift=\z@}{} +\newdimen\@savetbaselineshift \@savetbaselineshift=\z@ +\def\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen + \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue + \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx + #1\unitlength \@ovyy #2\unitlength + \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi + \advance\@tempdimb -2pt\relax + \@getcirc \@tempdimb + \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa + \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@ + \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@ + \@circlefnt \setbox\@tempboxa + \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi + \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi + \if@ovt \@ovhorz \kern -\@ovxx \fi + \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro + \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@ + \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}% + \endgroup} +\def\h@b@x#1#2#3{\hbox to\dimen1% + {\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}} +\def\@vrf@#1#2{\vskip#1\leaders\vrule\@width#2\vfil\vskip#1} +\let\miniscreentoprule=\hrule +\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} +\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} +\def\@miniscreen[#1]#2{\dimen1=#2\relax% +\@savetbaselineshift\tbaselineshift \tbaselineshift\z@ +\@tempcnta=-2 \multiply\@tempcnta by#1\relax% +\advance\@tempcnta by 20\relax \dimen5=1pt +\multiply\dimen5\@tempcnta +\dimen4=-1pt \multiply\dimen4 by#1\relax +\advance\dimen4 by 10pt +\dimen3=\dimen4 \advance\dimen3 by -.2pt +\par\vspace{.3\baselineskip}% +\dimen6=\dimen1 \advance\dimen6 by .1pt +\advance\dimen1 -\dimen5\relax% +\setbox0=\hbox\bgroup\minipage{\dimen1 +\tbaselineshift\@savetbaselineshift}}% +\def\endminiscreen{\endminipage\egroup% +\setbox1=\hbox to\dimen6{\hfil\vbox{\offinterlineskip% +\thinlines\unitlength=1pt +\miniscreentoprule%\hrule +\kern\dimen3% +\h@b@x{tl}{tr}{\@tempcnta}% +\kern-\dimen4\box0\h@b@x{bl}{br}{\@tempcnta}% +\kern-.4pt\hrule}\hfil}\dimen0=\ht1\noindent% +\hbox to\dimen6{\hbox to.4pt{% +\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}\hss}% +\box1\hbox to.2pt{% + \hss\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}}\hss}}% +\def\screen{\@ifnextchar[{\@screen}{\@miniscreen[0]{\linewidth}}} +\def\@screen[#1]{\miniscreen[#1]{\linewidth}} +\let\endscreen=\endminiscreen +\def\tboxscreentoprule{% +\hbox to\wd0{\smash{\lower.4ex\hbox{% +\fboxsep=2pt \fbox{\small \tboxtitle}}}\hrulefill}} +\def\tboxtitle{\bf Memorandum} +\def\tboxminiscreen{\@ifnextchar[{\vskip8pt + \let\miniscreentoprule=\tboxscreentoprule% + \@miniscreen}{\vskip8pt + \let\miniscreentoprule=\tboxscreentoprule% + \@miniscreen[0]}} +\let\endtboxminiscreen=\endminiscreen +\def\tboxscreen{\@ifnextchar[{\@tboxscreen}% +{\@tboxscreen[0]}} +\def\@tboxscreen[#1]{\tboxminiscreen[#1]{\linewidth}} +\let\endtboxscreen=\endtboxminiscreen +\def\sboxit#1#2{\vbox{\hrule\hbox% +{\vrule\vbox{\kern3pt\vbox{\hsize #1 \noindent #2}% +\kern3pt}\vrule}\hrule}} +\def\bury{\@ifnextchar [{\@bury}{\@bury[.5\normalbaselineskip]}} +\def\@bury[#1]#2{\smash{\lower#1\hbox{#2}}} +\def\finpushw@ll{\wd0=0pt \box0} +\def\makepushw@ll#1{\setbox0=\hbox{#1}\finpushw@ll} +\def\mathpushw@ll#1#2{\setbox0=\hbox{$\m@th#1{#2}$}\finpushw@ll} +\def\pushtowall{\relax \leavevmode + \ifmmode\def\next{\mathpalette\mathpushw@ll} + \else\let\next\makepushw@ll \fi \next} +\def\penetrate#1#2{\pushtowall{\hbox{\hskip#1\hbox{#2}}}} +\def\cyandye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} +\def\magentadye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} +\def\yellowdye{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} +\def\cyandv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} +\def\magentadv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} +\def\yellowdv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} +\def\agxlatent{% + \mbox{\ooalign{% + \hfil\raise.07ex\hbox{\footnotesize $\bullet$}\hfil\cr\cr + $\triangle$}\,}} +\def\agxdv{% + \mbox{\ooalign{\hfil\raise.07ex\hbox{% + \small $\spadesuit$}\hfil\cr\cr + $\triangle$}\,}} +\def\agx{\mbox{$\triangle$}} +\def\oldllongrightarrow{%%%---> +\relbar\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\oldllongleftarrow{%%%<--- + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\oldllongleftrightarrow{%%%<---> + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\oldEquilibarrow{%%%<--- and ---> + \mathrel{\ooalign{\raise.35ex\hbox{$\oldllongrightarrow$}\crcr + \lower.35ex\hbox{$\oldllongleftarrow$}}}} +\def\oldLlongrightarrow{%%%===> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +\def\oldLlongleftarrow{%%%<=== + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Relbar} +\def\oldLlongleftrightarrow{%%<===> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +%%%%%2009/11/19 old... +\def\oldllongleftharpoondown{%%% /--- + \mathrel{\leftharpoondown}\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\oldllongrightharpoonup{%%%---/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel\mathrel{\rightharpoonup}} +\def\oldequilibarrow{%%% /--- and ---/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\oldllongrightharpoonup$}\crcr + \lower.3ex\hbox{$\oldllongleftharpoondown$}}}} +%%%%%2009/11/19 +\def\eqproton{\stackrel{{\rm \displaystyle H}^{+}}{\Equilibarrow}} +\def\oldlllongrightarrow{\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\oldlllongleftarrow{%%%<------- + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\oldlllongleftrightarrow{%%%<-------> + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\rightarrow} +\def\oldEquiliblongarrow{%%%<------- and -------> + \mathrel{\ooalign{\raise.35ex\hbox{$\oldlllongrightarrow$}\crcr + \lower.35ex\hbox{$\oldlllongleftarrow$}}}} +\def\oldLllongrightarrow{%%%=======> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +\def\oldLllongleftarrow{%%%<======= + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Relbar} +\def\oldLllongleftrightarrow{%%<=======> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +%%%%2009/11/19 +\def\oldlllongleftharpoondown{%%% /------- + \mathrel{\leftharpoondown}\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\oldlllongrightharpoonup{%%%-------/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel% + \relbar\joinrel\mathrel{\rightharpoonup}} +\def\oldequiliblongarrow{%%% /------ and ------/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\oldlllongrightharpoonup$}\crcr + \lower.3ex\hbox{$\oldlllongleftharpoondown$}}}} +%%%%%%%%2009/11/19 +\def\deHBr{\stackrel{\displaystyle \rm -HBr}% +{\stackrel{\displaystyle \lllongrightarrow}{\rm E2}}} +\def\chemcorr{% + \fontdimen16\textfont2=3.05pt + \fontdimen17\textfont2=3.05pt + %\fontdimen14\textfont2=3.8pt +} +\def\leavechemcorr{% + \fontdimen16\textfont2=1.49998pt + \fontdimen17\textfont2=2.47217pt + %\fontdimen14\textfont2=3.62892pt +} +\newif\ifnewl@tex \newl@textrue +\@ifundefined{DeclareMathVersion}% + {\global\newl@texfalse}{\global\newl@textrue}% +\if@chemtimes\else%for chemtimes package +\def\math@chem{chem} +\def\math@boldchem{boldchem} +\def\math@bold{bold} +\def\math@normal{normal} +%%added 2005/09/02 +\let\oldalpha=\alpha +\let\oldbeta=\beta +\let\oldgamma=\gamma +\let\olddelta=\delta +\let\oldepsilon=\epsilon +\let\oldzeta=\zeta +\let\oldeta=\eta +\let\oldtheta=\theta +\let\oldiota=\iota +\let\oldkappa=\kappa +\let\oldlambda=\lambda +\let\oldmu=\mu +\let\oldnu=\nu +\let\oldxi=\xi +\let\oldpi=\pi +\let\oldrho=\rho +\let\oldsigma=\sigma +\let\oldtau=\tau +\let\oldupsilon=\upsilon +\let\oldphi=\phi +\let\oldchi=\chi +\let\oldpsi=\psi +\let\oldomega=\omega +\let\oldvarepsilon=\varepsilon +\let\oldvartheta=\vartheta +\let\oldvarpi=\varpi +\let\oldvarrho=\varrho +\let\oldvarsigma=\varsigma +\let\oldvarphi=\varphi +\let\oldGamma=\Gamma +\let\oldDelta=\Delta +\let\oldTheta=\Theta +\let\oldLamda=\Lambda +\let\oldXi=\Xi +\let\oldPi=\Pi +\let\oldSigma=\Sigma +\let\oldUpsilon=\Upsilon +\let\oldPhi=\Phi +\let\oldPsi=\Psi +\let\oldOmega=\Omega +\fi +\if@chemtimes\else%for chemtimes package +\def\chemGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 +\ifx\math@version\math@chem +\mathord{\hbox{\mathversion{normal}$\mathchar"#2$}}\else +\ifx\math@version\math@boldchem +\mathord{\hbox{\mathversion{bold}$\mathchar"#2$}}\else +\ifx\math@version\math@bold +\csname old#1\endcsname +\else +\csname old#1\endcsname +\fi\fi\fi\egroup}}%added 2010/11/21 +\fi +%%%\if@chemtimes\else%for chemtimes package +\newif\ifupgreekrm \upgreekrmfalse +\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\upgreekrmtrue\mathrm} +%%%\fi +\if@chemtimes\else\relax%for chemtimes package +\def\chemUpGreekletter#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by SF +\ensuremath{% +\ifx\math@version\math@chem +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}\egroup}}%added 2010/11/21 by SF +\fi +\if@chemtimes\else%for chemtimes package +\def\ChemAccent#1#2#3{% +\expandafter\def\csname #1\endcsname{% +\ifx\math@version\math@chem +#2{\hbox{\kern-0.15em\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\kern-0.2em\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}} +\fi +\if@chemtimes\else%for chemtimes package +\def\SetChemSymbol{% +\chemGreekletter{alpha}{010B}% +\chemGreekletter{beta}{010C}% +\chemGreekletter{gamma}{010D}% +\chemGreekletter{delta}{010E}% +\chemGreekletter{epsilon}{010F}% +\chemGreekletter{zeta}{0110}% +\chemGreekletter{eta}{0111}% +\chemGreekletter{theta}{0112}% +\chemGreekletter{iota}{0113}% +\chemGreekletter{kappa}{0114}% +\chemGreekletter{lambda}{0115}% +\chemGreekletter{mu}{0116}% +\chemGreekletter{nu}{0117}% +\chemGreekletter{xi}{0118}% +\chemGreekletter{pi}{0119}% +\chemGreekletter{rho}{011A}% +\chemGreekletter{sigma}{011B}% +\chemGreekletter{tau}{011C}% +\chemGreekletter{upsilon}{011D}% +\chemGreekletter{phi}{011E}% +\chemGreekletter{chi}{011F}% +\chemGreekletter{psi}{0120}% +\chemGreekletter{omega}{0121}% +\chemGreekletter{varepsilon}{0122}% +\chemGreekletter{vartheta}{0123}% +\chemGreekletter{varpi}{0124}% +\chemGreekletter{varrho}{0125}% +\chemGreekletter{varsigma}{0126}% +\chemGreekletter{varphi}{0127}% +\chemUpGreekletter{Gamma}{\mathord}{00}% +\chemUpGreekletter{Delta}{\mathord}{01}% +\chemUpGreekletter{Theta}{\mathord}{02}% +\chemUpGreekletter{Lambda}{\mathord}{03}% +\chemUpGreekletter{Xi}{\mathord}{04}% +\chemUpGreekletter{Pi}{\mathord}{05}% +\chemUpGreekletter{Sigma}{\mathord}{06}% +\chemUpGreekletter{Upsilon}{\mathord}{07}% +\chemUpGreekletter{Phi}{\mathord}{08}% +\chemUpGreekletter{Psi}{\mathord}{09}% +\chemUpGreekletter{Omega}{\mathord}{0A}% +\chemUpGreekletter{imath}{\mathord}{7B}% +\chemUpGreekletter{jmath}{\mathord}{7C}% +\chemUpGreekletter{mathless}{\mathrel}{3C}%in place of < +\chemUpGreekletter{mathgreater}{\mathrel}{3E}% in place of > +\chemUpGreekletter{leftharpoonup}{\mathrel}{28}% +\chemUpGreekletter{leftharpoondown}{\mathrel}{29}% +\chemUpGreekletter{rightharpoonup}{\mathrel}{2A}% +\chemUpGreekletter{rightharpoondown}{\mathrel}{2B}% +\chemUpGreekletter{ell}{\mathord}{60}% +\chemUpGreekletter{wp}{\mathord}{7D}% +\chemUpGreekletter{partial}{\mathord}{40}% +\chemUpGreekletter{flat}{\mathord}{5B}% +\chemUpGreekletter{natural}{\mathord}{5C}% +\chemUpGreekletter{sharp}{\mathord}{5D}% +\chemUpGreekletter{triangleleft}{\mathbin}{2F}% +\chemUpGreekletter{triangleright}{\mathbin}{2E}% +\chemUpGreekletter{smile}{\mathrel}{5E}% +\chemUpGreekletter{frown}{\mathrel}{5F}% +\chemUpGreekletter{star}{\mathbin}{3F}% +\ChemAccent{vec}{\rlap}{7E}% +} +\fi +\if@chemtimes\else%for chemtimes package +\DeclareRobustCommand\mathversion[1] + {\@nomath\mathversion + \expandafter\ifx\csname mv@#1\endcsname\relax + \@latex@error{Math version `#1' is not defined}\@eha\else + \edef\math@version{#1}% + \gdef\glb@currsize{}% +%%%%%%2002/5/30, 2004/11/17, and 2009/10/25 +\ifx\math@version\math@chem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \mathcode`\=="313D + \mathcode`\?="513F + \mathcode`\[="415B + \mathcode`\]="515D + \mathcode`\(="4128 + \mathcode`\)="5129 + \SetChemSymbol +\else\ifx\math@version\math@boldchem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \mathcode`\=="313D + \mathcode`\?="513F + \mathcode`\[="415B + \mathcode`\]="515D + \mathcode`\(="4128 + \mathcode`\)="5129 + \def\check{\mathaccent"7114 } + \def\dot{\mathaccent"715F } + \def\acute{\mathaccent"7113 } + \def\grave{\mathaccent"7112 } + \def\ddot{\mathaccent"717F } + \def\bar{\mathaccent"7116 } + \def\breve{\mathaccent"7115 } + \SetChemSymbol +\else\ifx\math@version\math@bold + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \mathcode`\=="303D + \mathcode`\?="503F + \mathcode`\[="405B + \mathcode`\]="505D + \mathcode`\(="4028 + \mathcode`\)="5029 + \SetChemSymbol% +\else + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \mathcode`\=="303D + \mathcode`\?="503F + \mathcode`\[="405B + \mathcode`\]="505D + \mathcode`\(="4028 + \mathcode`\)="5029 + \SetChemSymbol% +\fi\fi\fi +%%%%%% + \aftergroup\glb@settings + \fi} +\fi +\if@chemtimes\else%for chemtimes package +\ifnewl@tex +\@ifundefined{mv@chem}{\DeclareMathVersion{chem}% +\SetSymbolFont{letters}{chem}{OT1}{cmr}{m}{n}%OT1-->T1-->OT1 +\SetSymbolFont{operators}{chem}{OT1}{cmr} {m}{n}% +\SetSymbolFont{symbols} {chem}{OMS}{cmsy}{m}{n}% +\DeclareMathVersion{boldchem}%2002/5/30 +\SetSymbolFont{operators}{boldchem}{OT1}{cmr} {bx}{n}% +\SetSymbolFont{letters} {boldchem}{OT1}{cmr} {b}{n}% +\SetSymbolFont{symbols} {boldchem}{OMS}{cmsy}{b}{n}% +}{} +\fi +\fi +\if@chemtimes\else%for chemtimes package +\let\oldmathnormal=\mathnormal +\def\mathnormal#1{% +\ifx\math@version\math@chem +\mathord{\hbox{\usefont{OML}{cmm}{m}{it}#1}}% +\else\ifx\math@version\math@boldchem +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}#1}}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal{#1}% +\upgreekrmfalse +\else +\oldmathnormal{#1}% +\fi +\else +\oldmathnormal{#1}% +\fi\fi\fi}% +\fi +\if@chemtimes\else%for chemtimes package +\def\oldstyle{\egroup% +\ifx\math@version\math@chem +\hbox\bgroup\usefont{OML}{cmm}{m}{it}% +\else\ifx\math@version\math@boldchem +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal\bgroup% +\upgreekrmfalse +\else +\oldmathnormal\bgroup% +\fi +\else +\oldmathnormal\bgroup% +\fi\fi\fi}% +\fi +\if@chemtimes\else%for chemtimes package +\let\oldmathcal=\mathcal +\def\mathcal#1{% +\ifx\math@version\math@chem +\mathgroup\tw@{\usefont{OMS}{cmsy}{m}{n}#1}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@{\usefont{OMS}{cmsy}{b}{n}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldmathcal{#1}\upgreekrmfalse +\else \oldmathcal{#1}\fi +\else +\oldmathcal{#1}% +\fi\fi\fi}% +\fi +\if@chemtimes\else%for chemtimes package +\let\oldcal=\cal +\def\cal{% +\ifx\math@version\math@chem +\mathgroup\tw@\usefont{OMS}{cmsy}{m}{n}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@\usefont{OMS}{cmsy}{b}{n}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldcal\upgreekrmfalse +\else\oldcal\fi +\else +\oldcal% +\fi\fi\fi}% +\fi +\ifnewl@tex +\def\chemform#1{{\mathversion{chem}% +$\chemcorr #1$\leavechemcorr}} +\else +\def\chemform#1{\chemcorr +$\rm #1$\leavechemcorr} +\fi +\ifnewl@tex +\def\chemmath{\begingroup\mathversion{chem}\[\chemcorr} +\def\endchemmath{\]\endgroup\leavechemcorr} +\else +\def\chemmath{\chemcorr\[\rm} +\def\endchemmath{\] \leavechemcorr} +\fi +\ifnewl@tex +\def\chemeqn{\begingroup\mathversion{chem}\equation\chemcorr} +\def\endchemeqn{\endequation\leavechemcorr\endgroup}%bug fix 2013/6/15 +\else +\def\chemeqn{\chemcorr\equation\rm} +\def\endchemeqn{\endequation\leavechemcorr} +\fi +\ifnewl@tex +\def\chemeqnarray{\stepcounter{equation} + \let\@currentlabel=\theequation + \global\@eqnswtrue + \global\@eqcnt\z@\tabskip\@centering + \let\\=\@eqncr + \begingroup\mathversion{chem} +$$\chemcorr\halign to \displaywidth\bgroup + \@eqnsel\hskip\@centering + $\rm \displaystyle\tabskip\z@{##}$ & + \global\@eqcnt\@ne + \hskip \arraycolsep \hfil$\rm{##}$\hfil & + \global\@eqcnt\tw@ \hskip \arraycolsep + $\rm \displaystyle\tabskip\z@{##}$\hfil + \tabskip\@centering & + \llap{##}\tabskip\z@\cr} +\def\endchemeqnarray{\endeqnarray\endgroup +\leavechemcorr} +\else +\def\chemeqnarray{\stepcounter{equation} + \let\@currentlabel=\theequation + \global\@eqnswtrue + \global\@eqcnt\z@\tabskip\@centering + \let\\=\@eqncr \chemcorr +$$\halign to \displaywidth\bgroup + \@eqnsel\hskip\@centering + $\rm \displaystyle\tabskip\z@{##}$ & + \global\@eqcnt\@ne + \hskip \arraycolsep \hfil$\rm{##}$\hfil & + \global\@eqcnt\tw@ \hskip \arraycolsep + $\rm \displaystyle\tabskip\z@{##}$\hfil + \tabskip\@centering & + \llap{##}\tabskip\z@\cr} +\def\endchemeqnarray{\endeqnarray +\leavechemcorr} +\fi +\let\@seqncr=\@eqncr +\ifnewl@tex +\@namedef{chemeqnarray*}{% +\def\@eqncr{\nonumber\@seqncr}\chemeqnarray} +\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} +\else +\@namedef{chemeqnarray*}{% +\def\@eqncr{\nonumber\@seqncr\rm}\chemeqnarray} +\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} +\fi +\def\chemeqnarraya{\chemeqn@rraya \chemeqnarray} +\def\chemeqn@rraya{% + \c@enumi=\c@equation + \advance\c@enumi\@ne + \c@equation=\z@ + \@ifundefined{chapter}% +{\def\theequation{\theenumi\alph{equation}}}% +{\def\theequation{% +\thechapter.\theenumi\alph{equation}}}} +\def\endchemeqnarraya{\endchemeqnarray +\global\c@equation=\c@enumi} +\@ifundefined{if@display}{\newif\if@display}{} +\newif\ifupgreekrm \upgreekrmfalse +\let\ChemEqFont=\rm +\def\ChemEquation{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +\everydisplay{\ChemEqFont\chemcorr\@displaytrue\upgreekrmtrue}\equation} +\def\endChemEquation{\endequation\everymath{}\everydisplay{}% +\@displayfalse\leavechemcorr\upgreekrmfalse} + +\def\ChemEqnarray{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +\eqnarray} +\def\endChemEqnarray{\endeqnarray\everymath{}% +\leavechemcorr\upgreekrmfalse} +\def\ChemForm#1{\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}$#1$\everymath{}% +\leavechemcorr\upgreekrmfalse} +\@namedef{ChemEqnarray*}{\def\@eqncr{\nonumber\@seqncr}\ChemEqnarray} +\@namedef{endChemEqnarray*}{\nonumber\endChemEqnarray} +\def\newchemenvironment#1#2{% +\expandafter\def\csname #1\endcsname{% +\everymath{\ChemEqFont\chemcorr\upgreekrmtrue}% +\csname #2\endcsname}% +\expandafter\def\csname end#1\endcsname{% +\csname end#2\endcsname\everymath{}% +\leavechemcorr\upgreekrmfalse}} +\def\XyMcompd(#1,#2)(#3,#4)#5#6{% +\begingroup +\edef\xymrefa{#5}\edef\xymrefb{#6}% +\edef\kkk{#1}% +\begin{tabular}{c} +\ifx\kkk\empty\else +\begin{sfpicture}(#1,#2)(#3,#4)\fi\ignorespaces} +\def\endXyMcompd{% +\ifx\kkk\empty\else\end{sfpicture}\fi +\\[-\baselineskip] +\ifx\xymrefa\empty\else{\bf \compd\xymrefb +\expandafter\label{\xymrefa}}\fi +\end{tabular}\endgroup} +\def\XyMtab#1{\center\tabular{#1c}} +\def\endXyMtab{\endtabular\endcenter} +\def\derivlist#1{% +\mbox{}\\ +\begingroup\def\arraystretch{0.7}% +\begin{tabular}{l} +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else% +\hbox to2em{\hss\derivnum}:\space\member \\ +\fi}\end{tabular}\endgroup} +\def\XyMderiv{\tabular{c}} +\def\endXyMderiv{\endtabular} +\def\endash{\mbox{--{}}} +\def\Cent{\mbox{\raise.9ex\hbox{% + \scriptsize$\circ$}\kern-.12em\hbox{C}}} +\def\degC{\mbox{\kern-.2em\char'27\kern-.3em C}} +\def\degF{\mbox{\kern-.2em\char'27\kern-.3em F}} +\def\yubin{$\overline{\top}$} +\def\Yubin#1{\leavevmode\hbox{\vbox{\hrule\@height.12ex\@width.7em +\kern.28ex\hrule\@height.12ex\@width.7em +\hbox{\kern.35em\kern-.06ex +\vbox{\hrule\@height1ex\@width.12ex}}}\kern.1em{#1}}} +\def\xlethead#1{% + \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} + \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} + \kern-.6667\baselineskip \line{\hrulefill\hbox{ #1 }\hrulefill}} +\def\lethead#1#2#3{\def\line{\hbox to\textwidth} + \vbox{\line{\hrulefill} + \xlethead{#1} \xlethead{#2} \xlethead{#3} + \kern-.6667\baselineskip \line{\hrulefill}}} +\def\horizon{\rule{12pt}{0.1pt}} +\newcount\TestCount \def\tmpkern{\kern0pt} +\ifnewl@tex \else +\def\resetfontsize{% + \ifx\@currsize\normalsize% + \def\tmpf@ntsize{% + \load{\footnotesize}{\sf}% + \load{\footnotesize}{\sl}% + \load{\footnotesize}{\bf}% + \def\tmpkern{\kern0.05em}% + \footnotesize}\fi + \ifx\@currsize\scriptsize \let\tmpf@ntsize=\tiny\fi + \ifx\@currsize\footnotesize \let\tmpf@ntsize=\tiny\fi + \ifx\@currsize\small \let\tmpf@ntsize=\scriptsize\fi + \ifx\@currsize\large \let\tmpf@ntsize=\small\fi + \ifx\@currsize\Large \let\tmpf@ntsize=\@normalsize\fi + \ifx\@currsize\LARGE \let\tmpf@ntsize=\large\fi + \ifx\@currsize\huge \let\tmpf@ntsize=\Large\fi + \ifx\@currsize\Huge \let\tmpf@ntsize=\LARGE\fi} +\fi +\ifnewl@tex \else +\def\Bib{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle B$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf + $\fam=\TestCount\kern-.025em I\kern-.045em B$}% + \else% + \hbox{$\fam\TestCount\scriptstyle\kern-.025em I\kern-.045em B$}% + \fi +} +\fi +\ifnewl@tex +\DeclareRobustCommand{\BibTeX}{% + B\hbox{$\m@th$\csname S@\f@size\endcsname + \fontsize\sf@size\z@ \math@fontsfalse\selectfont + \kern-.025em I\kern-.045em B}\kern-.08em\TeX} +\else \def\BibTeX{\Bib\kern-.08em\TeX} \fi +\ifnewl@tex +\DeclareRobustCommand{\jBibTeX}{\mbox{% + \if b\expandafter\@car\f@series\@nil\boldmath\fi + \leavevmode\lower.46ex\hbox{J}\kern-.08em\BibTeX}} +\else +\def\jBibTeX{\leavevmode\lower.46ex\hbox{J}% + \kern-.08em\Bib\kern-.08em\TeX} +\fi +\def\jTeX{\leavevmode\lower.46ex\hbox{J}\kern-.15em\TeX} +\def\pTeX{p\kern-.15em\TeX} +\ifnewl@tex \else +\def\Sub{\leavevmode\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam{S}% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \ifx\aaa\bbb\resetfontsize% + \hbox{\tmpf@ntsize\bf% + $\fam=\TestCount\kern-.045em{U}\kern-.12em{B}$}% + \else% + \hbox{$\fam\TestCount% + \scriptstyle\kern-.045em{U}\kern-.12em{B}$}% + \fi} +\fi +\ifnewl@tex +\DeclareRobustCommand{\SubBib}{S\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont% + \kern-.045em{U}\kern-.12em{B}}B\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont \kern-.025em I\kern-.045em B}} +\else \def\SubBib{\Sub\kern-.08em\Bib} \fi +\ifnewl@tex \else +\def\La{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}\leavevmode{L}% + \ifx\aaa\bbb \resetfontsize% + \raise.46ex\hbox{{\tmpf@ntsize\bf% + $\fam\TestCount\kern-.4em\tmpkern{A}$}}% + \else% + \raise.42ex\hbox{$\fam\TestCount\scriptstyle\kern-.3em{A}$}% + \fi} +\fi +\ifnewl@tex \else \def\LaTeX{\La\kern-.15em\TeX}\fi +\ifnewl@tex + \DeclareRobustCommand{\jLaTeX}% + {\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} +\else + \def\jLaTeX{\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} +\fi +\def\PiC{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC} +\ifnewl@tex +\DeclareRobustCommand{\PiCTeX}{\PiC\kern-.11em\TeX} +\else +\def\PiCTeX{\PiC\kern-.11em\TeX} +\fi +\ifnewl@tex +\DeclareRobustCommand{\tpic}{T\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.025em P\kern-.025em I\kern-.025emC}} +\else +\def\tpic{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam \leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize\hbox{$\fam=\TestCount\textstyle T$}% + \ifx\aaa\bbb\hbox{\tmpf@ntsize\bf$\fam=\TestCount% + \kern-.025em P\kern-.025em I\kern-.025emC$}\else% + \hbox{$\fam\TestCount\scriptstyle% + \kern-.025em P\kern-.025em I\kern-.025emC$}\fi} +\fi +\ifnewl@tex \else +\def\Post{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle P$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf% + $\fam=\TestCount\kern-.045em O\kern-.015em ST$}% + \else% + \hbox{$\fam\TestCount% + \scriptstyle\kern-.045em O\kern-.015em ST$}% + \fi} +\def\Script{\ifnum \fam=\m@ne \fam=\z@ \fi% + \TestCount=\fam\leavevmode% + \edef\aaa{\fontname\scriptfont\fam}% + \edef\bbb{\fontname\textfont\fam}% + \resetfontsize% + \hbox{$\fam=\TestCount\textstyle S$}% + \ifx\aaa\bbb% + \hbox{\tmpf@ntsize\bf$\fam=\TestCount\kern-.035em % + C\kern-.015em R\kern-.015em IP\kern-.035em T$}% + \else% + \hbox{$\fam\TestCount\scriptstyle\kern-.035em % + C\kern-.015em R\kern-.015em IP\kern-.035em T$}% + \fi} +\fi +\ifnewl@tex +\DeclareRobustCommand{\PostScript}{P\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.045em O\kern-.015em ST}S\hbox{$\m@th$% + \csname S@\f@size\endcsname\fontsize\sf@size\z@ + \math@fontsfalse\selectfont + \kern-.035em C\kern-.015em R\kern-.015em IP\kern-.035em T}} +\else +\def\PostScript{\Post\Script} +\fi +\def\triplebond{\leavevmode\kern.2pt\raisebox{.2ex}{% +\hbox{\vbox{\hrule height.03ex width1em\kern.4ex +\hrule height.03ex width1em\kern.4ex +\hrule height.03ex width1em}}}\hskip.4pt} +\def\doublebond{\leavevmode\kern.2pt\raisebox{.3ex}{% +\hbox{\vbox{\hrule height.03ex width1em\kern.6ex +\hrule height.03ex width1em}}}\hskip.4pt} +\let\tbond=\triplebond +\let\dbond=\doublebond +\def\upwardarrowcalcA{% +\@tempcntXc=\@tempcntXa +\advance\@tempcntXc by\@tempcntXb +\advance\@tempcntXc by-\@tempcntYb +\advance\@tempcntXc by\@tempcntYa +\divide\@tempcntXc by2\relax +%% +\@tempcntYc=\@tempcntYa +\advance\@tempcntYc by\@tempcntYb +\advance\@tempcntYc by-\@tempcntXa +\advance\@tempcntYc by\@tempcntXb +\divide\@tempcntYc by2\relax} +\def\upwardarrowcalcB{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\advance\@tempcntXc by\@tempcntXd +\advance\@tempcntYc by\@tempcntYd +\advance\@cnttempa by-\@tempcntXd +\advance\@cnttempb by-\@tempcntYd} +\def\downwardarrowcalcA{% +\@tempcntXc=\@tempcntXa +\advance\@tempcntXc by\@tempcntXb +\advance\@tempcntXc by\@tempcntYb +\advance\@tempcntXc by-\@tempcntYa +\divide\@tempcntXc by2\relax +\@tempcntYc=\@tempcntYa +\advance\@tempcntYc by\@tempcntYb +\advance\@tempcntYc by\@tempcntXa +\advance\@tempcntYc by-\@tempcntXb +\divide\@tempcntYc by2\relax} +\def\downwardarrowcalcB{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\advance\@tempcntXc by\@tempcntXd +\advance\@tempcntYc by\@tempcntYd +\advance\@cnttempa by-\@tempcntXd +\advance\@cnttempb by-\@tempcntYd} +\def\calcontrolpoints#1{% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\@tempcntXd=\@tempcntXb +\advance\@tempcntXd by-\@tempcntXa +\divide\@tempcntXd by4\relax +\@tempcntYd=\@tempcntYb +\advance\@tempcntYd by-\@tempcntYa +\divide\@tempcntYd by4\relax +\ifcase#1\relax%upward round: 0 +\upwardarrowcalcA% +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 1 +\downwardarrowcalcA% +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\or%upward round: 2 +\upwardarrowcalcA% +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntYc by\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 3 +\downwardarrowcalcA% +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntYc by-\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\or%upward round: 4 +\upwardarrowcalcA% +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntXc by-\@tempcntYd +\advance\@tempcntYc by\@tempcntXd +\advance\@tempcntYc by\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\upwardarrowcalcB% +\or%downward-round: 5 +\downwardarrowcalcA% +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntXc by\@tempcntYd +\advance\@tempcntYc by-\@tempcntXd +\advance\@tempcntYc by-\@tempcntXd +\@cnttempa=\@tempcntXc +\@cnttempb=\@tempcntYc +\downwardarrowcalcB% +\fi} +\def\chemistsw{%setting of the chemist package +\let\reactrarrow=\oldreactrarrow% +\let\reactlarrow=\oldreactlarrow +\let\reactlrarrow=\oldreactlrarrow +\let\reacteqarrow=\oldreacteqarrow +%%%% +\let\reactreqarrow=\oldreactreqarrow% +\let\reactleqarrow=\oldreactleqarrow +%%%% +\let\reactdarrow=\oldreactdarrow% +\let\reactuarrow=\oldreactuarrow +\let\reactveqarrow=\oldreactveqarrow +\let\reactduarrow=\oldreactduarrow +%%%% +\let\reactsearrow=\oldreactsearrow% +\let\reactnwarrow=\oldreactnwarrow +\let\reactnearrow=\oldreactnearrow +\let\reactswarrow=\oldreactswarrow +%%%% +\let\reactdeqarrow=\oldreactdeqarrow% +\let\reactueqarrow=\oldreactueqarrow +\let\reactulrarrow=\oldreactulrarrow +\let\reactdlrarrow=\oldreactdlrarrow +%%%% +\let\schemelarrow=\oldschemelarrow% +\let\schemerarrow=\oldschemerarrow +\let\schemelrarrow=\oldschemelrarrow +%%%% +\let\llongrightarrow=\oldllongrightarrow%%%--->% +\let\llongleftarrow=\oldllongleftarrow%%%<--- +\let\llongleftrightarrow=\oldllongleftrightarrow%%%<---> +\let\Equilibarrow=\oldEquilibarrow%%%<--- and ---> +\let\Llongrightarrow=\oldLlongrightarrow%%%===> +\let\Llongleftarrow=\oldLlongleftarrow%%%<=== +\let\Llongleftrightarrow=\oldLlongleftrightarrow%%<===> +%%%%% +\let\llongleftharpoondown=\oldllongleftharpoondown%%% /---% +\let\llongrightharpoonup=\oldllongrightharpoonup%%%---/ +\let\equilibarrow=\oldequilibarrow%%% /--- and ---/ +%%%%% +\let\lllongrightarrow=\oldlllongrightarrow%%%%------>% +\let\lllongleftarrow=\oldlllongleftarrow%%%<------- +\let\lllongleftrightarrow=\oldlllongleftrightarrow%%%<-------> +\let\Equiliblongarrow=\oldEquiliblongarrow%%%<------- and -------> +\let\Lllongrightarrow=\oldLllongrightarrow%%%=======> +\let\Lllongleftarrow=\oldLllongleftarrow%%%<======= +\let\Lllongleftrightarrow=\oldLllongleftrightarrow%%<=======> +%%%%% +\let\lllongleftharpoondown=\oldlllongleftharpoondown%%% /-------% +\let\lllongrightharpoonup=\oldlllongrightharpoonup%%%-------/ +\let\equiliblongarrow=\oldequiliblongarrow%%% /------ and ------/ +%%%%tentative setting +\let\reactDEqarrow=\oldreactdeqarrow +\let\reactUEqarrow=\oldreactueqarrow +\let\reactVEqarrow=\oldreactveqarrow +\let\reactREqarrow=\oldreactreqarrow +\let\reactLEqarrow=\oldreactleqarrow +\let\reactEqarrow=\oldreacteqarrow +\let\lllongleftharpoonup=\oldlllongleftarrow +\let\lllongrightharpoondown=\oldlllongrightarrow +\let\llongleftharpoonup=\oldllongleftarrow +\let\llongrightharpoondown=\oldllongrightarrow +%%%% +} +\RequirePackage{assurechemist} +\chemistsw%setting of the chemist package +\mathversion{normal} +\endinput +%% +%% End of file `chemist.sty'. diff --git a/macros/latex/contrib/xymtex/chemist/chemtimes.dtx b/macros/latex/contrib/xymtex/chemist/chemtimes.dtx new file mode 100644 index 0000000000..22df249aa6 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemtimes.dtx @@ -0,0 +1,839 @@ +% \iffalse meta-comment +%% File: chemtimes.dtx +% Copyright 2009, 2010 by Shinsaku Fujita +% +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \typeout{Package `chemtimes' (v. 1.00) Shinsaku Fujita 2009/10/25} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \fi +% +% \CheckSum{1110} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +% \setcounter{StandardModuleDepth}{1} +% +% \StopEventually{} +% \MakeShortVerb{\|} +% +% \iffalse +%<*driver> +\NeedsTeXFormat{pLaTeX2e} +% \fi + \ProvidesFile{chemtimes.dtx}[2010/11/21 v5.00a chemtimes package] +% \iffalse +\documentclass{ltxdoc} +\GetFileInfo{chemtimes.dtx} +% +\title{Times Fonts for Chemistry and Mathamatics by {\sffamily chemtimes.sty} (\fileversion)} +\author{Shinsaku Fujita \\ +Shonan Institute of Chemoinformatics and +Mathematical Chemistry +} +\date{\filedate} +% +\begin{document} + \maketitle + \DocInput{chemtimes.dtx} +\end{document} +%</driver> +% \fi +% +% \section{Introduction} +% \subsection{Options for {\sffamily docstrip}} +% +% \DeleteShortVerb{\|} +% \begin{center} +% \begin{tabular}{|l|l|} +% \hline +% \emph{option} & \emph{function}\\ \hline +% chemtimes & chemtimes.sty \\ +% driver & driver for this dtx file \\ +% \hline +% \end{tabular} +% \end{center} +% \MakeShortVerb{\|} +% +% \subsection{Version Information} +% +% \begin{macrocode} +%<*chemtimes> +\typeout{Package `chemtimes' (v. 5.00a) Shinsaku Fujita 2010/11/21} +% \end{macrocode} +% +% \section{Times Fonts} +% +% The option ``chemist'' is to load the \textsf{chemist} package in place of +% the default loading of the \textsf{chmst-ps} package. By the option ``chemtimes'' +% of the \textsf{chemist} or \textsf{chmst-ps} package, the switch \verb/\@chemtimestrue/ +% or \verb/\@@@chemtimestrue/ becomes effective. Thereby, the mathversions ``chem'' and +% ``boldchem'' defined in the \textsf{chemist} package are entirely ignored so as to be +% replaced by those defined in the \textsf{chemtimes} package. +% +% \begin{macrocode} +\@ifundefined{chemcorr}{}{% + \PackageError{chemtimes} + {The ``chemist'' or ``chmst-ps'' package is not permitted here} + {The ``chemist'' or ``chmst-ps'' package will be automatically loaded \MessageBreak + when the ``chemtimes'' package is loaded.} +} +% \end{macrocode} +% +% \begin{macrocode} +\newif\ifchemtimes%% +\newif\if@chemtimes%%for chemist package +\newif\if@@@chemtimes%%for chmst-ps package +\newif\if@@chemtimes%%for chmst-ps package +\DeclareOption{chemist}{\chemtimestrue} +\chemtimesfalse +\ProcessOptions +\ifchemtimes +\RequirePackage[chemtimes]{chemist}% +\else +\@@chemtimestrue +\RequirePackage[chemtimes]{chmst-ps}% +\fi +% \end{macrocode} +% +% \section{Definition of Macros} +% +% Times-like fonts are used by declaring ``ptm'' (times roman) and ``phv'' (Helvetica) +% in place of the corresponding roman and san serif families. +% while computer modern type-writer fonts are used without change. +% +% \begin{macrocode} +%chemtimes package +%times, helvetica +%times from ot1ptm.fd 2007/07/31 +\renewcommand{\rmdefault}{ptm} +%Helvetica from ot1phv.fd 2007/07/31 +\def\Hv@scale{0.90}%scalable font +\renewcommand{\sfdefault}{phv} +%typewriter +%\renewcommand{\ttdefault}{pcr} +% with the default (computer modern typewriter font) +%% change the defalt values (\thinmuskip 3mu to 2mu etc.) +\thinmuskip=2mu +\medmuskip=2.5mu plus 1mu minus 1mu +\thickmuskip=4mu plus 1.5mu minus 1mu +% \end{macrocode} +% +% Fonts for normal mathversion are used on the same line +% as \textsf{mathptmx} package: +% +% \begin{macrocode} +%mathversion normal +\DeclareSymbolFont{letters} {OML}{ztmcm}{m}{it} +\DeclareSymbolFont{operators} {OT1}{ztmcm}{m}{n} +\DeclareSymbolFont{symbols} {OMS}{ztmcm}{m}{n} +\DeclareSymbolFont{largesymbols}{OMX}{ztmcm}{m}{n} +\DeclareSymbolFont{bold} {OT1}{ptm}{bx}{n} +\DeclareSymbolFont{italic} {OT1}{ptm}{m}{it} +\DeclareMathAlphabet{\mathbf}{OT1}{ptm}{bx}{n} +\DeclareMathAlphabet{\mathit}{OT1}{ptm}{m}{it} +\DeclareMathAlphabet{\mathbfit}{OT1}{ptm}{b}{it}%2009/11/22 +\DeclareMathAlphabet{\mathsf}{OT1}{phv}{m}{n} +%\DeclareMathAlphabet{\mathtt}{OT1}{pcr}{m}{n} +\DeclareMathAlphabet{\mathtt}{OT1}{cmtt}{m}{n} +%Uppercase Greeks + \DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{0} + \DeclareMathSymbol{\Delta}{\mathalpha}{letters}{1} + \DeclareMathSymbol{\Theta}{\mathalpha}{letters}{2} + \DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{3} + \DeclareMathSymbol{\Xi}{\mathalpha}{letters}{4} + \DeclareMathSymbol{\Pi}{\mathalpha}{letters}{5} + \DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{6} + \DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{7} + \DeclareMathSymbol{\Phi}{\mathalpha}{letters}{8} + \DeclareMathSymbol{\Psi}{\mathalpha}{letters}{9} + \DeclareMathSymbol{\Omega}{\mathalpha}{letters}{10} +% \end{macrocode} +% +% The following fonts are used for bold mathversion. +% +% \begin{macrocode} +%mathversion bold +%\SetSymbolFont{letters} {bold}{OML}{ptm}{b}{it}% +\SetSymbolFont{letters} {bold}{OT1}{ptm}{b}{it}% +\SetSymbolFont{operators} {bold}{OT1}{ptm}{b}{n}% +\SetSymbolFont{symbols} {bold}{OMS}{ptm}{b}{n}% +\SetSymbolFont{largesymbols}{bold}{OMX}{ztmcm}{m}{n}% +% \end{macrocode} +% +% Font sizes for math modes are defined as follows +% on the same line as \textsf{mathptmx} package: +% +% \begin{macrocode} +\def\defaultscriptratio{.74} +\def\defaultscriptscriptratio{.6} +\DeclareMathSizes{5}{5}{5}{5} +\DeclareMathSizes{6}{6}{5}{5} +\DeclareMathSizes{7}{7}{5}{5} +\DeclareMathSizes{8}{8}{6}{5} +\DeclareMathSizes{9}{9}{7}{5} +\DeclareMathSizes{10}{10}{7.4}{6} +\DeclareMathSizes{10.95}{10.95}{8}{6} +\DeclareMathSizes{12}{12}{9}{7} +\DeclareMathSizes{14.4}{14.4}{10.95}{8} +\DeclareMathSizes{17.28}{17.28}{12}{10} +\DeclareMathSizes{20.74}{20.74}{14.4}{12} +\DeclareMathSizes{24.88}{24.88}{17.28}{14.4} +% \end{macrocode} +% +% Letter strings for judging mathversions: +% +% \begin{macrocode} +\newif\ifnewl@tex \newl@textrue +\@ifundefined{DeclareMathVersion}% + {\global\newl@texfalse}{\global\newl@textrue}% +\def\math@chem{chem} +\def\math@boldchem{boldchem} +\def\math@bold{bold} +\def\math@normal{normal} +% \end{macrocode} +% +% The original setting of each Greek letter is stored tentatively. +% \begin{macrocode} +%%added 2005/09/02 +\let\oldalpha=\alpha +\let\oldbeta=\beta +\let\oldgamma=\gamma +\let\olddelta=\delta +\let\oldepsilon=\epsilon +\let\oldzeta=\zeta +\let\oldeta=\eta +\let\oldtheta=\theta +\let\oldiota=\iota +\let\oldkappa=\kappa +\let\oldlambda=\lambda +\let\oldmu=\mu +\let\oldnu=\nu +\let\oldxi=\xi +\let\oldpi=\pi +\let\oldrho=\rho +\let\oldsigma=\sigma +\let\oldtau=\tau +\let\oldupsilon=\upsilon +\let\oldphi=\phi +\let\oldchi=\chi +\let\oldpsi=\psi +\let\oldomega=\omega +\let\oldvarepsilon=\varepsilon +\let\oldvartheta=\vartheta +\let\oldvarpi=\varpi +\let\oldvarrho=\varrho +\let\oldvarsigma=\varsigma +\let\oldvarphi=\varphi +\let\oldGamma=\Gamma +\let\oldDelta=\Delta +\let\oldTheta=\Theta +\let\oldLamda=\Lambda +\let\oldXi=\Xi +\let\oldPi=\Pi +\let\oldSigma=\Sigma +\let\oldUpsilon=\Upsilon +\let\oldPhi=\Phi +\let\oldPsi=\Psi +\let\oldOmega=\Omega +% \end{macrocode} +% +% \begin{macro}{\chemGreekpalette} +% \begin{macro}{\chemGreekletter} +% The command \verb/\chemGreekletter/ selects a lowercase greek letter +% for each mathversion. +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup}, \cs{egroup} added} +% +% \begin{macrocode} +\def\chemGreekpalette#1#2#3{% +\mathchoice% +{\mathord{\hbox{\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\scriptsize\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\tiny\usefont{OML}{#1}{#3}{it}\char"#2}}}}% +\def\chemGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita +\ifx\math@version\math@chem +%\mathord{\hbox{\mathversion{normal}$\mathchar"#2$}} +\chemGreekpalette{ztmcm}{#2}{m}% +\else +\ifx\math@version\math@boldchem +%\mathord{\hbox{\mathversion{bold}$\mathchar"#2$}}% +\chemGreekpalette{cmm}{#2}{b}% +\else +\ifx\math@version\math@bold +%\csname old#1\endcsname +\chemGreekpalette{cmm}{#2}{b}% +\else +\csname old#1\endcsname +\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\ChemAccent} +% +% \changes{v4.05}{2009/10/25}{Defined: \cs{ChemAccent}} +% \begin{macrocode} +%\if@chemtimes\else%for chemtimes package +\def\ChemAccent#1#2#3{% +\expandafter\def\csname #1\endcsname{% +\ifx\math@version\math@chem +#2{\hbox{\kern-0.15em\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\kern-0.2em\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}} +%\fi +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{\rm} +% The command \verb/\rm/ is redefined to use \verb/\ifupgreekrm/ +% for switching slanted letters into upright letters. +% \begin{macrocode} +\newif\ifupgreekrm \upgreekrmfalse +\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm\upgreekrmtrue} +%\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\upgreekrmtrue\mathrm} +\DeclareOldFontCommand{\bfit}{\normalfont\itshape\bfseries}{\mathbfit}%2009/11/22 +\let\oldmathrm=\mathrm +\def\mathrm#1{\oldmathrm{\upgreekrmtrue #1}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\chemUpGreekletter} +% The command \verb/\chemUpGreekletter/ selects an uppercase greek letter +% for each mathversion. +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup}, \cs{egroup} added} +% \begin{macrocode} +\newif\ifm@thnorm@l +\def\chemUpGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%2010/11/21 by S. Fujita +\ensuremath{% +\ifx\math@version\math@chem +%\mathord{\hbox{\mathversion{normal}$\mathchar"#2$}}\else +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{m}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{m}{n}\char"#2}}% +\fi +\else +\ifx\math@version\math@boldchem +%\mathord{\hbox{\usefont{OT1}{cmr}{b}{n}\char"#2}}\else +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{b}{n}\char"#2}}% +\fi +\else +\ifx\math@version\math@bold +\ifupgreekrm +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{b}{n}\char"#2}}% +\fi +%%%\upgreekrmfalse +\else +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +%\csname old#1\endcsname +\fi +\else +\csname old#1\endcsname +\fi\fi\fi}\egroup}}%added 2010/11/21 by S. Fujita +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{\ctSFOpalette} +% \begin{macro}{\chemtimesSubFontOrd} +% The command \verb/\chemtimesSubFontOrd/ selects a symbol for substitution +% (computer modern font) if there is no such font of times family. +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup}, \cs{egroup} added} +% \begin{macrocode} +\def\ctSFOpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +} +\def\chemtimesSubFontOrd#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +%#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\ctSFOpalette{m}{#2}{#3}% +\else\ifx\math@version\math@boldchem +%#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\ctSFOpalette{b}{#2}{#3}% +\else\ifx\math@version\math@bold +%{#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}}% +\ctSFOpalette{b}{#2}{#3}% +\else\ifx\math@version\math@normal +%#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\ctSFOpalette{m}{#2}{#3}% +\else +%#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\ctSFOpalette{m}{#2}{#3}% +\fi\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\ctSFBpalette} +% \begin{macro}{\ctSFBBpalette} +% \begin{macro}{\chemtimesSubFontBin} +% The command \verb/\chemtimesSubFontBin/ selects a symbol (binary operation) +% for substitution (computer modern font) if there is no such font of times family. +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup}, \cs{egroup} added} +% \begin{macrocode} +\def\ctSFBpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +} +\def\ctSFBBpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +} +\def\chemtimesSubFontBin#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +%#2{\hbox{\usefont{OMS}{cmsy}{m}{n}\char"#3}}% +\ctSFBpalette{m}{#2}{#3}% +\else\ifx\math@version\math@boldchem +%#2{\hbox{\usefont{OMS}{cmsy}{b}{n}\char"#3}}% +\ctSFBpalette{b}{#2}{#3}% +\else\ifx\math@version\math@bold +%#2{\hbox{\usefont{OMS}{cmsy}{b}{n}\char"#3}}% +\ctSFBpalette{b}{#2}{#3}% +\else\ifx\math@version\math@normal +%#2{\hbox{\usefont{OMS}{cmsy}{m}{n}\char"#3}}% +\ctSFBpalette{m}{#2}{#3}% +\else +%#2{\hbox{\usefont{OMS}{cmm}{m}{n}\char"#3}}% +\ctSFBBpalette{m}{#2}{#3}% +\fi\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\chemtimesSubFontLOp} +% The command \verb/\chemtimesSubFontLOp/ selects a symbol (large operation) +% for substitution (computer modern font) if there is no such font of times family. +% \changes{v5.00a}{2010/11/21}{bug fix: \cs{bgroup}, \cs{egroup} added} +% \begin{macrocode} +\def\chemtimesSubFontLOp#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@boldchem +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@bold +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@normal +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\else +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\fi\fi\fi\fi\egroup}}%%added 2010/11/21 by S. Fujita +% \end{macrocode} +% \end{macro} +% +% +% Lowercase and uppercase Greek letters are redefined as follows: +% \begin{macrocode} +\def\SetChemSymbol{% +%\chemGreekletter{alpha}{010B}% +%\chemGreekletter{beta}{010C}% +%\chemGreekletter{gamma}{010D}% +%\chemGreekletter{delta}{010E}% +%\chemGreekletter{epsilon}{010F}% +%\chemGreekletter{zeta}{0110}% +%\chemGreekletter{eta}{0111}% +%\chemGreekletter{theta}{0112}% +%\chemGreekletter{iota}{0113}% +%\chemGreekletter{kappa}{0114}% +%\chemGreekletter{lambda}{0115}% +%\chemGreekletter{mu}{0116}% +%\chemGreekletter{nu}{0117}% +%\chemGreekletter{xi}{0118}% +%\chemGreekletter{pi}{0119}% +%\chemGreekletter{rho}{011A}% +%\chemGreekletter{sigma}{011B}% +%\chemGreekletter{tau}{011C}% +%\chemGreekletter{upsilon}{011D}% +%\chemGreekletter{phi}{011E}% +%\chemGreekletter{chi}{011F}% +%\chemGreekletter{psi}{0120}% +%\chemGreekletter{omega}{0121}% +%\chemGreekletter{varepsilon}{0122}% +%\chemGreekletter{vartheta}{0123}% +%\chemGreekletter{varpi}{0124}% +%\chemGreekletter{varrho}{0125}% +%\chemGreekletter{varsigma}{0126}% +%\chemGreekletter{varphi}{0127}% +% +\chemGreekletter{alpha}{0B}% +\chemGreekletter{beta}{0C}% +\chemGreekletter{gamma}{0D}% +\chemGreekletter{delta}{0E}% +\chemGreekletter{epsilon}{0F}% +\chemGreekletter{zeta}{10}% +\chemGreekletter{eta}{11}% +\chemGreekletter{theta}{12}% +\chemGreekletter{iota}{13}% +\chemGreekletter{kappa}{14}% +\chemGreekletter{lambda}{15}% +\chemGreekletter{mu}{16}% +\chemGreekletter{nu}{17}% +\chemGreekletter{xi}{18}% +\chemGreekletter{pi}{19}% +\chemGreekletter{rho}{1A}% +\chemGreekletter{sigma}{1B}% +\chemGreekletter{tau}{1C}% +\chemGreekletter{upsilon}{1D}% +\chemGreekletter{phi}{1E}% +\chemGreekletter{chi}{1F}% +\chemGreekletter{psi}{20}% +\chemGreekletter{omega}{21}% +\chemGreekletter{varepsilon}{22}% +\chemGreekletter{vartheta}{23}% +\chemGreekletter{varpi}{24}% +\chemGreekletter{varrho}{25}% +\chemGreekletter{varsigma}{26}% +\chemGreekletter{varphi}{27}% +% +%\chemUpGreekletter{Gamma}{7000}% +%\chemUpGreekletter{Delta}{7001}% +%\chemUpGreekletter{Theta}{7002}% +%\chemUpGreekletter{Lambda}{7003}% +%\chemUpGreekletter{Xi}{7004}% +%\chemUpGreekletter{Pi}{7005}% +%\chemUpGreekletter{Sigma}{7006}% +%\chemUpGreekletter{Upsilon}{7007}% +%\chemUpGreekletter{Phi}{7008}% +%\chemUpGreekletter{Psi}{7009}% +% +\chemUpGreekletter{Gamma}{00}% +\chemUpGreekletter{Delta}{01}% +\chemUpGreekletter{Theta}{02}% +\chemUpGreekletter{Lambda}{03}% +\chemUpGreekletter{Xi}{04}% +\chemUpGreekletter{Pi}{05}% +\chemUpGreekletter{Sigma}{06}% +\chemUpGreekletter{Upsilon}{07}% +\chemUpGreekletter{Phi}{08}% +\chemUpGreekletter{Psi}{09}% +\chemUpGreekletter{Omega}{0A}% +% +\chemtimesSubFontOrd{imath}{\mathord}{7B}% +\chemtimesSubFontOrd{jmath}{\mathord}{7C}% +\chemtimesSubFontBin{amalg}{\mathbin}{71}% +\chemtimesSubFontLOp{coprod}{60}{61}% +%2009/11/22 +\chemtimesSubFontOrd{mathless}{\mathrel}{3C}% +\chemtimesSubFontOrd{mathgreater}{\mathrel}{3E}% +\chemtimesSubFontOrd{leftharpoonup}{\mathrel}{28}% +\chemtimesSubFontOrd{leftharpoondown}{\mathrel}{29}% +\chemtimesSubFontOrd{rightharpoonup}{\mathrel}{2A}% +\chemtimesSubFontOrd{rightharpoondown}{\mathrel}{2B}% +\chemtimesSubFontOrd{ell}{\mathord}{60}% +\chemtimesSubFontOrd{wp}{\mathord}{7D}% +\chemtimesSubFontOrd{partial}{\mathord}{40}% +\chemtimesSubFontOrd{flat}{\mathord}{5B}% +\chemtimesSubFontOrd{natural}{\mathord}{5C}% +\chemtimesSubFontOrd{sharp}{\mathord}{5D}% +\chemtimesSubFontOrd{triangleleft}{\mathbin}{2F}% +\chemtimesSubFontOrd{triangleright}{\mathbin}{2E}% +\chemtimesSubFontOrd{smile}{\mathrel}{5E}% +\chemtimesSubFontOrd{frown}{\mathrel}{5F}% +\chemtimesSubFontOrd{star}{\mathbin}{3F}% +\ChemAccent{vec}{\rlap}{7E}% +} +% \end{macrocode} +% +% \begin{macro}{\mathversion} +% The command \verb/\mathversion/ is redefined to typeset punctuation symbols +% properly. +% \begin{macrocode} +\DeclareRobustCommand\mathversion[1] + {\@nomath\mathversion + \expandafter\ifx\csname mv@#1\endcsname\relax + \@latex@error{Math version `#1' is not defined}\@eha\else + \edef\math@version{#1}% + \gdef\glb@currsize{}% +%%%%%%2002/5/30 and 2004/11/17 +\ifx\math@version\math@chem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol +\else\ifx\math@version\math@boldchem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol +\else\ifx\math@version\math@bold + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol% +\else + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \SetChemSymbol% +\fi\fi\fi +%%%%%% + \aftergroup\glb@settings + \fi} +% \end{macrocode} +% \end{macro} +% +% New mathversions (chem and boldchem) are defined, where upright fonts of times family +% are used in math modes in place of slanted fonts. +% +% \begin{macrocode} +\ifnewl@tex +\@ifundefined{mv@chem}{% +\DeclareMathVersion{chem}% +\SetSymbolFont{letters}{chem} {OT1}{ptm}{m}{n}% +\SetSymbolFont{operators}{chem} {OT1}{ztmcm} {m}{n}% +\SetSymbolFont{symbols} {chem} {OMS}{ztmcm}{m}{n}% +\SetSymbolFont{largesymbols}{chem}{OMX}{ztmcm}{b}{n}% +\DeclareMathVersion{boldchem}%2009/10/23<--2002/5/30 +\SetSymbolFont{letters}{boldchem} {OT1}{ptm}{b}{n}% +\SetSymbolFont{operators}{boldchem} {OT1}{ptm}{b}{n}% +\SetSymbolFont{symbols}{boldchem} {OMS}{ptm}{b}{n}% +\SetSymbolFont{largesymbols}{boldchem}{OMX}{ztmcm}{b}{n}% +}{% + \PackageWarning% + {chemtimes}% + {The mathversion "chem" or "boldchem" has been already defined. ^^J% + The old mathversion remains effective unless it is removed. }% +} +\else + \PackageWarning% + {chemtimes}% + {Mathversions cannot be defined. Use LaTeX2e or a later version.}% +\fi +% \end{macrocode} +% +% \begin{macro}{\hbar} +% The command \verb/\hbar/ is redefined to typeset the symbol +% properly. This command is a slight modification of the one +% which has been described in the \textsf{mathptmx} package. +% \begin{macrocode} +\DeclareRobustCommand\hbar{{%from mathptmx package +\dimen@.06em \dimen@ii.06em% +\def\@tempa##1##2{% + \lower##1\dimen@\rlap{\kern##1\dimen@ii\the##2 0\char22}}% + \mathchoice{\@tempa{\@ne}{\textfont}}% + {\@tempa{\@ne}{\textfont}}% + {\@tempa{\defaultscriptratio}{\scriptfont}}% + {\@tempa{\defaultscriptscriptratio}{\scriptscriptfont}}% + h}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\mathnormal} +% +% The macro \verb/\mathnormal/ for outputting numbers of old style +% has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for oldsytle fonts} +% \changes{v4.05}{2009/11/22}{Switch by \cs{bfit}} +% +% \begin{macrocode} +\let\oldmathnormal=\mathnormal +\def\mathnormal#1{% +\ifx\math@version\math@chem +%\mathgroup\@ne +\m@thnorm@ltrue +\ensuremath{\it \usefont{OML}{cmm}{m}{it}#1}% +\else\ifx\math@version\math@boldchem +\m@thnorm@ltrue +\ensuremath{\bfit \usefont{OML}{cmm}{b}{it}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\m@thnorm@ltrue +\ensuremath{\bfit \usefont{OML}{cmm}{b}{it}#1}% +\else +\ensuremath{\usefont{OML}{cmm}{b}{it}#1}% +\fi +\else +\oldmathnormal{#1}% +\fi\fi\fi% +\m@thnorm@lfalse +}% +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\oldstyle} +% +% The command \verb/\oldstyle/ should be used in the form of \verb/{\oldstyle ...}/ +% in a math mode. +% +% \changes{v4.05}{2009/10/25}{Redefined for oldsytle fonts} +% +% \begin{macrocode} +\def\oldstyle{\egroup% +\ifx\math@version\math@chem +\hbox\bgroup\usefont{OML}{cmm}{m}{it}% +\else\ifx\math@version\math@boldchem +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal\bgroup% +\upgreekrmfalse +\else +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\fi +\else +\oldmathnormal\bgroup% +\fi\fi\fi}% +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\mathcal} +% +% The macro \verb/\mathcal/ for outputting calligraphic letters +% has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for calligraphic letters} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +\let\oldmathcal=\mathcal +\def\mathcal#1{% +\ifx\math@version\math@chem +\mathgroup\tw@{\usefont{OMS}{cmsy}{m}{n}#1}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@{\usefont{OMS}{cmsy}{b}{n}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldmathcal{#1}%\upgreekrmfalse +\else \oldmathcal{#1}\fi +\else +\oldmathcal{#1}% +\fi\fi\fi}% +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cal} +% +% The macro \verb/\cal/ for outputting calligraphic letters +% (a macro of declaration type) has been redefined to meet ``boldchem''. +% +% \changes{v4.05}{2009/10/25}{Redefined for calligraphic letters} +% \changes{v4.05}{2009/11/20}{Switch by \cs{if@chemtimes} for chemtimes package} +% +% \begin{macrocode} +%\if@chemtimes\else%for chemtimes package +\let\oldcal=\cal +\def\cal{% +\ifx\math@version\math@chem +\mathgroup\tw@\usefont{OMS}{cmsy}{m}{n}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@\usefont{OMS}{cmsy}{b}{n}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldcal\upgreekrmfalse +\else\oldcal\fi +\else +\oldcal% +\fi\fi\fi}% +%\fi +% \end{macrocode} +% \end{macro} +% +% ChemEquation and ChemEqnarray enviroments are defined +% as chemical counterparts of equation and eqnarray environments. +% The corresponding asterisked enviroments are also defined. +% The command \verb/\ChemForm/ is defined as a chemical counterpart +% of \verb/\(...\)/ or \verb/$...$/. +% These enviroments and the command do not require the selection of +% a chem or boldchem mathversion. +% \changes{v1.00}{2009/11/25}{Deleted. Definitions from the chemist package} +% +% \begin{macro}{ChemEquation} +% \begin{macro}{ChemEqnarray} +% \begin{macro}{ChemEquation*} +% \begin{macro}{ChemEqnarray*} +% \begin{macro}{\ChemForm} +% \begin{macrocode} +%\def\ChemEquation{\everymath{\rm}\everydisplay{\rm}\equation} +%\def\endChemEquation{\endequation\everymath{}\everydisplay{}} +%\def\ChemEqnarray{\everymath{\rm}\everydisplay{\rm}\eqnarray} +%\def\endChemEqnarray{\endeqnarray\everymath{}\everydisplay{}} +%\def\ChemForm#1{\everymath{\rm}$#1$\everymath{}} +%\@namedef{ChemEqnarray*}{\def\@eqncr{\nonumber\@seqncr}\ChemEqnarray} +%\@namedef{endChemEqnarray*}{\nonumber\endChemEqnarray} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% The mathversion ``normal'' is declared as the initial default setting. +% \begin{macrocode} +\mathversion{normal}%default setting +%</chemtimes> +% \end{macrocode} +% +% \Finale +% +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/chemtimes.ins b/macros/latex/contrib/xymtex/chemist/chemtimes.ins new file mode 100644 index 0000000000..953d75989f --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemtimes.ins @@ -0,0 +1,42 @@ +\def\batchfile{chemtimes.ins} +\input docstrip.tex +\preamble + +This is a generated file. + +Copyright (C) 2009, 2010 by Shinsaku Fujita all rights reserved. + +This file is part of the ChemSci system. +======================================= +Version 1.00 Released on October 20, 2009 +Released on November 21, 2010 (v5.00a) + +Copying of this file is authorized only if either + + (1) you make absolutely no changes to your copy, including name and + directory name + (2) if you do make changes, + (a) you name it something other than the names included in the + ``macro-sahou-pac'' directory and + (b) you acknowledge the original name. + This restriction ensures that all standard styles are identical. + +======================================= + +This file contains several codes modified from latex.tex (LaTeX2.09) +and from latex.ltx (a LaTeX2e), the reused parts of which are subject to +Copyright 1994 the LaTeX3 project and the individual authors (For further +copyright information see the file legal.txt of the LaTeX2e standard +distribution, and any other copyright indicated in this file.) + +\endpreamble + +\keepsilent + +\generateFile{chemtimes.drv}{t}{% + \from{chemtimes.dtx}{driver}} + +\generateFile{chemtimes.sty}{t}{% + \from{chemtimes.dtx}{chemtimes}} + +\endinput diff --git a/macros/latex/contrib/xymtex/chemist/chemtimes.sty b/macros/latex/contrib/xymtex/chemist/chemtimes.sty new file mode 100644 index 0000000000..514cefa750 --- /dev/null +++ b/macros/latex/contrib/xymtex/chemist/chemtimes.sty @@ -0,0 +1,515 @@ +%% +%% This is file `chemtimes.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% chemtimes.dtx (with options: `chemtimes') +%% +%% This is a generated file. +%% +%% Copyright (C) 2009, 2010 by Shinsaku Fujita all rights reserved. +%% +%% This file is part of the ChemSci system. +%% ======================================= +%% Version 1.00 Released on October 20, 2009 +%% Released on November 21, 2010 (v5.00a) +%% +%% Copying of this file is authorized only if either +%% +%% (1) you make absolutely no changes to your copy, including name and +%% directory name +%% (2) if you do make changes, +%% (a) you name it something other than the names included in the +%% ``macro-sahou-pac'' directory and +%% (b) you acknowledge the original name. +%% This restriction ensures that all standard styles are identical. +%% +%% ======================================= +%% +%% This file contains several codes modified from latex.tex (LaTeX2.09) +%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to +%% Copyright 1994 the LaTeX3 project and the individual authors (For further +%% copyright information see the file legal.txt of the LaTeX2e standard +%% distribution, and any other copyright indicated in this file.) +%% +%% File: chemtimes.dtx +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\typeout{Package `chemtimes' (v. 5.00a) Shinsaku Fujita 2010/11/21} +\@ifundefined{chemcorr}{}{% + \PackageError{chemtimes} + {The ``chemist'' or ``chmst-ps'' package is not permitted here} + {The ``chemist'' or ``chmst-ps'' package will be automatically loaded \MessageBreak + when the ``chemtimes'' package is loaded.} +} +\newif\ifchemtimes%% +\newif\if@chemtimes%%for chemist package +\newif\if@@@chemtimes%%for chmst-ps package +\newif\if@@chemtimes%%for chmst-ps package +\DeclareOption{chemist}{\chemtimestrue} +\chemtimesfalse +\ProcessOptions +\ifchemtimes +\RequirePackage[chemtimes]{chemist}% +\else +\@@chemtimestrue +\RequirePackage[chemtimes]{chmst-ps}% +\fi +\renewcommand{\rmdefault}{ptm} +\def\Hv@scale{0.90}%scalable font +\renewcommand{\sfdefault}{phv} +%% change the defalt values (\thinmuskip 3mu to 2mu etc.) +\thinmuskip=2mu +\medmuskip=2.5mu plus 1mu minus 1mu +\thickmuskip=4mu plus 1.5mu minus 1mu +\DeclareSymbolFont{letters} {OML}{ztmcm}{m}{it} +\DeclareSymbolFont{operators} {OT1}{ztmcm}{m}{n} +\DeclareSymbolFont{symbols} {OMS}{ztmcm}{m}{n} +\DeclareSymbolFont{largesymbols}{OMX}{ztmcm}{m}{n} +\DeclareSymbolFont{bold} {OT1}{ptm}{bx}{n} +\DeclareSymbolFont{italic} {OT1}{ptm}{m}{it} +\DeclareMathAlphabet{\mathbf}{OT1}{ptm}{bx}{n} +\DeclareMathAlphabet{\mathit}{OT1}{ptm}{m}{it} +\DeclareMathAlphabet{\mathbfit}{OT1}{ptm}{b}{it}%2009/11/22 +\DeclareMathAlphabet{\mathsf}{OT1}{phv}{m}{n} +\DeclareMathAlphabet{\mathtt}{OT1}{cmtt}{m}{n} + \DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{0} + \DeclareMathSymbol{\Delta}{\mathalpha}{letters}{1} + \DeclareMathSymbol{\Theta}{\mathalpha}{letters}{2} + \DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{3} + \DeclareMathSymbol{\Xi}{\mathalpha}{letters}{4} + \DeclareMathSymbol{\Pi}{\mathalpha}{letters}{5} + \DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{6} + \DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{7} + \DeclareMathSymbol{\Phi}{\mathalpha}{letters}{8} + \DeclareMathSymbol{\Psi}{\mathalpha}{letters}{9} + \DeclareMathSymbol{\Omega}{\mathalpha}{letters}{10} +\SetSymbolFont{letters} {bold}{OT1}{ptm}{b}{it}% +\SetSymbolFont{operators} {bold}{OT1}{ptm}{b}{n}% +\SetSymbolFont{symbols} {bold}{OMS}{ptm}{b}{n}% +\SetSymbolFont{largesymbols}{bold}{OMX}{ztmcm}{m}{n}% +\def\defaultscriptratio{.74} +\def\defaultscriptscriptratio{.6} +\DeclareMathSizes{5}{5}{5}{5} +\DeclareMathSizes{6}{6}{5}{5} +\DeclareMathSizes{7}{7}{5}{5} +\DeclareMathSizes{8}{8}{6}{5} +\DeclareMathSizes{9}{9}{7}{5} +\DeclareMathSizes{10}{10}{7.4}{6} +\DeclareMathSizes{10.95}{10.95}{8}{6} +\DeclareMathSizes{12}{12}{9}{7} +\DeclareMathSizes{14.4}{14.4}{10.95}{8} +\DeclareMathSizes{17.28}{17.28}{12}{10} +\DeclareMathSizes{20.74}{20.74}{14.4}{12} +\DeclareMathSizes{24.88}{24.88}{17.28}{14.4} +\newif\ifnewl@tex \newl@textrue +\@ifundefined{DeclareMathVersion}% + {\global\newl@texfalse}{\global\newl@textrue}% +\def\math@chem{chem} +\def\math@boldchem{boldchem} +\def\math@bold{bold} +\def\math@normal{normal} +%%added 2005/09/02 +\let\oldalpha=\alpha +\let\oldbeta=\beta +\let\oldgamma=\gamma +\let\olddelta=\delta +\let\oldepsilon=\epsilon +\let\oldzeta=\zeta +\let\oldeta=\eta +\let\oldtheta=\theta +\let\oldiota=\iota +\let\oldkappa=\kappa +\let\oldlambda=\lambda +\let\oldmu=\mu +\let\oldnu=\nu +\let\oldxi=\xi +\let\oldpi=\pi +\let\oldrho=\rho +\let\oldsigma=\sigma +\let\oldtau=\tau +\let\oldupsilon=\upsilon +\let\oldphi=\phi +\let\oldchi=\chi +\let\oldpsi=\psi +\let\oldomega=\omega +\let\oldvarepsilon=\varepsilon +\let\oldvartheta=\vartheta +\let\oldvarpi=\varpi +\let\oldvarrho=\varrho +\let\oldvarsigma=\varsigma +\let\oldvarphi=\varphi +\let\oldGamma=\Gamma +\let\oldDelta=\Delta +\let\oldTheta=\Theta +\let\oldLamda=\Lambda +\let\oldXi=\Xi +\let\oldPi=\Pi +\let\oldSigma=\Sigma +\let\oldUpsilon=\Upsilon +\let\oldPhi=\Phi +\let\oldPsi=\Psi +\let\oldOmega=\Omega +\def\chemGreekpalette#1#2#3{% +\mathchoice% +{\mathord{\hbox{\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\scriptsize\usefont{OML}{#1}{#3}{it}\char"#2}}}% +{\mathord{\hbox{\tiny\usefont{OML}{#1}{#3}{it}\char"#2}}}}% +\def\chemGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita +\ifx\math@version\math@chem +\chemGreekpalette{ztmcm}{#2}{m}% +\else +\ifx\math@version\math@boldchem +\chemGreekpalette{cmm}{#2}{b}% +\else +\ifx\math@version\math@bold +\chemGreekpalette{cmm}{#2}{b}% +\else +\csname old#1\endcsname +\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +\def\ChemAccent#1#2#3{% +\expandafter\def\csname #1\endcsname{% +\ifx\math@version\math@chem +#2{\hbox{\kern-0.15em\usefont{OML}{cmm}{m}{it}\char"#3}}\else +\ifx\math@version\math@boldchem +#2{\hbox{\kern-0.2em\usefont{OML}{cmm}{b}{it}\char"#3}}\else +\ifx\math@version\math@bold +\ifupgreekrm +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\upgreekrmfalse +\else +#2{\hbox{\usefont{OML}{cmm}{b}{it}\char"#3}}% +\fi +\else +#2{\hbox{\usefont{OML}{cmm}{m}{it}\char"#3}}% +\fi\fi\fi}} +\newif\ifupgreekrm \upgreekrmfalse +\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm\upgreekrmtrue} +\DeclareOldFontCommand{\bfit}{\normalfont\itshape\bfseries}{\mathbfit}%2009/11/22 +\let\oldmathrm=\mathrm +\def\mathrm#1{\oldmathrm{\upgreekrmtrue #1}} +\newif\ifm@thnorm@l +\def\chemUpGreekletter#1#2{% +\expandafter\def\csname #1\endcsname{\bgroup%2010/11/21 by S. Fujita +\ensuremath{% +\ifx\math@version\math@chem +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{m}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{m}{n}\char"#2}}% +\fi +\else +\ifx\math@version\math@boldchem +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{b}{n}\char"#2}}% +\fi +\else +\ifx\math@version\math@bold +\ifupgreekrm +\ifm@thnorm@l +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +\else +\mathord{\hbox{\usefont{OT1}{cmr}{b}{n}\char"#2}}% +\fi +%%%\upgreekrmfalse +\else +\mathord{\hbox{\usefont{OML}{cmm}{b}{it}\char"#2}}% +\fi +\else +\csname old#1\endcsname +\fi\fi\fi}\egroup}}%added 2010/11/21 by S. Fujita +\def\ctSFOpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OML}{cmm}{#1}{it}\char"#3}}}% +} +\def\chemtimesSubFontOrd#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +\ctSFOpalette{m}{#2}{#3}% +\else\ifx\math@version\math@boldchem +\ctSFOpalette{b}{#2}{#3}% +\else\ifx\math@version\math@bold +\ctSFOpalette{b}{#2}{#3}% +\else\ifx\math@version\math@normal +\ctSFOpalette{m}{#2}{#3}% +\else +\ctSFOpalette{m}{#2}{#3}% +\fi\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +\def\ctSFBpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OMS}{cmsy}{#1}{n}\char"#3}}}% +} +\def\ctSFBBpalette#1#2#3{% +\mathchoice +{#2{\hbox{\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\scriptsize\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +{#2{\hbox{\tiny\usefont{OMS}{cmm}{#1}{n}\char"#3}}}% +} +\def\chemtimesSubFontBin#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +\ctSFBpalette{m}{#2}{#3}% +\else\ifx\math@version\math@boldchem +\ctSFBpalette{b}{#2}{#3}% +\else\ifx\math@version\math@bold +\ctSFBpalette{b}{#2}{#3}% +\else\ifx\math@version\math@normal +\ctSFBpalette{m}{#2}{#3}% +\else +\ctSFBBpalette{m}{#2}{#3}% +\fi\fi\fi\fi\egroup}}%added 2010/11/21 by S. Fujita +\def\chemtimesSubFontLOp#1#2#3{% +\expandafter\def\csname #1\endcsname{\bgroup%%added 2010/11/21 by S. Fujita + \PackageWarning{chemtimes} + {The symbol \expandafter\string\csname #1\endcsname\space + is not available with this package. + This font will be substituted by an appropriate commputer modern font}% +\ifx\math@version\math@chem +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@boldchem +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@bold +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{b}{n}\char"#2}}{}{}% +}% +\else\ifx\math@version\math@normal +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\else +\mathop{\mathchoice% +{\raise2.2ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#3}}% +{\raise1.8ex\hbox{\usefont{OMX}{cmex}{m}{n}\char"#2}}{}{}% +}% +\fi\fi\fi\fi\egroup}}%%added 2010/11/21 by S. Fujita +\def\SetChemSymbol{% +\chemGreekletter{alpha}{0B}% +\chemGreekletter{beta}{0C}% +\chemGreekletter{gamma}{0D}% +\chemGreekletter{delta}{0E}% +\chemGreekletter{epsilon}{0F}% +\chemGreekletter{zeta}{10}% +\chemGreekletter{eta}{11}% +\chemGreekletter{theta}{12}% +\chemGreekletter{iota}{13}% +\chemGreekletter{kappa}{14}% +\chemGreekletter{lambda}{15}% +\chemGreekletter{mu}{16}% +\chemGreekletter{nu}{17}% +\chemGreekletter{xi}{18}% +\chemGreekletter{pi}{19}% +\chemGreekletter{rho}{1A}% +\chemGreekletter{sigma}{1B}% +\chemGreekletter{tau}{1C}% +\chemGreekletter{upsilon}{1D}% +\chemGreekletter{phi}{1E}% +\chemGreekletter{chi}{1F}% +\chemGreekletter{psi}{20}% +\chemGreekletter{omega}{21}% +\chemGreekletter{varepsilon}{22}% +\chemGreekletter{vartheta}{23}% +\chemGreekletter{varpi}{24}% +\chemGreekletter{varrho}{25}% +\chemGreekletter{varsigma}{26}% +\chemGreekletter{varphi}{27}% +\chemUpGreekletter{Gamma}{00}% +\chemUpGreekletter{Delta}{01}% +\chemUpGreekletter{Theta}{02}% +\chemUpGreekletter{Lambda}{03}% +\chemUpGreekletter{Xi}{04}% +\chemUpGreekletter{Pi}{05}% +\chemUpGreekletter{Sigma}{06}% +\chemUpGreekletter{Upsilon}{07}% +\chemUpGreekletter{Phi}{08}% +\chemUpGreekletter{Psi}{09}% +\chemUpGreekletter{Omega}{0A}% +\chemtimesSubFontOrd{imath}{\mathord}{7B}% +\chemtimesSubFontOrd{jmath}{\mathord}{7C}% +\chemtimesSubFontBin{amalg}{\mathbin}{71}% +\chemtimesSubFontLOp{coprod}{60}{61}% +\chemtimesSubFontOrd{mathless}{\mathrel}{3C}% +\chemtimesSubFontOrd{mathgreater}{\mathrel}{3E}% +\chemtimesSubFontOrd{leftharpoonup}{\mathrel}{28}% +\chemtimesSubFontOrd{leftharpoondown}{\mathrel}{29}% +\chemtimesSubFontOrd{rightharpoonup}{\mathrel}{2A}% +\chemtimesSubFontOrd{rightharpoondown}{\mathrel}{2B}% +\chemtimesSubFontOrd{ell}{\mathord}{60}% +\chemtimesSubFontOrd{wp}{\mathord}{7D}% +\chemtimesSubFontOrd{partial}{\mathord}{40}% +\chemtimesSubFontOrd{flat}{\mathord}{5B}% +\chemtimesSubFontOrd{natural}{\mathord}{5C}% +\chemtimesSubFontOrd{sharp}{\mathord}{5D}% +\chemtimesSubFontOrd{triangleleft}{\mathbin}{2F}% +\chemtimesSubFontOrd{triangleright}{\mathbin}{2E}% +\chemtimesSubFontOrd{smile}{\mathrel}{5E}% +\chemtimesSubFontOrd{frown}{\mathrel}{5F}% +\chemtimesSubFontOrd{star}{\mathbin}{3F}% +\ChemAccent{vec}{\rlap}{7E}% +} +\DeclareRobustCommand\mathversion[1] + {\@nomath\mathversion + \expandafter\ifx\csname mv@#1\endcsname\relax + \@latex@error{Math version `#1' is not defined}\@eha\else + \edef\math@version{#1}% + \gdef\glb@currsize{}% +%%%%%%2002/5/30 and 2004/11/17 +\ifx\math@version\math@chem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol +\else\ifx\math@version\math@boldchem + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol +\else\ifx\math@version\math@bold + \mathcode`\.="012E + \mathcode`\,="612C + \mathcode`\/="012F + \SetChemSymbol% +\else + \mathcode`\.="013A + \mathcode`\,="613B + \mathcode`\/="013D + \SetChemSymbol% +\fi\fi\fi +%%%%%% + \aftergroup\glb@settings + \fi} +\ifnewl@tex +\@ifundefined{mv@chem}{% +\DeclareMathVersion{chem}% +\SetSymbolFont{letters}{chem} {OT1}{ptm}{m}{n}% +\SetSymbolFont{operators}{chem} {OT1}{ztmcm} {m}{n}% +\SetSymbolFont{symbols} {chem} {OMS}{ztmcm}{m}{n}% +\SetSymbolFont{largesymbols}{chem}{OMX}{ztmcm}{b}{n}% +\DeclareMathVersion{boldchem}%2009/10/23<--2002/5/30 +\SetSymbolFont{letters}{boldchem} {OT1}{ptm}{b}{n}% +\SetSymbolFont{operators}{boldchem} {OT1}{ptm}{b}{n}% +\SetSymbolFont{symbols}{boldchem} {OMS}{ptm}{b}{n}% +\SetSymbolFont{largesymbols}{boldchem}{OMX}{ztmcm}{b}{n}% +}{% + \PackageWarning% + {chemtimes}% + {The mathversion "chem" or "boldchem" has been already defined. ^^J% + The old mathversion remains effective unless it is removed. }% +} +\else + \PackageWarning% + {chemtimes}% + {Mathversions cannot be defined. Use LaTeX2e or a later version.}% +\fi +\DeclareRobustCommand\hbar{{%from mathptmx package +\dimen@.06em \dimen@ii.06em% +\def\@tempa##1##2{% + \lower##1\dimen@\rlap{\kern##1\dimen@ii\the##2 0\char22}}% + \mathchoice{\@tempa{\@ne}{\textfont}}% + {\@tempa{\@ne}{\textfont}}% + {\@tempa{\defaultscriptratio}{\scriptfont}}% + {\@tempa{\defaultscriptscriptratio}{\scriptscriptfont}}% + h}} +\let\oldmathnormal=\mathnormal +\def\mathnormal#1{% +\ifx\math@version\math@chem +\m@thnorm@ltrue +\ensuremath{\it \usefont{OML}{cmm}{m}{it}#1}% +\else\ifx\math@version\math@boldchem +\m@thnorm@ltrue +\ensuremath{\bfit \usefont{OML}{cmm}{b}{it}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\m@thnorm@ltrue +\ensuremath{\bfit \usefont{OML}{cmm}{b}{it}#1}% +\else +\ensuremath{\usefont{OML}{cmm}{b}{it}#1}% +\fi +\else +\oldmathnormal{#1}% +\fi\fi\fi% +\m@thnorm@lfalse +}% +\def\oldstyle{\egroup% +\ifx\math@version\math@chem +\hbox\bgroup\usefont{OML}{cmm}{m}{it}% +\else\ifx\math@version\math@boldchem +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\else\ifx\math@version\math@bold +\ifupgreekrm +\oldmathnormal\bgroup% +\upgreekrmfalse +\else +\hbox\bgroup\usefont{OML}{cmm}{b}{it}% +\fi +\else +\oldmathnormal\bgroup% +\fi\fi\fi}% +\let\oldmathcal=\mathcal +\def\mathcal#1{% +\ifx\math@version\math@chem +\mathgroup\tw@{\usefont{OMS}{cmsy}{m}{n}#1}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@{\usefont{OMS}{cmsy}{b}{n}#1}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldmathcal{#1}%\upgreekrmfalse +\else \oldmathcal{#1}\fi +\else +\oldmathcal{#1}% +\fi\fi\fi}% +\let\oldcal=\cal +\def\cal{% +\ifx\math@version\math@chem +\mathgroup\tw@\usefont{OMS}{cmsy}{m}{n}% +\else\ifx\math@version\math@boldchem +\mathgroup\tw@\usefont{OMS}{cmsy}{b}{n}% +\else\ifx\math@version\math@bold +\ifupgreekrm \oldcal\upgreekrmfalse +\else\oldcal\fi +\else +\oldcal% +\fi\fi\fi}% +\mathversion{normal}%default setting +\endinput +%% +%% End of file `chemtimes.sty'. |