diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/polymers.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/xymtex/polymers.sty | 231 |
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'. |