%% %% This is file `polymers.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% polymers.dtx (with options: `polymers') %% %% This is a generated file. %% %% Copyright 1996,1998 by Shinsaku Fujita %% %% This file is part of the XyMTeX system. %% ======================================= %% %% Version 1.01 Released on August 16, 1996 %% Version 1.02 Released on October 31, 1996 (private version) %% Version 2.00 Released on December 25, 1998 %% %% Copyright (C) 1998 by Shinsaku Fujita, all rights reserved. %% This style file is created for drawing chemical structural formulas %% This style file is to be contained in the ``xymtex'' directory which %% is an input directory for TeX. %% %% 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 %% ``xymtex'' directory and %% (b) you acknowledge the original name. %% This restriction ensures that all standard styles are identical. %% %% ======================================= %% %% This file contains several codes modified from latex.tex (LaTeX2.09) %% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to %% Copyright 1994 the LaTeX3 project and the individual authors (For further %% copyright information see the file legal.txt of the LaTeX2e standard %% distribution, and any other copyright indicated in this file.) %% %% File: polymers.dtx %% \CharacterTable %% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z %% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z %% Digits \0\1\2\3\4\5\6\7\8\9 %% Exclamation \! Double quote \" Hash (number) \# %% Dollar \$ Percent \% Ampersand \& %% Acute accent \' Left paren \( Right paren \) %% Asterisk \* Plus \+ Comma \, %% Minus \- Point \. Solidus \/ %% Colon \: Semicolon \; Less than \< %% Equals \= Greater than \> Question mark \? %% Commercial at \@ Left bracket \[ Backslash \\ %% Right bracket \] Circumflex \^ Underscore \_ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~} \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00} \typeout{ -- Released December 25, 1998 by Shinsaku Fujita} \def\j@urnalname{polymers} \def\versi@ndate{December 25, 1998} \def\versi@nno{ver2.00} \def\copyrighth@lder{SF} % Shinsaku Fujita \typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% \space[\copyrighth@lder]} \@ifundefined{setsixringv}{\input chemstr.sty\relax}{} \@ifundefined{Westbond}{\input aliphat.sty\relax}{} \@ifundefined{bzdrv}{\input carom.sty\relax}{} \unitlength=0.1pt \def\@forsemicol#1:=#2\do#3{% %% \edef\@fortmp{#2}\ifx\@fortmp\@empty% \expandafter\def\expandafter\@fortmp\expandafter{#2}% \ifx\@fortmp\@empty% \else% \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi} \def\leftPMdelim#1{$\mathstrut #1$} \def\leftpmdelim{\leftPMdelim{\biggm(}} \def\rightPMdelim#1#2{% $\mathstrut #1_{\mkern-5mu #2}$} \def\rightpmdelim#1{\rightPMdelim{\biggm)}{#1}} \def\leftPolymer#1#2{% \begin{picture}(0,0)(0,0) \putlatom{0}{0}{#2} \putlatom{120}{0}{$#1$} \end{picture}} \def\leftpolymer#1{\leftPolymer{\biggm(}{#1}} \def\rightPolymer#1#2#3{% \begin{picture}(0,0)(0,0) \putratom{0}{0}{#2} \putratom{-150}{0}{% $\mathstrut#1_{\mkern-2mu #3}$} \end{picture}} \def\rightpolymer#1#2{\rightPolymer{\biggm)}{#1}{#2}} \def\leftsqrPolymer#1#2{% \begin{picture}(0,0)(0,0) \putlatom{0}{0}{#2} \putlatom{120}{0}{$#1$} \end{picture}} \def\leftSqrpolymer#1{\leftsqrPolymer{\Biggm[}{#1}} \def\rightsqrPolymer#1#2#3{% \begin{picture}(0,0)(0,0) \putratom{0}{0}{#2} \putratom{-150}{0}{% $\mathstrut #1_{#3}$} \end{picture}} \def\rightSqrpolymer#1#2{\rightsqrPolymer{\Biggm]}{#1}{#2}} \def\lsqrdelimiter#1{% \hbox{\vrule \@width\fboxrule $\vcenter to#1{% \hrule \@height\fboxrule \@width\fboxsep \vfill \hrule \@height\fboxrule \@width\fboxsep}$}} \def\leftsqrpolymer#1{% \leftsqrPolymer{\lsqrdelimiter{300\unitlength}}{#1}} \def\rsqrdelimiter#1{% \hbox{$\vcenter to#1{% \hrule \@height\fboxrule \@width\fboxsep \vfill \hrule \@height\fboxrule \@width\fboxsep}$\kern-\fboxrule \vrule \@width\fboxrule\kern2pt}} \def\rightsqrpolymer#1#2{% \rightsqrPolymer{\rsqrdelimiter{300\unitlength}}{#1}{#2}} \long\def\@sqrpolymer#1#2#3{% \begingroup \fboxrule=#1 \leavevmode\setbox\@tempboxa\hbox{#2}\@tempdima\fboxrule \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa \@tempdimb=\wd\@tempboxa \advance\@tempdimb by \fboxsep \advance\@tempdimb by \fboxsep \advance\@tempdimb by \fboxrule \advance\@tempdimb by \fboxrule \hbox{\lower \@tempdima\hbox {\vbox{ \hbox to\@tempdimb{% \vrule \@height \fboxrule \@width\fboxsep\hfill \vrule \@height \fboxrule \@width\fboxsep} \nointerlineskip \hbox{\vrule \@width \fboxrule \hskip\fboxsep \vbox{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}\hskip \fboxsep\vrule \@width \fboxrule} \nointerlineskip \hbox to\@tempdimb{% \vrule \@height \fboxrule \@width\fboxsep\hfill \vrule \@height \fboxrule \@width\fboxsep}}}}% \kern2pt\lower\@tempdima\hbox{\scriptsize$#3$}\endgroup} \long\def\sqrpolymer#1#2{\@sqrpolymer{0.4pt}{#1}{#2}} \long\def\Sqrpolymer#1#2{\@sqrpolymer{1pt}{#1}{#2}} \long\def\mpolymer#1#2{% \leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa \hbox{\lower \@tempdima\hbox{\vbox{\hbox{\hskip\fboxsep% $\left(\vcenter{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}% \right)_{#2}$}}}}} \def\WestPbond{% \begin{picture}(100,100)(0,0) \put(-100,0){\Westbond} \put(-60,0){\line(-1,0){90}} \end{picture}} \def\EastPbond{% \begin{picture}(100,100)(0,0) \put(100,0){\Eastbond} \put(60,0){\line(1,0){90}} \end{picture}} \def\sbond{% \begin{picture}(160,0)(0,0) \put(0,33){\line(1,0){160}} \end{picture}} \newif\if@centbondsw \@centbondswfalse \newif\if@centatswi \@centatswifalse \newif\if@centatswii \@centatswiifalse \def\polyethylene{\@ifnextchar[{\@polyethylene}{\@polyethylene[]}} \def\@polyethylene[#1]#2#3{% \begin{picture}(1100,600)(-400,-300)% \iforigpt \put(-400,-300){\circle*{50}}% \put(-\noshift,-\noshift){\circle{50}}% \typeout{command `polyethylene' origin: % (\the\noshift,\the\noshift) ---> (400,300)}\fi% \def\@@@temp{#1} \ifx\@@@temp\empty\else \@tfor\member:=#1\do{% \expandafter\twoch@@r\member{}{}% \ifcase\@@tmpa \or \relax \putratom{47}{50}{\scriptsize\@@tmpb}% \or \relax \putratom{347}{50}{\scriptsize\@@tmpb}% \fi}\fi \@forsemicol\member:=#2\do{% \ifx\member\empty\else \expandafter\@m@mb@r\member;\relax% \expandafter\threech@r\@membera{}{}% \ifcase\@tmpa \global\@centbondswtrue \put(20,0){\Eastbond}% \or \global\@centatswitrue \putlratom{-40}{-33}{\@memberb}% \or \global\@centatswiitrue \putlratom{260}{-33}{\@memberb}% \fi\fi}% \if@centatswi \else \putlratom{-40}{-33}{C}\fi \if@centatswii \else \putlratom{260}{-33}{C}\fi \if@centbondsw \else \put(70,0){\line(1,0){160}}\fi \global\@centbondswfalse \global\@centatswifalse \global\@centatswiifalse \gdef\numrepeated{x} \@forsemicol\member:=#3\do{% \ifx\member\empty\else \expandafter\@m@mb@r\member;\relax% \expandafter\threech@r\@membera{}{}% \ifcase\@tmpa \gdef\numrepeated{\@memberb}% \or\put(0,0){\Northbond}% \or\put(0,0){\WestPbond}% \or\put(0,0){\Southbond}% \or\put(300,0){\Southbond}% \or\put(300,0){\EastPbond}% \or\put(300,0){\Northbond}% \fi\fi}%end of ifcase \put(-200,-33){\leftpmdelim} \put(400,-33){\rightpmdelim{\numrepeated}} \end{picture}}%end of macro polyethylene \def\polystyrene{\@ifnextchar[{\@polystyrene}{\@polystyrene[]}} \def\@polystyrene[#1]#2#3#4{% \begin{picture}(1100,1200)(0,-640)% \iforigpt \put(0,-640){\circle*{50}}% \put(-\noshift,-\noshift){\circle{50}}% \typeout{command `polystyrene' origin: % (\the\noshift,\the\noshift) ---> (0,640)}\fi% \begingroup \origptfalse \put(0,0){\polyethylene[#1]{#2}{#3}}% \put(700,0){\line(0,1){240}}% \put(300,-646){\bzdrv{#4}}% \endgroup \end{picture}}%end of macro polystyrene \endinput %% %% End of file `polymers.sty'.