From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/latex/contrib/xymtex/chemist/chemtimes.dtx | 839 ++++++++++++++++++++++ 1 file changed, 839 insertions(+) create mode 100644 macros/latex/contrib/xymtex/chemist/chemtimes.dtx (limited to 'macros/latex/contrib/xymtex/chemist/chemtimes.dtx') 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} +% +% \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 +% +% \end{macrocode} +% +% \Finale +% +\endinput -- cgit v1.2.3