diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/xymtex/chemist.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/xymtex/chemist.dtx | 2359 |
1 files changed, 2359 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/xymtex/chemist.dtx b/Master/texmf-dist/source/latex/xymtex/chemist.dtx new file mode 100644 index 00000000000..9d37ff1334c --- /dev/null +++ b/Master/texmf-dist/source/latex/xymtex/chemist.dtx @@ -0,0 +1,2359 @@ +% \iffalse +% +% chemist.dtx +% +% Copyright (C) 1996, 1999, 2000 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. +% +% For using this file, see +% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' +% Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16. +% +% 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 +% (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.) +% +%======================================= +% +% 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. +% このスタイル・ファイルの使用法は、 +% 藤田 眞作 著 『化学者・生化学者のためのLaTeX』 +% 東京化学同人、東京 (1993)、第7, 9, 12, 18章をご覧下さい。 +% +% 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. +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \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 +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% +% \fi +% \CheckSum{3588} +%% \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 +%% 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} +% +% \begin{macrocode} +% \NeedsTeXFormat{LaTeX2e} +% \end{macrocode} +% +% \begin{macrocode} +% <chemist>\ProvidesFile{chemist.sty} +%<driver>\ProvidesFile{chemist.drv} +%<driver> [2000/11/03 v2.00a +% <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} +% +% \begin{macrocode} +%<*driver> + ] +\documentclass{ltxdoc} +\GetFileInfo{chemist.drv} +\title{Chemist Package \space\fileversion} +\author{Shinsaku Fujita \\ +Department of Chemistry and Materials Technology \\ +Kyoto Institute of Technology +%% 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{November 3, 2000} +\def\versi@nno{ver2.00a} +\def\copyrighth@lder{SF} % Shinsaku Fujita +%<*chemist> +\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space +[\copyrighth@lder]} +\typeout{chemist.sty ver2.00a (for LaTeX2e) 2000/11/03[SF]} +%</chemist> +% \end{macrocode} +% +% \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} +%<*chemist> +% ******************* +% * 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} +% \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 +% +\def\reactrarrow{\@ifnextchar[{\react@rarrow}{\react@rarrow[0pt]}} +\def\react@rarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip #4 \par + \vskip-0.2\normalbaselineskip + \rightarrowfill \par + \vskip-0.1\normalbaselineskip #5}}} +\def\reactlarrow{\@ifnextchar[{\react@larrow}{\react@larrow[0pt]}} +\def\react@larrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip #4 \par + \vskip-0.2\normalbaselineskip + \leftarrowfill \par + \vskip-0.1\normalbaselineskip #5}}} +\def\reactlrarrow{\@ifnextchar[{\react@lrarrow}{\react@lrarrow[0pt]}} +\def\react@lrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + #4 \par + \vskip-0.2\normalbaselineskip + \centering{\leftrightarrowfill} \par + \vskip-0.1\normalbaselineskip #5}}} +\def\reacteqarrow{\@ifnextchar[{\react@eqarrow}{\react@eqarrow[0pt]}} +\def\react@eqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% + \parbox{#3}{\centering + \baselineskip=.8\normalbaselineskip + #4 \par + \vskip-0.2\normalbaselineskip + \rightarrowfill \par \vskip-0.55\normalbaselineskip% + \leftarrowfill \par + \vskip-0.1\normalbaselineskip #5}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \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} +% \begin{macrocode} +\def\reactdarrow{\@ifnextchar[{\react@darrow}{\react@darrow[0pt]}} +\def\react@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{picture}(0,\kanzanchi)(0,0) +\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}} +\end{picture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\reactuarrow{\@ifnextchar[{\react@uarrow}{\react@uarrow[0pt]}} +\def\react@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{picture}(0,\kanzanchi)(0,0) +\put(0,0){\vector(0,1){\kanzanchi}} +\end{picture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\reactveqarrow{\@ifnextchar[%] +{\react@veqarrow}{\react@veqarrow[0pt]}} +\def\react@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{picture}(40,\kanzanchi)(0,0) +\put(40,0){\vector(0,1){\kanzanchi}} +\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}} +\end{picture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% +\def\reactduarrow{\@ifnextchar[{\react@duarrow}{\react@duarrow[0pt]}} +\def\react@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{picture}(0,\kanzanchi)(0,0) +\put(0,\kanzanhalf){\vector(0,1){\kanzanhalf}} +\put(0,\kanzanhalf){\vector(0,-1){\kanzanhalf}} +\end{picture}\end{tabular}}% +\begin{tabular}{l}#5\end{tabular}}} +% \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} +% \begin{macrocode} +\def\reactsearrow{\@ifnextchar[{\react@searrow}{\react@searrow[0pt]}} +\def\react@searrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(0,\kanzanchi){\vector(1,-1){\kanzanchi}} +\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}} +\end{picture}}} +% +\def\reactnwarrow{\@ifnextchar[{\react@nwarrow}{\react@nwarrow[0pt]}} +\def\react@nwarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(\kanzanchi,0){\vector(-1,1){\kanzanchi}} +\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}} +\end{picture}}} +% +\def\reactnearrow{\@ifnextchar[{\react@nearrow}{\react@nearrow[0pt]}} +\def\react@nearrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(0,0){\vector(1,1){\kanzanchi}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}} +\end{picture}}} +% +\def\reactswarrow{\@ifnextchar[{\react@swarrow}{\react@swarrow[0pt]}} +\def\react@swarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(\kanzanchi,\kanzanchi){\vector(-1,-1){\kanzanchi}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}} +\end{picture}}} +% \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} +% \begin{macrocode} +\def\reactdeqarrow{\@ifnextchar[%] +{\react@deqarrow}{\react@deqarrow[0pt]}} +\def\react@deqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(0,\kanzanchi){\put(15,15){\vector(1,-1){\kanzanchi}}} +\put(\kanzanchi,0){\put(-15,-15){\vector(-1,1){\kanzanchi}}} +\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}} +\end{picture}}} +\def\reactueqarrow{\@ifnextchar[%] +{\react@ueqarrow}{\react@ueqarrow[0pt]}} +\def\react@ueqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(0,0){\put(-15,15){\vector(1,1){\kanzanchi}}} +\put(\kanzanchi,\kanzanchi){\put(15,-15){\vector(-1,-1){\kanzanchi}}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}} +\end{picture}}} +\def\reactulrarrow{\@ifnextchar[%] +{\react@ulrarrow}{\react@ulrarrow[0pt]}} +\def\react@ulrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(\kanzanhalf,\kanzanhalf){\vector(1,1){\kanzanhalf}} +\put(\kanzanhalf,\kanzanhalf){\vector(-1,-1){\kanzanhalf}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% +\begin{tabular}[t]{l}#5\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss +\begin{tabular}[b]{r}#4\end{tabular}}} +\end{picture}}} +\def\reactdlrarrow{\@ifnextchar[%] +{\react@dlrarrow}{\react@dlrarrow[0pt]}} +\def\react@dlrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% +\def\arraystretch{0.8}% +\begin{picture}(\kanzanchi,\kanzanchi)(0,0) +\put(\kanzanhalf,\kanzanhalf){\vector(-1,1){\kanzanhalf}} +\put(\kanzanhalf,\kanzanhalf){\vector(1,-1){\kanzanhalf}} +\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% +\begin{tabular}[b]{l}#4\end{tabular}\hss}} +\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss +\begin{tabular}[t]{r}#5\end{tabular}}} +\end{picture}}} +% \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} +% \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\schemelarrow#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\schemerarrow#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\schemelrarrow#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}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \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} % 通常のキャプション。 +% \tbcaption{bbb} % 表のキャプションの強制的に変更。 +% \fgcaption[ccc]{ddd} %図のキャプションに戻す。 +% \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 奥村晴彦 LaTeX美文書作成入門 1991 技術評論社 % +% % 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では再定義されているので,上のままだとエラーになる +% 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} +% % ************************************************************ +% % * 影のついた箱 * +% % * January 3, 1993 by Shinsaku Fujita * +% % * Borde ({\em \TeX{} by Example})の記載を参考にして作った* +% % ************************************************************ +% 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} +% ***************************************** +% * 影のついた箱 (環境版) * +% * January 16, 1993 by Shinsaku Fujita * +% * \sh@hwidth: 水平の影の太さ * +% * \sh@vwidth: 垂直の影の太さ * +% ***************************************** +% 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} +% ***************************************** +% * 斜の影のついた箱 (環境版) * +% * 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.} +% +% \begin{macrocode} +% ****************** +% * miniscreen環境 * +% ****************** +% +% ASCII版Micro\TeXのscreen環境を枠の幅を指定できるように改変 +% +% ifcase文 ==> 直接計算 +% 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}% +\dimen2=\dimen1 \advance\dimen2 by .1pt +\advance\dimen1 -\dimen5\relax% +\setbox0=\hbox\bgroup\minipage{\dimen1 +\tbaselineshift\@savetbaselineshift}}% +% \end{macrocode} +% +% \begin{macrocode} +\def\endminiscreen{\endminipage\egroup% +\setbox1=\hbox to\dimen2{\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\dimen2{\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 左右の余裕のない箱 * +% ****************************** +% 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[下げ幅]{内容} +% 下げ幅のデフォルト値は,\normalbaselineksipの半分 +% +% (旧) \def\bury#1{\smash{\lower.5\normalbaselineskip\hbox{#1}}} +% これは,「化学と生化学のためのLaTeX」に載せた定義です. +% 以下の定義は,下げ幅をオプション引数として取るように +% 拡張したものです. +% +\def\bury{\@ifnextchar [{\@bury}{\@bury[.5\normalbaselineskip]}} +\def\@bury[#1]#2{\smash{\lower#1\hbox{#2}}} +% +% \pushtowall{内容} +% 水平方向の押し付ける命令 (\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>を、印字位置はそのままにして、<DIM>だけ移動させる。この時 +% 引き続く文字の印字位置は<OBJ>がなかったとした時の位置になる。 +% (\bury命令の水平方向版) +% +% (比較) +% 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}{\cyan} +% \begin{macro}{\magenta} +% \begin{macro}{\yellow} +% \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\cyan{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} +\def\magenta{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em + \ooalign{\hfil + \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} +\def\yellow{\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\llongrightarrow{%%%---> +\relbar\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\llongleftarrow{%%%<--- + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\llongleftrightarrow{%%%<---> + \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\Equilibarrow{%%%<--- and ---> + \mathrel{\ooalign{\raise.35ex\hbox{$\llongrightarrow$}\crcr + \lower.35ex\hbox{$\llongleftarrow$}}}} +\def\Llongrightarrow{%%%===> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +\def\Llongleftarrow{%%%<=== + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Relbar} +\def\Llongleftrightarrow{%%<===> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} + +% +% \begin{macro}{\llongleftharpoondown} +% \begin{macro}{\llongrightharpoondown} +% \begin{macro}{\equilibarrow} +% +% \begin{macrocode} +\def\llongleftharpoondown{%%% /--- + \leftharpoondown\joinrel\relbar\joinrel\relbar\joinrel\relbar} +\def\llongrightharpoonup{%%%---/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel\rightharpoonup} +\def\equilibarrow{%%% /--- and ---/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\llongrightharpoonup$}\crcr + \lower.3ex\hbox{$\llongleftharpoondown$}}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\eqproton} +% +% \begin{macrocode} +% ******************************* +% * 平衡の両側矢印の上に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\lllongrightarrow{\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar\joinrel\rightarrow} +\def\lllongleftarrow{%%%<------- + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\lllongleftrightarrow{%%%<-------> + \leftarrow\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\rightarrow} +\def\Equiliblongarrow{%%%<------- and -------> + \mathrel{\ooalign{\raise.35ex\hbox{$\lllongrightarrow$}\crcr + \lower.35ex\hbox{$\lllongleftarrow$}}}} +\def\Lllongrightarrow{%%%=======> + \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +\def\Lllongleftarrow{%%%<======= + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Relbar} +\def\Lllongleftrightarrow{%%<=======> + \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% + \Relbar\joinrel\Rightarrow} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\lllongleftharpoondown} +% \begin{macro}{\lllongrightharpoondown} +% \begin{macro}{\equiliblongarrow} +% \begin{macro}{\deHBr} +% +% \begin{macrocode} +\def\lllongleftharpoondown{%%% /------- + \leftharpoondown\joinrel\relbar\joinrel\relbar% + \joinrel\relbar\joinrel\relbar} +\def\lllongrightharpoonup{%%%-------/ + \relbar\joinrel\relbar\joinrel\relbar\joinrel% + \relbar\joinrel\rightharpoonup} +\def\equiliblongarrow{%%% /------ and ------/ + \mathrel{\ooalign{% + \raise.3ex\hbox{$\lllongrightharpoonup$}\crcr + \lower.3ex\hbox{$\lllongleftharpoondown$}}}} +% %%%%% +\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} +% \begin{macrocode} +% ******************** +% * chemform command * +% ******************** +% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita +\def\chemcorr{% + \fontdimen16\textfont2=3.5pt + \fontdimen17\textfont2=3.5pt + %\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} +% +% \begin{macro}{\ifnewl@tex} +% +% The `chem' for mathversion is introduced to describe chemical equations. +% \begin{macrocode} +\newif\ifnewl@tex \newl@textrue +\@ifundefined{DeclareMathVersion}% + {\global\newl@texfalse}{\global\newl@textrue}% +% +\ifnewl@tex\@ifundefined{mv@chem}{\DeclareMathVersion{chem}% + \SetSymbolFont{letters}{chem}{OT1}{cmr}{m}{n}}{}\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} +\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} +% +% \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{picture}(#1,#2)(#3,#4)\fi\ignorespaces} +\def\endXyMcompd{% +\ifx\kkk\empty\else\end{picture}\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} +% ***************** +% * 二重 三重結合 * +% ***************** +\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 +%</chemist> +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \Finale +\endinput +
\ No newline at end of file |