summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/polymers.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/polymers.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/polymers.sty231
1 files changed, 0 insertions, 231 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/polymers.sty b/Master/texmf-dist/tex/latex/xymtex/polymers.sty
deleted file mode 100644
index 4a73e25db83..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/polymers.sty
+++ /dev/null
@@ -1,231 +0,0 @@
-%%
-%% 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'.