%%
%% 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,2001,2002,2004,2010 by Shinsaku Fujita
%% all rights reserved.
%% This style file is created for drawing chemical structural formulas
%% This style file is to be contained in the ``xymtex'' directory which
%% is an input directory for TeX.
%% 
%% This file is part of the XyMTeX system.
%% =======================================
%% Old Versions:
%% 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
%% Version 2.01 Released on June 20, 2001 (private version)
%% Version 3.00 Released on April 30, 2002
%% Version 4.00 Released on May 30, 2002 (private version)
%% Version 4.00 Released on August 30, 2004
%% 
%% The Present Version:
%% Version 5.00 Released on October 01, 2010
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%    http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status `maintained'.
%% The Current Maintainer of this work is Shinsaku Fujita.
%% 
%% This work consists of the files polymers.dtx and polymers.ins
%% and the derived file polymers.sty.
%% 
%% =======================================
%% 
%% 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 5.00}
\typeout{       -- Released October 01, 2010 by Shinsaku Fujita}
\def\j@urnalname{polymers}
\def\versi@ndate{October 01, 2010}
\def\versi@nno{ver5.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
\@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{sfpicture}(0,0)(0,0)
\putlatom{0}{0}{#2}
\putlatom{120}{0}{$#1$}
\end{sfpicture}}
\def\leftpolymer#1{\leftPolymer{\biggm(}{#1}}
\def\rightPolymer#1#2#3{%
\begin{sfpicture}(0,0)(0,0)
\putratom{0}{0}{#2}
\putratom{-150}{0}{%
 $\mathstrut#1_{\mkern-2mu #3}$}
\end{sfpicture}}
\def\rightpolymer#1#2{\rightPolymer{\biggm)}{#1}{#2}}
\def\leftsqrPolymer#1#2{%
\begin{sfpicture}(0,0)(0,0)
\putlatom{0}{0}{#2}
\putlatom{120}{0}{$#1$}
\end{sfpicture}}
\def\leftSqrpolymer#1{\leftsqrPolymer{\Biggm[}{#1}}
\def\rightsqrPolymer#1#2#3{%
\begin{sfpicture}(0,0)(0,0)
\putratom{0}{0}{#2}
\putratom{-150}{0}{%
 $\mathstrut #1_{#3}$}
\end{sfpicture}}
\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{sfpicture}(100,100)(0,0)%
\Put@Direct(-100,0){\Westbond}%
\Put@Line(-60,0)(-1,0){90}%
\end{sfpicture}}%
\def\EastPbond{%
\begin{sfpicture}(100,100)(0,0)%
\Put@Direct(100,0){\Eastbond}%
\Put@Line(60,0)(1,0){90}%
\end{sfpicture}}%
\def\sbond{%
\begin{sfpicture}(160,0)(0,0)%
\Put@Line(0,33)(1,0){160}%
\end{sfpicture}}%
\newif\if@centbondsw \@centbondswfalse
\newif\if@centatswi \@centatswifalse
\newif\if@centatswii \@centatswiifalse
\def\polyethylene{\@ifnextchar[{\@polyethylene}{\@polyethylene[]}}
\def\@polyethylene[#1]#2#3{%
 \begin{sfpicture}(1100,600)(-400,-300)%
  \OrigptOutput(400,300){polyethylene}%
\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@Direct(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@Line(70,0)(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\setBScolor{\Put@Direct(0,0){\Northbond}}%
\or\setBScolor{\Put@Direct(0,0){\WestPbond}}%
\or\setBScolor{\Put@Direct(0,0){\Southbond}}%
\or\setBScolor{\Put@Direct(300,0){\Southbond}}%
\or\setBScolor{\Put@Direct(300,0){\EastPbond}}%
\or\setBScolor{\Put@Direct(300,0){\Northbond}}%
\fi\fi}%end of ifcase
\Put@Direct(-200,-33){\leftpmdelim}%
\Put@Direct(400,-33){\rightpmdelim{\numrepeated}}%
\end{sfpicture}}%end of macro polyethylene
\def\polystyrene{\@ifnextchar[{\@polystyrene}{\@polystyrene[]}}
\def\@polystyrene[#1]#2#3#4{%
\begin{sfpicture}(1100,1200)(0,-640)%
  \OrigptOutput(0,640){polystyrene}%
\begingroup \origptfalse
\Put@Direct(0,0){\polyethylene[#1]{#2}{#3}}%
\Put@Line(700,0)(0,1){240}%
\Put@Direct(300,-646){\bzdrv{#4}}%
\endgroup
\end{sfpicture}}%end of macro polystyrene
\endinput
%%
%% End of file `polymers.sty'.
