%%
%% 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'.
