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, 231 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/polymers.sty b/Master/texmf-dist/tex/latex/xymtex/polymers.sty new file mode 100644 index 00000000000..4a73e25db83 --- /dev/null +++ b/Master/texmf-dist/tex/latex/xymtex/polymers.sty @@ -0,0 +1,231 @@ +%% +%% 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'. |