Initial commit

author: Norbert Preining <norbert@preining.info> 2019-09-02 13:46:59 +0900
committer: Norbert Preining <norbert@preining.info> 2019-09-02 13:46:59 +0900
commit: e0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree: 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/digests/tex88/ramek
22 files changed, 2192 insertions, 0 deletions
diff --git a/info/digests/tex88/ramek/diagram.def b/info/digests/tex88/ramek/diagram.def
new file mode 100644
index 0000000000..44c3d05617
--- /dev/null
+++ b/info/digests/tex88/ramek/diagram.def
@@ -0,0 +1,790 @@
+{\catcode`\|=0 |catcode`|\=12 |obeyspaces |let|m=|message
+|m{                                                                        }
+|m{  These macros may be used free of charge and without authorization     }
+|m{  for scientific work only.  Written permission is required for any     }
+|m{  commercial use.  If used in publications, citation similar to the     }
+|m{  following reference is required:                                      }
+|m{                                                                        }
+|m{  Michael Ramek,                                                        }
+|m{  ``Chemical Structure Formul\ae\ and x/y-Diagrams with \TeX'',         }
+|m{  in                                                                    }
+|m{  ``\TeX: Applications, Uses, Methods, Proceedings of the \TeX88        }
+|m{  Conference'',                                                         }
+|m{  edited by Malcolm Clark,                                              }
+|m{  published by Ellis Horwood Publishers, Chichester, UK,                }
+|m{  pages 227--258                                                        }
+|m{                                                                        }
+|m{  Questions and inquiries should be addressed to the author:            }
+|m{                                                                        }
+|m{  Michael Ramek                                                         }
+|m{  Institut f\"ur Physikalische und Theoretische Chemie,                 }
+|m{  Technische Universit\"at Graz                                         }
+|m{  Rechbauerstra{\ss}e 12                                                }
+|m{  A--8010 Graz                                                          }
+|m{  Austria                                                               }
+|m{     }|m{}}
+\newwrite\eIns\newwrite\zwEi%
+\newhelp\noscaleIgnored{mproper noscale ignored!}%
+\newhelp\noaxisIgnored{mproper noaxis ignored!}%
+\newhelp\curveIgnored{ncomplete curve ignored!}%
+\newhelp\hpointIgnored{mproper hpoint ignored!}%
+\newhelp\vpointIgnored{mproper vpoint ignored!}%
+\newhelp\diagramIgnored{ncorrect diagram ignored!}%
+\newhelp\improperxIncrement%
+{mproper increment of x-axis!}%
+\newhelp\negativxIncrement%
+{ncrement of x-axis is not positive!}%
+\newhelp\improperyIncrement%
+{mproper increment of y-axis!}%
+\newhelp\negativyIncrement%
+{ncrement of y-axis is not positive!}%
+%
+\def\messAge#1{\escapechar`I%
+\message{\the#1}\escapechar`\\}%
+%
+\def\nogrid{\count0=0\relax}%
+%
+\def\noscale{\ifnum\count20=30 \count30=0\else%
+\ifnum\count20=40 \count40=0\else%
+\messAge{\noscaleIgnored}\fi\fi\relax}%
+\def\noaxis{\ifnum\count20=30 \count30=0\count31=0\else%
+\ifnum\count20=40 \count40=0\count41=0\else%
+\messAge{\noaxisIgnored}\fi\fi\relax}%
+%
+\def\xaxis#1,#2.#3,#4.#5,#6.#7,#8;{\dimen7=#6.#7\pt\relax%
+\ifdim\dimen7>0\em \count20=30\advance\dimen1 by#1%
+\fontdimen2\tenrm\dimen252\setbox0\hbox{#8}%
+\ifdim\wd0>0\em \setbox0\hbox{#8$\qquad\longrightarrow$}\fi%
+\dimen8\ht0\advance\dimen8 by\dp0\advance\dimen8 by2.5\em%
+\advance\dimen2 by\dimen8\fontdimen2\tenrm0\em%
+\dimen61=#2.#3\pt\dimen63=#4.#5\pt\advance\dimen63 by-\dimen61%
+\setbox2\hbox{#2}\ifdim\wd2=0\em \count12=0\else%
+\ifdim\wd2=\wd4 \if#2- \count12=0\else\count12=#2\fi%
+\else\count12=#2\fi\fi%
+\setbox2\hbox{#4}\ifdim\wd2=0\em \count14=0\else%
+\ifdim\wd2=\wd4 \if#4- \count14=0\else\count14=#4\fi%
+\else\count14=#4\fi\fi \count13=0#3\count15=0#5%
+\count16=0#6\count17=0#7\setbox2\hbox{#2.}\dimen7\wd2%
+\setbox2\hbox{#6.}\ifdim\wd2>\dimen7 \dimen7\wd2\fi%
+\setbox2\hbox{#3}\dimen13\wd2\setbox2\hbox{#5}%
+\ifdim\wd2>\dimen13 \dimen13\wd2\fi\setbox2\hbox{#7}%
+\ifdim\wd2>\dimen13 \dimen13\wd2\fi%
+\advance\dimen7 by\dimen13\count18=1%
+\loop\setbox2\hbox{\number\count18}\ifdim\wd2<\dimen13 %
+\multiply\count18 by10\repeat\multiply\count18 by10%
+\multiply\count12 by\count18\multiply\count14 by\count18%
+\multiply\count16 by\count18\setbox2\hbox{#3}%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 0}\multiply\count13 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 00}\multiply\count13 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 000}\multiply\count13 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 0000}\multiply\count13 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 00000}\multiply\count13 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#3 000000}\multiply\count13 by10\fi%
+\dimen3=#2.#3\pt\relax\ifdim\dimen3<0\em %
+\advance\count12 by-\count13\else%
+\advance\count12 by\count13\fi\setbox2\hbox{#5}%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 0}\multiply\count15 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 00}\multiply\count15 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 000}\multiply\count15 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 0000}\multiply\count15 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 00000}\multiply\count15 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#5 000000}\multiply\count15 by10\fi%
+\dimen3=#4.#5\pt\relax\ifdim\dimen3<0\em %
+\advance\count14 by-\count15%
+\else\advance\count14 by\count15\fi\setbox2\hbox{#7}%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 0}\multiply\count17 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 00}\multiply\count17 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 000}\multiply\count17 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 0000}\multiply\count17 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 00000}\multiply\count17 by10\fi%
+\ifdim\wd2<\dimen13 %
+\setbox2\hbox{#7 000000}\multiply\count17 by10\fi%
+\advance\count16 by\count17\dimen3=#1%
+\count19=\count12\loop\advance\count19 by\count16\relax%
+\ifnum\count19<\count14 \repeat%
+\ifnum\count14=\count19 \advance\count1 by1\else%
+\messAge{\improperxIncrement}\fi%
+\else\messAge{\negativexIncrement}\fi}%
+%
+\def\yaxis#1,#2.#3,#4.#5,#6.#7,#8;{\dimen10=#6.#7\pt\relax%
+\ifdim\dimen10>0\em \count20=40\advance\dimen2 by#1%
+\fontdimen2\tenrm\dimen252\setbox1\hbox{#8}%
+\fontdimen2\tenrm0\em\advance\dimen1 by2.5\em%
+\advance\dimen1 by\wd1\setbox2\hbox{#2.}\dimen10\wd2%
+\setbox2\hbox{#6.}\ifdim\wd2>\dimen10 \dimen10\wd2\fi%
+\setbox2\hbox{#3}\dimen14\wd2%
+\setbox2\hbox{#5}\ifdim\wd2>\dimen14 \dimen14\wd2\fi%
+\setbox2\hbox{#7}\ifdim\wd2>\dimen14 \dimen14\wd2\fi%
+\advance\dimen10 by\dimen14\advance\dimen1 by\dimen10%
+\dimen62=#2.#3\pt\dimen64=#4.#5\pt\advance\dimen64 by-\dimen62%
+\setbox2\hbox{#2}\ifdim\wd2=0\em \count22=0\else%
+\ifdim\wd2=\wd4 \if#2- \count22=0\else\count22=#2 \fi%
+\else\count22=#2 \fi\fi%
+\setbox2\hbox{#4}\ifdim\wd2=0\em \count24=0\else%
+\ifdim\wd2=\wd4 \if#4- \count24=0\else\count24=#4 \fi%
+\else\count24=#4 \fi\fi%
+\count23=0#3\count25=0#5\count26=0#6\count27=0#7\count28=1%
+\loop\setbox2\hbox{\number\count28}\ifdim\wd2<\dimen14 %
+\multiply\count28 by10\repeat\multiply\count28 by10%
+\multiply\count22 by\count28\multiply\count24 by\count28%
+\multiply\count26 by\count28\setbox2\hbox{#3}%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 0}\multiply\count23 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 00}\multiply\count23 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 000}\multiply\count23 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 0000}\multiply\count23 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 00000}\multiply\count23 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#3 000000}\multiply\count23 by10\fi%
+\dimen4=#2.#3\pt\relax\ifdim\dimen4<0\em %
+\advance\count22 by-\count23%
+\else\advance\count22 by\count23\fi\setbox2\hbox{#5}%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 0}\multiply\count25 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 00}\multiply\count25 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 000}\multiply\count25 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 0000}\multiply\count25 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 00000}\multiply\count25 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#5 000000}\multiply\count25 by10\fi%
+\dimen4=#4.#5\pt\relax\ifdim\dimen4<0\em %
+\advance\count24 by-\count25%
+\else\advance\count24 by\count25\fi\setbox2\hbox{#7}%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 0}\multiply\count27 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 00}\multiply\count27 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 000}\multiply\count27 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 0000}\multiply\count27 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 00000}\multiply\count27 by10\fi%
+\ifdim\wd2<\dimen14 %
+\setbox2\hbox{#7 000000}\multiply\count27 by10\fi%
+\advance\count26 by\count27\dimen4=#1%
+\count29=\count22\loop\advance\count29 by\count26\relax%
+\ifnum\count29<\count24 \repeat%
+\ifnum\count24=\count29 \advance\count1 by2\else%
+\messAge{\improperyIncrement}\fi%
+\else\messAge{\negativyIncrement}\fi}%
+%
+\def\printsymbol#1{{\symbol#1\box2}}%
+%
+\def\symbol#1{\ifcase#1%
+\ownsymbol{\lower.03em\hbox{\kern.05em$\circ$}}\or%
+\ownsymbol{\lower.03em\hbox{\kern.05em$\bullet$}}\or%
+\ownsymbol{\raise.1em\hbox{$\oplus$}}\or%
+\ownsymbol{\raise.1em\hbox{\kern.01em$\otimes$}}\or%
+\ownsymbol{\raise.1em\hbox{\kern.0235em+}}\or%
+\ownsymbol{\raise.1em\hbox{\kern.05em$\times$}}\or%
+\ownsymbol{$\ast$}\or%
+%\ownsymbol{\vrule width.5em depth.05em height.45em}\or%
+\ownsymbol{\vrule width.4em height.4em}\or%
+\ownsymbol{\lower.03em\hbox{\kern.03em$\diamond$}}\or%
+\ownsymbol{$\bowtie$}\fi}%
+%
+\def\ownsymbol#1{\advance\dimen12 by.5\wd2%
+\advance\dimen13 by.5\ht2\advance\dimen13 by.5\dp2%
+\setbox2\hbox{#1}\advance\dimen12 by-.5\wd2%
+\advance\dimen13 by-.5\ht2\advance\dimen13 by-.5\dp2}%
+%
+\def\nosymbol{\ownsymbol{}}%
+%
+\def\values#1{\ownsymbol{\kern.02\em{\tt x}}\count1=0 #1}%
+%
+\def\connect#1{\nosymbol\count1=1\count0=0 #1}%
+%
+\def\curve#1{\nosymbol\count1=3\count0=0\count29=0%
+\immediate\openout\eIns\jobname.co1 #1\nosymbol%
+\immediate\write\eIns{-1}\immediate\closeout\eIns%
+\ifnum\count0<2 \messAge{\curveIgnored}\fi\relax%
+\ifnum\count0=2 \advance\count19 by\count29\relax%
+\ifnum\count19=0 \immediate\openin\eIns\jobname.co1%
+\immediate\read\eIns to\zeIle%
+\immediate\read\eIns to\zeIle\dimen9=\zeIle%
+\immediate\read\eIns to\zeIle\dimen10=\zeIle%
+\immediate\closein\eIns\docOnnect\fi\else\dOcurve\fi}%
+%
+\def\absdOcurve{\relax%
+\ifdim\dimen11<0\em \multiply\dimen11 by-1\fi\relax}%
+%
+\def\dOcurve{\count20=\eIns\count21=\zwEi\count27\dimen0%
+\divide\count27 by175\multiply\count27 by\count27%
+\count39=0\loop\count38=0\ifnum\count20=\eIns %
+\immediate\openin\count20\jobname.co1%
+\immediate\openout\count21\jobname.co2\else%
+\immediate\openin\count20\jobname.co2%
+\immediate\openout\count21\jobname.co1\fi%
+\count0=0\read\count20 to\zeIle\count29=\zeIle\relax%
+\dacApo\ifnum\count29>-1 \dimen12\dimen9\dimen13\dimen10%
+\read\count20 to\zeIle\dimen9=\zeIle\read\count20 to\zeIle%
+\dimen10=\zeIle\advance\count0 by1\relax\ifnum\count0=2 %
+\dimen34\dimen9\dimen35\dimen10\count35=\count29%
+\dimen42\dimen9\dimen43\dimen10\count43=\count29\fi%
+\ifnum\count0=1 \dimen32\dimen9\dimen33\dimen10%
+\count33=\count29\dimen40\dimen9\dimen41\dimen10%
+\count41=\count29\fi\ifnum\count0=3 %
+\dimen44\dimen9\dimen45\dimen10\count45=\count29%
+\ifnum\count33=0 \ifnum\count35=2 \dimen31\dimen33%
+\dimen30\dimen34\multiply\dimen30 by2%
+\advance\dimen30 by-\dimen32\fi\relax%
+\ifnum\count35=1 \dimen30\dimen32\dimen31\dimen35%
+\multiply\dimen31 by2\advance\dimen31 by-\dimen33\fi\relax%
+\ifnum\count35=0 \dimen30\dimen9\dimen31\dimen10\fi\fi\fi%
+\relax\ifnum\count0>3 \helpdOcurve\dimen44\dimen9%
+\dimen45\dimen10\count45=\count29\fi\relax%
+\ifnum\count0>2 \reallydOcurve\fi\count37=\count29%
+\read\count20 to\zeIle\count29=\zeIle\fi\relax%
+\ifnum\count29>-1 \alfIne\relax%
+\ifnum\count0=2 \ifnum\count33=2 \dimen31\dimen35%
+\dimen30\dimen32\multiply\dimen30 by2%
+\advance\dimen30 by-\dimen34\count35=0\fi\relax%
+\ifnum\count33=1 \dimen30\dimen34\dimen31\dimen33%
+\multiply\dimen31 by2\advance\dimen31 by-\dimen35%
+\count35=0\fi\relax%
+\ifnum\count35=2 \dimen31\dimen33\dimen30\dimen34%
+\multiply\dimen30 by2\advance\dimen30 by-\dimen32\fi%
+\ifnum\count35=1 \dimen30\dimen32\dimen31\dimen35%
+\multiply\dimen31 by2\advance\dimen31 by-\dimen33\fi%
+\dimen44\dimen30\dimen45\dimen31\else\dimen12\dimen9%
+\dimen13\dimen10\count37=\count45\helpdOcurve%
+\dimen44\dimen30\dimen45\dimen31\count45=\count31\fi%
+\reallydOcurve\immediate\write\count21{\the\count37}%
+\immediate\write\count21{\the\dimen9}%
+\immediate\write\count21{\the\dimen10}%
+\immediate\write\count21{-1}%
+\immediate\closein\count20\immediate\closeout\count21%
+\advance\count38 by1\message{\the\count38}%
+\count11=\count21\count21=\count20\count20=\count11%
+\ifnum\count38=\count39 \count38=999\else%
+\count39=\count38\fi\relax%
+\ifnum\count38<99 \repeat\relax\ifnum\count20=\eIns %
+\immediate\openin\count20\jobname.co1\else%
+\immediate\openin\count20\jobname.co2\fi%
+\read\count20 to\zeIle\count29=\zeIle%
+\read\count20 to\zeIle\dimen40=\zeIle%
+\advance\dimen40 by.5\wd1%
+\read\count20 to\zeIle\dimen41=\zeIle%
+%\advance\dimen41 by.5\wd1%
+\read\count20 to\zeIle\count29=\zeIle\relax%
+\dacApo\read\count20 to\zeIle\dimen42=\zeIle%
+\advance\dimen42 by.5\wd1\read\count20 to\zeIle%
+\dimen43=\zeIle%
+%\advance\dimen43 by.5\wd1%
+\dimen9\dimen40\dimen10\dimen41\dimen12\dimen42%
+\dimen13\dimen43\dimen40\dimen42\dimen41\dimen43%
+\docOnnect\read\count20 to\zeIle\count29=\zeIle\relax%
+\ifnum\count29>-1 \alfIne\immediate\closein\count20\relax}%
+%
+\def\helpdOcurve{%
+\dimen30\dimen32\dimen31\dimen33\count31=\count33%
+\dimen32\dimen34\dimen33\dimen35\count33=\count35%
+\dimen40\dimen42\dimen41\dimen43\count41=\count43%
+\dimen34\dimen12\dimen35\dimen13\count35=\count37%
+\dimen42\dimen34\dimen43\dimen35\count43=\count35}%
+%
+\def\reallydOcurve{%
+\ifnum\count33=2 \dimen31\dimen35\dimen30\dimen32%
+\multiply\dimen30 by2\advance\dimen30 by-\dimen34\fi%
+\ifnum\count33=1 \dimen30\dimen34\dimen31\dimen33%
+\multiply\dimen31 by2\advance\dimen31 by-\dimen35\fi%
+\ifnum\count43=2 \dimen45\dimen41\dimen44\dimen42%
+\multiply\dimen44 by2\advance\dimen44 by-\dimen40\fi%
+\ifnum\count43=1 \dimen44\dimen40\dimen45\dimen43%
+\multiply\dimen45 by2\advance\dimen45 by-\dimen41\fi%
+\immediate\write\count21{\the\count33}%
+\immediate\write\count21{\the\dimen32}%
+\immediate\write\count21{\the\dimen33}%
+\advance\count38 by1\relax\dimen11\dimen32%
+\advance\dimen11 by-\dimen34\dimen14\dimen33%
+\advance\dimen14 by-\dimen35\divide\dimen11 by1000%
+\divide\dimen14 by1000\count251\dimen11%
+\multiply\count251 by\count251\count252\dimen14%
+\multiply\count252 by\count252\advance\count252 by\count251%
+\relax\ifnum\count252>\count27 \kreisdOcurve%
+\dimen23\dimen25\dimen24\dimen26\count255=\count251%
+\kreisdOcurve\relax\advance\count255 by\count251\relax%
+\ifnum\count255<6 \advance\dimen25 by\dimen23%
+\divide\dimen25 by2\advance\dimen26 by\dimen24%
+\divide\dimen26 by2\immediate\write\count21{0}%
+\immediate\write\count21{\the\dimen25}%
+\immediate\write\count21{\the\dimen26}%
+\advance\count38 by1\fi\fi\relax}%
+%
+\def\kreisdOcurve{\count251=0\dimen25\dimen32%
+\advance\dimen25 by\dimen34\divide\dimen25 by2%
+\dimen26\dimen33\advance\dimen26 by\dimen35%
+\divide\dimen26 by2\ifnum\count33=2 \dimen36\dimen32%
+\dimen11\dimen34\advance\dimen11 by-\dimen32%
+\dimen14\dimen33\advance\dimen14 by-\dimen35%
+\divide\dimen14 by1000\divide\dimen11 by\dimen14%
+\dimen37\dimen32\advance\dimen37 by-\dimen25%
+\divide\dimen37 by1000\multiply\dimen37 by\dimen11%
+\advance\dimen37 by\dimen26\count251=1\fi\relax%
+\ifnum\count33=1 \dimen37\dimen33\dimen11\dimen33%
+\advance\dimen11 by-\dimen35\dimen14\dimen34%
+\advance\dimen14 by-\dimen32\divide\dimen14 by1000%
+\divide\dimen11 by\dimen14\dimen36\dimen33%
+\advance\dimen36 by-\dimen26\divide\dimen36 by1000%
+\multiply\dimen36 by\dimen11\advance\dimen36 by\dimen25%
+\count251=1\fi\relax\ifnum\count251=0 \dimen11\dimen34%
+\advance\dimen11 by-\dimen32\dimen14\dimen33%
+\advance\dimen14 by-\dimen31\divide\dimen11 by1000%
+\divide\dimen14 by1000\multiply\dimen14 by\dimen11%
+\dimen11\dimen32\advance\dimen11 by-\dimen30%
+\dimen15\dimen35\divide\dimen11 by1000%
+\advance\dimen15 by-\dimen33\divide\dimen15 by1000%
+\multiply\dimen11 by\dimen15\advance\dimen11 by-\dimen14%
+\absdOcurve\ifdim\dimen11<.5\pt \dimen15\dimen25%
+\advance\dimen15 by-\dimen32\divide\dimen15 by1000%
+\dimen14\dimen26\advance\dimen14 by-\dimen33%
+\divide\dimen14 by1000\multiply\dimen15 by\dimen15%
+\multiply\dimen14 by\dimen14\advance\dimen15 by\dimen14%
+\count4\dimen15\rOot\count251=\count3%
+\multiply\count251 by1000\dimen15\dimen32%
+\advance\dimen15 by-\dimen30\dimen14\dimen33%
+\advance\dimen14 by-\dimen31\divide\dimen15 by1000%
+\divide\dimen14 by1000\count4\dimen15%
+\multiply\count4 by\count4\count3\dimen14%
+\multiply\count3 by\count3\advance\count4 by\count3\rOot%
+\divide\count251 by\count3\multiply\dimen15 by\count251%
+\multiply\dimen14 by\count251\advance\dimen15 by\dimen32%
+\advance\dimen14 by\dimen33\advance\dimen25 by\dimen15%
+\advance\dimen26 by\dimen14\divide\dimen25 by2%
+\divide\dimen26 by2\relax\count251=2\ifdim\dimen11=0\em %
+\count251=3\fi\fi\fi\relax%
+\ifnum\count251=0 \dimen36\dimen32\count252=\count33\relax%
+\ifnum\count252=0 \dimen11\dimen31%
+\advance\dimen11 by-\dimen33\absdOcurve%
+\ifdim\dimen11<\dimen0 \count252=2\dimen36\dimen30%
+\advance\dimen36 by\dimen32\divide\dimen36 by2\fi\fi%
+\dimen11\dimen32\advance\dimen11 by-\dimen34%
+\dimen14\dimen35\advance\dimen14 by-\dimen33%
+\ifnum\count252=0 \dimen15\dimen14\relax%
+\ifdim\dimen15<0\em \multiply\dimen15 by-1\fi\relax%
+\ifdim\dimen15<\dimen0 \dimen36\dimen32%
+\advance\dimen36 by\dimen34\divide\dimen36 by2%
+\dimen11\dimen30\advance\dimen11 by-\dimen32%
+\dimen14\dimen33\advance\dimen14 by-\dimen31%
+\dimen25\dimen30\advance\dimen25 by\dimen32%
+\divide\dimen25 by2\dimen26\dimen31%
+\advance\dimen26 by\dimen33\divide\dimen26 by2%
+\count252=2\fi\fi\relax%
+\ifnum\count252=2 \divide\dimen14 by1000%
+\divide\dimen11 by\dimen14\dimen37\dimen36%
+\advance\dimen37 by-\dimen25\divide\dimen37 by1000%
+\multiply\dimen37 by\dimen11\advance\dimen37 by\dimen26%
+\dimen25\dimen32\advance\dimen25 by\dimen34%
+\divide\dimen25 by2\dimen26\dimen33%
+\advance\dimen26 by\dimen35\divide\dimen26 by2\fi%
+\ifnum\count252=1 \dimen37\dimen33\divide\dimen11 by1000%
+\divide\dimen14 by\dimen11\dimen36\dimen26%
+\advance\dimen36 by-\dimen37\divide\dimen36 by1000%
+\multiply\dimen36 by\dimen14\advance\dimen36 by\dimen25\fi%
+\ifnum\count252=0 \dimen19\dimen31%
+\advance\dimen19 by-\dimen35\dimen15\dimen34%
+\dimen37\dimen19\relax%
+\ifdim\dimen37<0\em \multiply\dimen37 by-1\fi\relax%
+\ifdim\dimen37<\dimen0 \dimen36\dimen34%
+\advance\dimen36 by\dimen30\divide\dimen36 by2%
+\advance\dimen15 by-\dimen32\dimen19\dimen33%
+\advance\dimen19 by-\dimen35\divide\dimen19 by1000%
+\dimen37\dimen36\divide\dimen15 by\dimen19%
+\advance\dimen37 by-\dimen25\divide\dimen37 by1000%
+\multiply\dimen37 by\dimen15\advance\dimen37 by\dimen26%
+\else\advance\dimen15 by-\dimen30\divide\dimen14 by1000%
+\divide\dimen19 by1000\dimen21\dimen34%
+\advance\dimen21 by\dimen30\divide\dimen21 by2%
+\dimen22\dimen35\advance\dimen22 by\dimen31%
+\divide\dimen22 by2\divide\dimen11 by\dimen14%
+\divide\dimen15 by\dimen19\count253\dimen11%
+\count254\dimen15\dimen36\dimen25\divide\dimen36 by1000%
+\multiply\dimen36 by\count253\divide\dimen21 by1000%
+\multiply\dimen21 by\count254\advance\dimen36 by-\dimen21%
+\advance\dimen36 by\dimen22\advance\dimen36 by-\dimen26%
+\advance\count253 by-\count254\divide\dimen36 by\count253%
+\dimen37\dimen36\multiply\dimen36 by1000%
+\multiply\dimen37 by\count254\advance\dimen37 by-\dimen21%
+\advance\dimen37 by\dimen22\fi\fi\fi\relax%
+\ifnum\count251<2 \dimen11\dimen36%
+\advance\dimen11 by-\dimen32\absdOcurve\dimen14\dimen11%
+\dimen11\dimen37\advance\dimen11 by-\dimen33\absdOcurve%
+\ifdim\dimen11<\dimen14 \dimen15\dimen11\dimen11\dimen14%
+\dimen14\dimen15\fi\count48=1000\divide\dimen11 by1000%
+\divide\dimen14 by1000\relax%
+\ifdim\dimen11>.1\pt \divide\dimen11 by10%
+\divide\dimen14 by10\multiply\count48 by10\fi\relax%
+\ifdim\dimen11>.1\pt \divide\dimen11 by10%
+\divide\dimen14 by10\multiply\count48 by10\fi\relax%
+\ifdim\dimen11>.1\pt \divide\dimen11 by10%
+\divide\dimen14 by10\multiply\count48 by10\fi\relax%
+\ifdim\dimen11>.1\pt \divide\dimen11 by10%
+\divide\dimen14 by10\multiply\count48 by10\fi\relax%
+\ifdim\dimen11>.1\pt \divide\dimen11 by10%
+\divide\dimen14 by10\multiply\count48 by10\fi\relax%
+\multiply\dimen11 by\dimen11\multiply\dimen14 by\dimen14%
+\advance\dimen11 by\dimen14\count4\dimen11\rOot%
+\multiply\count3 by1000\count252=\count3\dimen11\dimen25%
+\advance\dimen11 by-\dimen36\divide\dimen11 by\count48%
+\count4\dimen11\multiply\count4 by\count4\dimen14\dimen26%
+\advance\dimen14 by-\dimen37\divide\dimen14 by\count48%
+\count3\dimen14\multiply\count3 by\count3%
+\advance\count4 by\count3\rOot\divide\count252 by\count3%
+\relax\ifnum\count252=1000 \relax\else\ifnum\count48>1000 %
+\divide\count48 by1000\multiply\dimen11 by\count48%
+\multiply\dimen14 by\count48\fi%
+\multiply\dimen11 by\count252\dimen25\dimen36%
+\dimen26\dimen37\advance\dimen25 by\dimen11%
+\multiply\dimen14 by\count252\advance\dimen26 by\dimen14%
+\fi\fi\dimen11\dimen32\dimen32\dimen42\dimen42\dimen11%
+\dimen11\dimen34\dimen34\dimen40\dimen40\dimen11%
+\dimen11\dimen33\dimen33\dimen43\dimen43\dimen11%
+\dimen11\dimen35\dimen35\dimen41\dimen41\dimen11%
+\dimen11\dimen30\dimen30\dimen44\dimen44\dimen11%
+\dimen11\dimen31\dimen31\dimen45\dimen45\dimen11%
+\count4=\count33\count33=\count43\count43=\count4}%
+%
+\def\lsqline#1{\ownsymbol{\kern.02\em{\tt x}}\count1=2%
+\count0=0\count30=0\count34=0\count32=0\count33=0\relax#1%
+\nosymbol\count31=\count34\divide\count31 by1000%
+\divide\count31 by\count0\divide\count32 by\count31%
+\multiply\count32 by-1000\advance\count32 by\count30%
+\divide\count33 by\count31\multiply\count33 by-1000%
+\advance\count33 by\count34\multiply\count32 by10%
+\divide\count33 by100\divide\count32 by\count33% 1000 slope
+\multiply\count31 by\count32\divide\count30 by\count0%
+\advance\count30 by-\count31% intercept
+\dimen12=0\em\dimen13=\count30sp\relax%
+\ifdim\dimen13>\dimen4 \dimen12\dimen4%
+\advance\dimen12 by-\dimen13\dimen13\dimen4%
+\multiply\dimen12 by1000\divide\dimen12 by\count32\fi%
+\ifdim\dimen13<0\em \dimen12-\dimen13\dimen13=0\em%
+\multiply\dimen12 by1000\divide\dimen12 by\count32\fi%
+\advance\dimen13 by\dimen6\advance\dimen12 by\dimen5%
+\dimen9\dimen3\count40\dimen9\divide\count40 by1000%
+\multiply\count40 by\count32\advance\count40 by\count30%
+\dimen10=\count40sp\relax%
+\ifdim\dimen10>\dimen4 \dimen9\dimen4\dimen10\dimen4%
+\advance\dimen9 by-\count30sp\multiply\dimen9 by1000%
+\divide\dimen9 by\count32\fi%
+\ifdim\dimen10<0\em \dimen9-\count30sp\dimen10=0\em%
+\multiply\dimen9 by1000\divide\dimen9 by\count32\fi%
+\advance\dimen10 by\dimen6\advance\dimen9 by\dimen5%
+\docOnnect}%
+%
+\def\dacApo#1\alfIne{\def\dacApoalfine{#1}\dacApoal}%
+%
+\def\dacApoal{\dacApoalfine\let\fIne\dacApoal\else%
+\let\fIne\relax\fi\fIne}%
+%
+\def\rOot{\count3=\count4\divide\count3 by4%
+\ifnum\count3>0 \rOo\fi}%
+% Compute \count3=sqrt(\count4) by a recursion formula.
+\def\rOo{\roOt\let\roOz\rOo\else\let\roOz\relax\fi\roOz}%
+\def\roOt{\count5=\count4\divide\count5 by\count3%
+\advance\count5 by\count3\count6=\count5\divide\count6 by2%
+\advance\count6 by5\ifnum\count3>\count6 \count3=\count5%
+\divide\count3 by2\relax}%
+%
+\def\docOnnect{\ifdim\dimen9=\dimen12%
+\advance\dimen12 by.5\wd2\advance\dimen10 by.5\dp2%
+\advance\dimen10 by.5\ht2\advance\dimen13 by.5\dp2%
+\advance\dimen13 by.5\ht2\kern\dimen12%
+\ifdim\dimen10>\dimen13 \advance\dimen13 by-\dimen0%
+\vrule width\dimen0 height\dimen10 depth-\dimen13\else%
+\advance\dimen10 by-\dimen0%
+\vrule width\dimen0 height\dimen13 depth-\dimen10\fi%
+\kern-\dimen0\kern-\dimen12\else\ifdim\dimen10=\dimen13 %
+\advance\dimen12 by.5\wd2\advance\dimen9 by.5\wd2%
+\ifdim\dimen9>\dimen12 \dimen10\dimen9\dimen9\dimen12%
+\dimen12\dimen10\fi\advance\dimen12 by-\dimen9%
+\advance\dimen13 by.5\dp2\advance\dimen13 by.5\ht2%
+\dimen10\dimen13\advance\dimen10 by-\dimen0\kern\dimen9%
+\vrule width\dimen12 height\dimen13 depth-\dimen10%
+\kern-\dimen9\kern-\dimen12\else\dotcOnnect\fi\fi}%
+%
+\def\dotcOnnect{\dimen16\dimen9\advance\dimen16 by-\dimen12%
+\divide\dimen16 by10000\dimen17\dimen10%
+\advance\dimen17 by-\dimen13\divide\dimen17 by10000%
+\count3\dimen16\multiply\count3 by\dimen16%
+\count4\dimen17\multiply\count4 by\dimen17%
+\advance\count4 by\count3\rOot\count2=0\count4=10000%
+\advance\count4 by-\count2\count6=\wd1%
+\multiply\count6 by2\divide\count6 by3%
+\divide\count6 by\count3\advance\dimen13 by.5\dp2%
+\advance\dimen12 by.5\wd2\advance\dimen13 by.5\ht2%
+\kern\dimen12\loop\dimen32=0\em%
+\advance\dimen32 by\count2\dimen16\dimen18\dimen13%
+\advance\dimen18 by\count2\dimen17\kern\dimen32%
+\raise\dimen18\copy1\kern-\wd1\kern-\dimen32%
+\advance\count2 by\count6%
+\ifnum\count2<\count4 \repeat\kern-\dimen12}%
+%
+\def\hpoint#1;{\ifnum\count1<3 \messAge{\hpointIgnored}%
+\else\count29=2\point#1;\fi}%
+%
+\def\vpoint#1;{\ifnum\count1<3 \messAge{\vpointIgnored}%
+\else\count29=1\point#1;\fi}%
+%
+\def\point#1.#2,#3.#4;{\dimen9=#1.#2\pt\dimen10\dimen63%
+\advance\dimen9 by-\dimen61%
+\relax\count9\dimen9\count2\dimen10\multiply\count9 by10%
+\count3=\count9\divide\count3 by\count2%
+\count11=\count2\multiply\count11 by\count3%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count4=\count9\divide\count4 by\count2%
+\count11=\count2\multiply\count11 by\count4%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count5=\count9\divide\count5 by\count2%
+\count11=\count2\multiply\count11 by\count5%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count6=\count9\divide\count6 by\count2%
+\count11=\count2\multiply\count11 by\count6%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count7=\count9\divide\count7 by\count2%
+\count11=\count2\multiply\count11 by\count7%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count8=\count9\divide\count8 by\count2%
+\dimen9\dimen5\dimen10\dimen3%
+\divide\dimen10 by10\advance\dimen9 by\count3\dimen10%
+\divide\dimen10 by10\advance\dimen9 by\count4\dimen10%
+\divide\dimen10 by10\advance\dimen9 by\count5\dimen10%
+\divide\dimen10 by10\advance\dimen9 by\count6\dimen10%
+\divide\dimen10 by10\advance\dimen9 by\count7\dimen10%
+\divide\dimen10 by10\advance\dimen9 by\count8\dimen10%
+\dimen30\dimen9\advance\dimen30 by-\dimen5%
+\advance\dimen9 by-.5\wd2%
+\dimen10=#3.#4\pt\dimen11\dimen64%
+\advance\dimen10 by-\dimen62%
+\count9\dimen10\count2\dimen11\multiply\count9 by10%
+\count3=\count9\divide\count3 by\count2%
+\count11=\count2\multiply\count11 by\count3%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count4=\count9\divide\count4 by\count2%
+\count11=\count2\multiply\count11 by\count4%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count5=\count9\divide\count5 by\count2%
+\count11=\count2\multiply\count11 by\count5%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count6=\count9\divide\count6 by\count2%
+\count11=\count2\multiply\count11 by\count6%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count7=\count9\divide\count7 by\count2%
+\count11=\count2\multiply\count11 by\count7%
+\advance\count9 by-\count11\multiply\count9 by10%
+\count8=\count9\divide\count8 by\count2%
+\dimen10\dimen6\dimen11\dimen4%
+\divide\dimen11 by10\advance\dimen10 by\count3\dimen11%
+\divide\dimen11 by10\advance\dimen10 by\count4\dimen11%
+\divide\dimen11 by10\advance\dimen10 by\count5\dimen11%
+\divide\dimen11 by10\advance\dimen10 by\count6\dimen11%
+\divide\dimen11 by10\advance\dimen10 by\count7\dimen11%
+\divide\dimen11 by10\advance\dimen10 by\count8\dimen11%
+\dimen32\dimen10\advance\dimen32 by-\dimen6%
+\advance\dimen10 by-.5\ht2\advance\dimen10 by-.5\dp2%
+\raise\dimen10\hbox to\dimen1{\kern\dimen9\copy2\hss}%
+\kern-\dimen1%
+%
+\ifnum\count1=2 \advance\count0 by1\count11\dimen30%
+\advance\count34 by\count11\divide\count11 by1000%
+\count13\dimen32\advance\count30 by\count13\count3=\count11%
+\multiply\count3 by\count11\advance\count33 by\count3%
+\divide\count13 by1000\multiply\count13 by\count11%
+\advance\count32 by\count13\fi\relax%
+%
+\ifnum\count1=3 \advance\dimen32 by\dimen6%
+\advance\dimen30 by\dimen5%
+\immediate\write\eIns{\the\count29}%
+\advance\dimen30 by-.5\dimen0%
+\immediate\write\eIns{\the\dimen30}%
+\advance\dimen32 by.5\dimen0%
+\immediate\write\eIns{\the\dimen32}\advance\count0 by1%
+\ifnum\count0=2 \dimen30\dimen12\dimen32\dimen13\fi\fi%
+\relax%
+%
+\ifnum\count1=1 \ifnum\count0=0 \count0=1\else%
+\dimen30\dimen9\dimen31\dimen10\docOnnect\dimen10\dimen31%
+\dimen9\dimen30\fi\fi%
+%
+\dimen12\dimen9\dimen13\dimen10\count19=\count29\count29=0}%
+%
+\def\nomOrediagrams{\def\nogrid{}\def\noscale{}%
+\def\noaxis{}\def\xaxis{}\def\yaxis{}\def\printsymbol{}%
+\def\ownsymbol{}\def\symbol{}\def\nosymbol{}\def\values{}%
+\def\curve{}\def\rOot{}\def\connect{}\def\absdOcurve{}%
+\def\dOcurve{}\def\helpdOcurve{}\def\reallydOcurve{}%
+\def\lsqline{}\def\dacApo\alfIne{}\def\rOo{}\def\roOt{}%
+\def\dacApoal{}\def\docOnnect{}\def\dotcOnnect{}%
+\def\hpoint{}\def\vpoint{}\def\point{}\def\diagram{}%
+\ifnum\count17=\zwEi \global\advance\count17 by-2\fi}%
+%
+\def\nomorediagrams{\nomOrediagrams\def\nomOrediagrams{}}%
+%
+\def\diagram#1#2{\hbox{\tenrm%
+\catcode`\ 9\catcode`\^^M9\catcode`\^^I9%
+\dimendef\em250\em1em\dimendef\pt249\pt1pt%
+\dimen252\fontdimen2\tenrm\fontdimen2\tenrm0\em%
+\dimen253\fontdimen3\tenrm\fontdimen3\tenrm0\em%
+\dimen254\fontdimen4\tenrm\fontdimen4\tenrm0\em%
+\dimen255\fontdimen7\tenrm\fontdimen7\tenrm0\em%
+\dimen251\parindent\parindent0\em%
+\count0=1%  grid flag, point counter
+\count1=0%  axis definition counter, curve type selector 
+\count20=0% axis marker
+\count30=1% xaxis scaling marker
+\count40=1% yaxis scaling marker
+\count31=1% xaxis printing marker
+\count41=1% yaxis printing marker
+\dimen44=.07\em% stroke thickness 
+\dimen1=0\em% xlength
+\dimen2=0\em% ylength
+\dimen0\dimen44%
+\setbox4\hbox{-}#1\setbox2\hbox{0}\ifnum\count1=3 %
+\vbox to\dimen2{\dimen5\dimen1\advance\dimen5 by-\dimen3%
+\dimen6\dimen2\advance\dimen6 by-\dimen4%
+\hbox to\dimen1{%
+ \vbox to\dimen2{%
+  \ifdim\wd1>0\em \hbox to\wd1{\hss$\Bigl\uparrow$\hss}%
+  \vskip2\em\box1\fi\vfill\hbox to\dimen1{\hfill\box0}%
+ }%
+ \kern-\dimen1\ifnum\count41=0 \dimen0=0\em\fi%
+ \raise\dimen2\hbox to\dimen1{\hfill%
+ \vrule width\dimen0 depth\dimen4 height0\em\kern\dimen3}%
+ \kern-\dimen1\dimen0\dimen44\ifnum\count31=0 %
+ \dimen0=0\em\fi\raise\dimen6\hbox to\dimen1{\hfill%
+ \advance\dimen3 by\dimen0%
+ \vrule width\dimen3 height0\em depth\dimen0}\kern-\dimen1%
+ \count19=0\advance\dimen8 by-1.5\em\xaxIs\dimen0\dimen44%
+ \ifnum\count31=0 \dimen0=0\em\else\divide\dimen0 by2\fi%
+ \advance\dimen1 by-.5\dimen7\advance\dimen3 by-.5\dimen7%
+ \advance\dimen4 by-.5\ht2\dimen9=0\em%
+ \ifnum\count0=1 \dimen9\dimen4\fi\raise\dimen6%
+ \hbox to\dimen1{\kern\dimen5\loop%
+  \vrule width\dimen0 depth.3\em height\dimen9%
+  \ifnum\count12<\count14 \advance\count12 by\count16\hss%
+  \else\count19=1\fi\relax\ifnum\count19<1 \repeat%
+ }\kern-\dimen1\dimen10\dimen6\advance\dimen10 by-.5\ht2 %
+ \dimen0\dimen44\ifnum\count41=0 \dimen0=0\em\else%
+ \divide\dimen0 by2\fi\yaxIs\dimen9=.3\em\ifnum\count0=1%
+ \advance\dimen9 by\dimen3\fi\raise\dimen6%
+ \hbox to\dimen1{\kern\dimen5\kern-.3\em%
+  \vbox to\dimen4{\count19=0\count29=0%
+   \setbox1\hbox{%
+    \vrule width\dimen9 depth\dimen0 height0\em}%
+   \loop\advance\count19 by1%
+   \advance\count22 by\count26\ifnum\count22<\count24 %
+   \else\count29=1\fi\relax\ifnum\count29=0 \repeat%
+   \loop\copy1\advance\count19 by-1\relax%
+   \ifnum\count19>0 \vss\repeat}%
+  \hfill}\kern-\dimen1\dimen0\dimen44%
+ \setbox1\hbox{\vrule width\dimen0 height0\em depth\dimen0}%
+ \count9=\count14\divide\count9 by\count18\count15=\count9%
+ \multiply\count15 by-\count18\advance\count15 by\count14%
+ \relax\ifnum\count15<0 \multiply\count15 by-1\fi\relax%
+ \count3=\count18\divide\count3 by10%
+ \setbox3\hbox{\the\count3}%
+ \dimen39=.\number\count15\pt\relax%
+ \setbox4\hbox{\the\count15}\relax\ifdim\wd3=\wd4 \else%
+ \setbox4\hbox{0\the\count15}\relax\ifdim\wd3=\wd4 %
+ \divide\dimen39 by10\relax\else%
+ \setbox4\hbox{00\the\count15}\relax\ifdim\wd3=\wd4 %
+ \divide\dimen39 by100\relax\else%
+ \setbox4\hbox{000\the\count15}\relax\ifdim\wd3=\wd4 %
+ \divide\dimen39 by1000\relax\else%
+ \setbox4\hbox{0000\the\count15}\relax\ifdim\wd3=\wd4 %
+ \divide\dimen39 by10000\relax\else%
+ \setbox4\hbox{00000\the\count15}\relax\ifdim\wd3=\wd4 %
+ \divide\dimen39 by100000\relax\fi\fi\fi\fi\fi\fi%
+ \ifnum\count9<0 \multiply\dimen39 by-1\fi\relax%
+ \advance\dimen39 by\count9\pt\relax%
+ \count9=\count24\divide\count9 by\count28\count25=\count9%
+ \multiply\count25 by-\count28\advance\count25 by\count24%
+ \relax\ifnum\count25<0 \multiply\count25 by-1\fi\relax%
+ \count3=\count28\divide\count3 by10%
+ \setbox5\hbox{\the\count3}%
+ \dimen49=.\number\count25\pt\relax%
+ \setbox4\hbox{\the\count25}\relax\ifdim\wd5=\wd4 \else%
+ \setbox4\hbox{0\the\count25}\relax\ifdim\wd5=\wd4 %
+ \divide\dimen49 by10\relax\else%
+ \setbox4\hbox{00\the\count25}\relax\ifdim\wd5=\wd4 %
+ \divide\dimen49 by100\relax\else%
+ \setbox4\hbox{000\the\count25}\relax\ifdim\wd5=\wd4 %
+ \divide\dimen49 by1000\relax\else%
+ \setbox4\hbox{0000\the\count25}\relax\ifdim\wd5=\wd4 %
+ \divide\dimen49 by10000\relax\else%
+ \setbox4\hbox{00000\the\count25}\relax\ifdim\wd5=\wd4 %
+ \divide\dimen49 by100000\relax\fi\fi\fi\fi\fi\fi%
+ \ifnum\count9<0 \multiply\dimen49 by-1\fi\relax%
+ \advance\dimen49 by\count9\pt\relax#2\hss}%
+}\else\messAge{\diagramIgnored}\fi%
+\fontdimen2\tenrm\dimen252\fontdimen3\tenrm\dimen253%
+\fontdimen4\tenrm\dimen254\fontdimen7\tenrm\dimen255%
+\parindent\dimen251}}%
+%
+\def\xaxIs{\ifnum\count30=1 \raise\dimen8\hbox to\dimen1{%
+\kern\dimen5\kern-.5\dimen7\loop\count11=\count12%
+\divide\count11 by\count18\count13=\count11%
+\multiply\count13 by-\count18\advance\count13 by\count12%
+\relax\ifnum\count13<0 \multiply\count13 by-1\fi%
+\ifnum\count11<0 \multiply\count11 by-1\fi%
+\setbox0\hbox{\the\count13}%
+\ifdim\wd0<\dimen13 \setbox0\hbox{0\the\count13}\fi%
+\ifdim\wd0<\dimen13 \setbox0\hbox{00\the\count13}\fi%
+\ifdim\wd0<\dimen13 \setbox0\hbox{000\the\count13}\fi%
+\ifdim\wd0<\dimen13 \setbox0\hbox{0000\the\count13}\fi%
+\ifdim\wd0<\dimen13 \setbox0\hbox{00000\the\count13}\fi%
+\ifdim\wd0<\dimen13 \setbox0\hbox{000000\the\count13}\fi%
+\hbox to\dimen7{%
+\hss\ifnum\count12<0 $-$\fi\number\count11.\box0}%
+\ifnum\count12<\count14 \advance\count12 by\count16\hss%
+\else\count19=1\fi\relax\ifnum\count19<1 \repeat%
+}\kern-\dimen1\fi}%
+%
+\def\yaxIs{\ifnum\count40=1 \raise\dimen10%
+\hbox to\dimen5{\advance\dimen4 by\ht2%
+\vbox to\dimen4{\count19=0\count29=0\loop%
+\advance\count19 by1\count11=\count22%
+\divide\count11 by\count28\count23=\count11%
+\multiply\count23 by-\count28\advance\count23 by\count22%
+\relax\ifnum\count23<0 \multiply\count23 by-1\fi%
+\ifnum\count11<0 \multiply\count11 by-1\fi%
+\setbox0\hbox{\the\count23}%
+\ifdim\wd0<\dimen14 \setbox0\hbox{0\the\count23}\fi%
+\ifdim\wd0<\dimen14 \setbox0\hbox{00\the\count23}\fi%
+\ifdim\wd0<\dimen14 \setbox0\hbox{000\the\count23}\fi%
+\ifdim\wd0<\dimen14 \setbox0\hbox{0000\the\count23}\fi%
+\ifdim\wd0<\dimen14 \setbox0\hbox{00000\the\count23}\fi%
+\ifdim\wd0<\dimen14 \setbox0\hbox{000000\the\count23}\fi%
+\setbox\count19\hbox to\dimen5{\hfill%
+\ifnum\count22<0 $-$\fi\number\count11.\box0\kern.5\em}%
+\advance\count22 by\count26\ifnum\count22<\count24 %
+\else\count29=1\fi\relax\ifnum\count29=0 \repeat%
+\loop\box\count19\advance\count19 by-1\relax%
+\ifnum\count19>0 \vss\repeat}%
+}\kern-\dimen5\fi}%
diff --git a/info/digests/tex88/ramek/struct.def b/info/digests/tex88/ramek/struct.def
new file mode 100644
index 0000000000..f575985c25
--- /dev/null
+++ b/info/digests/tex88/ramek/struct.def
@@ -0,0 +1,703 @@
+{\catcode`\|=0 |catcode`|\=12 |obeyspaces |let|m=|message
+|m{                                                                        }
+|m{  These macros may be used free of charge and without authorization     }
+|m{  for scientific work only.  Written permission is required for any     }
+|m{  commercial use.  If used in publications, citation similar to the     }
+|m{  following reference is required:                                      }
+|m{                                                                        }
+|m{  Michael Ramek,                                                        }
+|m{  ``Chemical Structure Formul\ae\ and x/y-Diagrams with \TeX'',         }
+|m{  in                                                                    }
+|m{  ``\TeX: Applications, Uses, Methods, Proceedings of the \TeX88        }
+|m{  Conference'',                                                         }
+|m{  edited by Malcolm Clark,                                              }
+|m{  published by Ellis Horwood Publishers, Chichester, UK,                }
+|m{  pages 227--258                                                        }
+|m{                                                                        }
+|m{  Questions and inquiries should be addressed to the author:            }
+|m{                                                                        }
+|m{  Michael Ramek                                                         }
+|m{  Institut f\"ur Physikalische und Theoretische Chemie,                 }
+|m{  Technische Universit\"at Graz                                         }
+|m{  Rechbauerstra{\ss}e 12                                                }
+|m{  A--8010 Graz                                                          }
+|m{  Austria                                                               }
+|m{     }|m{}}
+\newhelp\maxsIde{mproper nesting of side chains!}%
+\newhelp\aromatsideIgnored%
+{ncomplete aromatic system in side chain ignored!}%
+\newhelp\bicycloIgnored%
+{mproper bicyclo definition ignored!}%
+\newhelp\aromatIgnored{ncomplete aromatic system ignored!}%
+\def\messAge#1{\escapechar`I%
+\message{\the#1}\escapechar`\\}%
+%
+\def\atom#1{\sAve{#1}\adjustAtom}%
+\def\phantatom#1{\sAve{#1}\phAntbox\adjustAtom}%
+\def\adjustAtom{\advance\dimen0 by-\dimen6\ifnum\count23=1 %
+\halfbAck\else\ifnum\count23=2 \fullbAck\fi\fi%
+\raise\dimen1\box0\ifdim\dimen0<\dimen3 %
+\dimen3\dimen0\fi\advance\dimen0 by\dimen6%
+\dimen42\baselineskip\dimen52=\count33sp%
+\advance\dimen42 by\dimen1\advance\dimen52 by-\dimen1%
+\vrule width0\em height\dimen42 depth\dimen52\count23=0}%
+%
+\def\epin#1{\setbox0\hbox{#1}\ifnum\count13=0 \phAntbox\fi%
+\raise\dimen1\copy0\kern-\wd0\advance\dimen0 by\wd0\relax%
+\ifdim\dimen0>\dimen2 \dimen2\dimen0\fi%
+\advance\dimen0 by-\wd0}%
+\def\wpin#1{\kern-\dimen6\setbox0\hbox{#1}%
+\ifnum\count13=0 \phAntbox\fi%
+\kern-\wd0\advance\dimen0 by-\wd0\advance\dimen0 by-\dimen6%
+\relax\ifdim\dimen0<\dimen3 \dimen3\dimen0\fi%
+\advance\dimen0 by\dimen6\advance\dimen0 by\wd0%
+\raise\dimen1\box0\kern\dimen6}%
+\def\spin#1{\kern-.5\dimen6\setbox0\hbox{#1}%
+\ifnum\count13=0 \phAntbox\fi%
+\kern-.5\wd0\advance\dimen1 by-\ht0\advance\dimen1 by-\dp0%
+\advance\dimen1 by-.2\em\raise\dimen1\copy0%
+\advance\dimen1 by\ht0\advance\dimen1 by\dp0%
+\advance\dimen1 by.2\em\kern-.5\wd0\kern.5\dimen6}%
+\def\npin#1{\kern-.5\dimen6\setbox0\hbox{#1}%
+\ifnum\count13=0 \phAntbox\fi%
+\kern-.5\wd0\advance\dimen1 by\ht0\advance\dimen1 by\dp0%
+\advance\dimen1 by.2\em\raise\dimen1\copy0%
+\advance\dimen1 by-\ht0\advance\dimen1 by-\dp0%
+\advance\dimen1 by-.2\em\kern-.5\wd0\kern.5\dimen6}%
+%
+\def\sAve#1{\setbox0\hbox{#1}%
+\dimen5\ht0\advance\dimen5 by\dp0\dimen6\wd0%
+\advance\dimen4 by\wd0\advance\dimen0 by\wd0%
+\relax\ifdim\dimen0>\dimen2 \dimen2\dimen0\fi%
+\ifnum\count13=0 \phAntbox\fi}%
+\def\phAntbox{\dimen12\ht0\advance\dimen12 by-\dp0%
+\dimen13-\ht0\advance\dimen13 by\dimen12%
+\dimen12-\dimen12\advance\dimen12 by-\dp0%
+\setbox0\hbox{%
+\vrule width\dimen6 height\dimen12 depth\dimen13}}%
+%
+\def\side#1{\ifnum\count11>20 \messAge{\maxsIde}\else%
+\advance\count11 by1\count21=\count11\multiply\count21 by10%
+\count31=\count21\advance\count31 by10%
+\loop\count41=\count31\advance\count41 by-10\relax%
+\ifnum\count41>0 \dimen\count31\dimen\count41%
+\advance\count31 by-1\repeat%
+\count31=\count21\advance\count31 by20%
+\loop\count41=\count31\advance\count41 by-10\relax%
+\ifnum\count41>10 \count\count31=\count\count41%
+\advance\count31 by-10\repeat%
+\dimen4=0\em\count20=0 #1\kern-\dimen4%
+\advance\dimen0 by-\dimen4\dimen1\dimen11%
+\count31=4\advance\count21 by1%
+\loop\count41=\count31\advance\count41 by10%
+\ifnum\count31<\count21 \dimen\count31\dimen\count41%
+\advance\count31 by1\repeat\advance\count21 by20%
+\count31=20\ifnum\count20>0 \messAge{\aromatsideIgnored}%
+\fi\loop\count41=\count31\advance\count41 by10\relax%
+\ifnum\count41<\count21 \count\count31=\count\count41%
+\advance\count31 by10\repeat\advance\count11 by-1\fi}%
+%
+\def\fullbAck{\advance\dimen4 by-\dimen6%
+\advance\dimen0 by-\dimen6\kern-\dimen6}%
+\def\halfbAck{\advance\dimen4 by-.5\dimen6%
+\advance\dimen0 by-.5\dimen6\kern-.5\dimen6}%
+\def\nestrIch{\ifnum\count83=0 \setbox83\hbox{\count12=0%
+\dimen12=.65\em\kern.09\em\loop\dimen13\dimen12%
+\advance\dimen13 by-.06\em%
+\vrule height\dimen12 depth-\dimen13 width.012\em%
+\advance\dimen12 by.0083\em\advance\count12 by1\relax%
+\ifnum\count12<50 \repeat%
+\kern.09\em}\count83=1\fi\sAve{\copy83}}%
+\def\nwstrIch{\ifnum\count93=0 \setbox93\hbox{\count12=0%
+\dimen12=.65\em\kern.09\em\loop\dimen13\dimen12%
+\advance\dimen13 by-.06\em%
+\vrule height\dimen12 depth-\dimen13 width.012\em%
+\advance\dimen12 by-.0083\em\advance\count12 by1\relax%
+\ifnum\count12<50 \repeat\kern.09\em}%
+\count93=1\fi\sAve{\copy93}}%
+\def\dotbackslAsh{\setbox1\hbox{.}\raise.65\em\copy1%
+\kern-.15\em\raise.425\em\copy1%
+\kern-.15\em\raise.2\em\copy1%
+\kern-.15\em\lower.025\em\copy1%
+\kern-.15\em\lower.25\em\box1\kern.08\em}%
+\def\dotslAsh{\setbox1\hbox{.}\lower.25\em\copy1%
+\kern-.15\em\lower.025\em\copy1%
+\kern-.15\em\raise.2\em\copy1%
+\kern-.15\em\raise.425\em\copy1%
+\kern-.15\em\raise.65\em\box1\kern.08\em}%
+\def\nnepfEil{\ifnum\count13=0 \sAve{%
+\vrule height0\em width.377838\em}\else%
+\sAve{\kern.09\em\dimen12=.546\em\dimen13-.541\em\relax%
+\loop\ifdim\dimen13<.554\em %
+\vrule width.004\em depth\dimen12 height\dimen13%
+\advance\dimen12 by-.015\em\advance\dimen13 by.05\em\relax%
+\repeat\loop\ifdim\dimen13>-\dimen12 %
+\vrule width.004\em depth\dimen12 height\dimen13%
+\advance\dimen12 by-.015\em\advance\dimen13 by-.0005\em%
+\relax\repeat}\fi}%
+\def\enepfEil{\ifnum\count63=0 %
+\setbox63\hbox{\dimen12=.086\em\dimen13-\dimen12%
+\kern.1\em\loop\advance\dimen12 by-.003\em%
+\advance\dimen13 by.011\em\relax\ifdim\dimen13<.2\em %
+\vrule width\dimen251 depth\dimen12 height\dimen13\repeat%
+\vrule width\dimen251 depth\dimen12 height.1\em%
+\kern.07\em}\count63=1\fi\sAve{\copy63}}%
+\def\esepfEil{\ifnum\count43=0 %
+\setbox43\hbox{\dimen12-.086\em\dimen13-\dimen12%
+\kern.1\em\loop\advance\dimen12 by.003\em%
+\advance\dimen13 by-.011\em\relax\ifdim\dimen13>-.2\em %
+\vrule width\dimen251 depth-\dimen13 height-\dimen12\repeat%
+\vrule width\dimen251 height-\dimen12 depth.1\em%
+\kern.07\em}\count43=1\fi\sAve{\copy43}}%
+\def\ssepfEil{\ifnum\count13=0 %
+\sAve{\vrule height0\em width.377838\em}\else%
+\sAve{\kern.09\em\dimen12=.546\em\dimen13-.541\em%
+\relax\loop\ifdim\dimen13<.554\em %
+\vrule width.004\em height\dimen12 depth\dimen13%
+\advance\dimen12 by-.015\em\advance\dimen13 by.05\em%
+\relax\repeat\loop\ifdim\dimen13>-\dimen12 %
+\vrule width.004\em height\dimen12 depth\dimen13%
+\advance\dimen12 by-.015\em\advance\dimen13 by-.0005\em%
+\relax\repeat}\fi}%
+\def\sswpfEil{\ifnum\count13=0 %
+\sAve{\vrule height0\em width.377838\em}\else%
+\sAve{\dimen12-.5\em\dimen13=.53\em\relax%
+\loop\ifdim\dimen13<.554\em %
+\vrule width.004\em height\dimen12 depth\dimen13%
+\advance\dimen12 by.015\em\advance\dimen13 by.0005\em%
+\relax\repeat\loop\ifdim\dimen12<.546\em %
+\vrule width.004\em height\dimen12 depth\dimen13%
+\advance\dimen13 by-.05\em\advance\dimen12 by.015\em%
+\relax\repeat\kern.05\em}\fi}%
+\def\wswpfEil{\ifnum\count53=0 %
+\setbox53\hbox{\dimen12=0\em\kern.07\em%
+\vrule width\dimen251 depth.1\em height0\em%
+\advance\dimen12 by.003\em\dimen13=.2\em\relax%
+\loop\ifdim\dimen12>-\dimen13 %
+\vrule width\dimen251 depth\dimen13 height\dimen12%
+\advance\dimen12 by.003\em\advance\dimen13 by-.011\em%
+\relax\repeat\kern.1\em}\count53=1\fi\sAve{\copy53}}%
+\def\wnwpfEil{\ifnum\count73=0 %
+\setbox73\hbox{\dimen12=0\em\kern.07\em%
+\vrule width\dimen251 depth0\em height.1\em%
+\advance\dimen12 by.003\em\dimen13=.2\em\relax%
+\loop\ifdim\dimen12>-\dimen13 %
+\vrule width\dimen251 depth\dimen12 height\dimen13%
+\advance\dimen12 by.003\em\advance\dimen13 by-.011\em%
+\relax\repeat\kern.1\em}\count73=1\fi\sAve{\copy73}}%
+\def\nnwpfEil{\ifnum\count13=0 %
+\sAve{\vrule height0\em width.377838\em}\else%
+\sAve{\dimen12-.5\em\dimen13=.53\em\relax%
+\loop\ifdim\dimen13<.554\em %
+\vrule width.004\em depth\dimen12 height\dimen13%
+\advance\dimen12 by.015\em\advance\dimen13 by.0005\em%
+\relax\repeat\loop\ifdim\dimen12<.546\em %
+\vrule width.004\em depth\dimen12 height\dimen13%
+\advance\dimen12 by.015\em\advance\dimen13 by-.05\em%
+\relax\repeat\kern.05\em}\fi}%
+%
+\def\nphantom{\adjUstn\postadjUstn}%
+\def\nsingle{\adjUstn\raise\dimen1\nstrIch\postadjUstn}%
+\def\ndouble{\adjUstn\kern.1\em\raise\dimen1\nstrIch%
+\kern-.2\em\raise\dimen1\nstrIch\kern.1\em\postadjUstn}%
+\def\ntriple{\adjUstn\kern-.2\em\raise\dimen1\nstrIch%
+\kern.2\em\raise\dimen1\nstrIch\kern.2\em%
+\raise\dimen1\nstrIch\kern-.2\em\postadjUstn}%
+\def\adjUstn{\advance\dimen1 by1.111111\dimen5\halfbAck}%
+\def\postadjUstn{\advance\dimen1 by1.352\em\count23=1}%
+\def\nstrIch{\ifnum\count13=0 %
+\hbox{\vrule width0\em height1.19\em depth-.1\em}\else%
+\hbox{\vrule width.04\em height1.19\em depth-.1\em}%
+\kern-.04\em\fi}%
+%
+\def\nneabove{\advance\dimen1 by2.05\dimen5\halfbAck%
+\nnepfEil\raise\dimen1\box0\kern.17\dimen6%
+\advance\dimen4 by.17\dimen6\advance\dimen0 by.17\dimen6%
+\advance\dimen1 by.803\em\count23=1}%
+\def\nneevoba{\advance\dimen1 by2.05\dimen5\halfbAck%
+\sswpfEil\raise\dimen1\box0\kern.34\dimen6%
+\advance\dimen4 by.34\dimen6\advance\dimen0 by.34\dimen6%
+\advance\dimen1 by.803\em\count23=1}%
+\def\nnebelow{\advance\dimen1 by2.05\dimen5\halfbAck%
+\sAve{\setbox1\hbox{.}\lower.555\em\copy1\kern-.23\em%
+\lower.310\em\copy1\kern-.23\em\lower.065\em\copy1%
+\kern-.23\em\raise.180\em\copy1\kern-.23\em%
+\raise.425\em\box1}\raise\dimen1\box0\kern-.05\dimen6%
+\advance\dimen4 by-.05\dimen6%
+\advance\dimen0 by-.05\dimen6\advance\dimen1 by.803\em%
+\count23=1}%
+\def\nnephantom{\halfbAck\sAve{/}\phAntbox\adjUstnne%
+\raise\dimen1\box0\postadjUstnne}%
+\def\nnesingle{\halfbAck\sAve{/}\adjUstnne%
+\raise\dimen1\box0\postadjUstnne}%
+\def\nnedouble{\halfbAck\sAve{/}\adjUstnne%
+\advance\dimen1 by.031\em\kern-.093\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern.186\em\raise\dimen1\box0\kern-.093\em%
+\advance\dimen1 by.031\em\postadjUstnne}%
+\def\nnetriple{\halfbAck\sAve{/}\adjUstnne%
+\advance\dimen1 by.062\em\kern-.186\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern.186\em\raise\dimen1\copy0%
+\advance\dimen1 by-.062\em\kern-\wd0\kern.186\em%
+\raise\dimen1\box0\kern-.186\em\advance\dimen1 by.062\em%
+\postadjUstnne}%
+\def\adjUstnne{\advance\dimen1 by1.111111\dimen5%
+\kern.37\dimen6\advance\dimen4 by.37\dimen6%
+\advance\dimen0 by.37\dimen6}%
+\def\postadjUstnne{\advance\dimen1 by\dimen5\kern.13\dimen6%
+\advance\dimen4 by.13\dimen6\advance\dimen0 by.13\dimen6%
+\relax\ifdim\dimen0>\dimen2 \dimen2\dimen0\fi\count23=1}%
+%
+\def\nebelow{\halfbAck\sAve{\dotslAsh}\adjUstnne%
+\raise\dimen1\box0\postadjUstnne}%
+\def\nephantom{\nestrIch\phAntbox\raise\dimen1\box0%
+\advance\dimen1 by1.055\em}%
+\def\nesingle{\nestrIch\raise\dimen1\box0%
+\advance\dimen1 by1.055\em}%
+\def\nedouble{\nestrIch\advance\dimen1 by.0707\em%
+\kern-.0707\em\raise\dimen1\copy0\kern-\wd0\kern.1414\em%
+\advance\dimen1 by-.1414\em\raise\dimen1\box0%
+\kern-.0707\em\advance\dimen1 by1.1257\em}%
+\def\netriple{\nestrIch\raise\dimen1\copy0\kern-\wd0%
+\kern-.1414\em\advance\dimen1 by.1414\em%
+\raise\dimen1\copy0\kern-\wd0\kern.2828\em%
+\advance\dimen1 by-.2828\em\raise\dimen1\box0%
+\kern-.1414\em\advance\dimen1 by1.1964\em}%
+%
+\def\eneabove{\advance\dimen1 by.49\em\enepfEil%
+\raise\dimen1\box0\advance\dimen1 by-.09\em}%
+\def\eneevoba{\advance\dimen1 by.585\em\wswpfEil%
+\raise\dimen1\box0\advance\dimen1 by-.185\em}%
+\def\enebelow{\advance\dimen1 by.51\em\sAve{\lurOdots}%
+\raise\dimen1\box0\advance\dimen1 by-.11\em}%
+%
+\def\ephantom{\sAve{\hstrIch}\phAntbox\raise\dimen1\box0}%
+\def\esingle{\sAve{\hstrIch}\raise\dimen1\box0}%
+\def\edouble{\sAve{\hstrIch}\advance\dimen1 by.1\em%
+\raise\dimen1\copy0\kern-\wd0\advance\dimen1 by-.2\em%
+\raise\dimen1\box0\advance\dimen1 by.1\em}%
+\def\etriple{\sAve{\hstrIch}\advance\dimen1 by.2\em%
+\raise\dimen1\copy0\kern-\wd0\advance\dimen1 by-.2\em%
+\raise\dimen1\copy0\advance\dimen1 by-.2\em\kern-\wd0%
+\raise\dimen1\box0\advance\dimen1 by.2\em}%
+%
+\def\eseabove{\advance\dimen1 by.19\em\esepfEil%
+\raise\dimen1\box0\advance\dimen1 by-.59\em}%
+\def\eseevoba{\advance\dimen1 by.09\em\wnwpfEil%
+\raise\dimen1\box0\advance\dimen1 by-.49\em}%
+\def\esebelow{\advance\dimen1 by.17\em\sAve{\lorUdots}%
+\raise\dimen1\box0\advance\dimen1 by-.57\em}%
+%
+\def\sebelow{\ssegenerAl{\dotbackslAsh}}%
+\def\sephantom{\nwstrIch\phAntbox\advance\dimen1 by-.628\em%
+\raise\dimen1\box0\advance\dimen1 by-.428\em}%
+\def\sesingle{\nwstrIch\advance\dimen1 by-.628\em%
+\raise\dimen1\box0\advance\dimen1 by-.428\em}%
+\def\sedouble{\nwstrIch\advance\dimen1 by-.6987\em%
+\kern-.0707\em\raise\dimen1\copy0\kern-\wd0\kern.1414\em%
+\advance\dimen1 by.1414\em\raise\dimen1\box0\kern-.0707\em%
+\advance\dimen1 by-.4987\em}%
+\def\setriple{\nwstrIch\advance\dimen1 by-.628\em%
+\raise\dimen1\copy0\kern-\wd0\kern-.1414\em%
+\advance\dimen1 by-.1414\em\raise\dimen1\copy0%
+\kern-\wd0\kern.2828\em\advance\dimen1 by.2828\em%
+\raise\dimen1\box0%
+\kern-.1414\em\advance\dimen1 by-.5694\em}%
+%
+\def\sseabove{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\ssepfEil\raise\dimen1\box0\kern-.06\dimen6%
+\advance\dimen4 by-.06\dimen6\advance\dimen0 by-.06\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+\def\sseevoba{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\nnwpfEil\raise\dimen1\box0\kern.06\dimen6%
+\advance\dimen4 by.06\dimen6\advance\dimen0 by.06\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+\def\ssebelow{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\sAve{\setbox1\hbox{.}\raise.455\em\copy1\kern-.23\em%
+\raise.210\em\copy1\kern-.23\em%
+\lower.035\em\copy1\kern-.23\em%
+\lower.280\em\copy1\kern-.23\em%
+\lower.525\em\box1}\kern-.08\dimen6%
+\raise\dimen1\box0\kern-.17\dimen6%
+\advance\dimen4 by-.25\dimen6\advance\dimen0 by-.25\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+\def\ssephantom{\halfbAck\sAve{$\backslash$}\phAntbox%
+\adjUstsse\raise\dimen1\box0\postadjUstsse}%
+\def\ssesingle{\ssegenerAl{$\backslash$}}%
+\def\ssedouble{\halfbAck\sAve{$\backslash$}\adjUstsse%
+\advance\dimen1 by.031\em\kern.093\em\raise\dimen1\copy0%
+\advance\dimen1 by-.062\em\kern-\wd0\kern-.186\em%
+\raise\dimen1\box0\kern.093\em\advance\dimen1 by.031\em%
+\postadjUstsse}%
+\def\ssetriple{\halfbAck\sAve{$\backslash$}\adjUstsse%
+\advance\dimen1 by.062\em\kern.186\em\raise\dimen1\copy0%
+\advance\dimen1 by-.062\em\kern-\wd0\kern-.186\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern-.186\em\raise\dimen1\box0\kern.186\em%
+\advance\dimen1 by.062\em\postadjUstsse}%
+\def\ssegenerAl#1{\halfbAck\sAve{#1}\adjUstsse%
+\raise\dimen1\box0\postadjUstsse}%
+\def\adjUstsse{\kern.23\dimen6\advance\dimen4 by.23\dimen6%
+\advance\dimen0 by.23\dimen6\advance\dimen1 by-\dimen5}%
+\def\postadjUstsse{\advance\dimen1 by-1.111111\dimen5%
+\kern.27\dimen6\advance\dimen4 by.27\dimen6%
+\advance\dimen0 by.27\dimen6\relax%
+\ifdim\dimen0>\dimen2 \dimen2\dimen0\fi\count23=1}%
+%
+\def\sphantom{\adjUsts\postadjUsts}%
+\def\ssingle{\adjUsts\raise\dimen1\sstrIch\postadjUsts}%
+\def\sdouble{\adjUsts\kern.1\em\raise\dimen1\sstrIch%
+\kern-.2\em\raise\dimen1\sstrIch\kern.1\em\postadjUsts}%
+\def\striple{\adjUsts\kern-.2\em\raise\dimen1\sstrIch%
+\kern.2\em\raise\dimen1\sstrIch\kern.2\em\raise\dimen1%
+\sstrIch\kern-.2\em\postadjUsts}%
+\def\adjUsts{\advance\dimen1 by-1.111111\dimen5\halfbAck}%
+\def\postadjUsts{\advance\dimen1 by-1.352\em\count23=1}%
+\def\sstrIch{\ifnum\count13=0 %
+\hbox{\vrule width0\em height.54\em depth.55\em}\else%
+\hbox{\vrule width.04\em height.54\em depth.55\em}%
+\kern-.04\em\fi}%
+%
+\def\sswabove{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\sswpfEil\kern-1.25\dimen6\raise\dimen1\box0%
+\kern-.81\dimen6\advance\dimen4 by-2.06\dimen6%
+\advance\dimen0 by-2.06\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+\def\sswevoba{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\nnepfEil\kern-1.1\dimen6\raise\dimen1\box0%
+\kern-.83\dimen6\advance\dimen4 by-1.93\dimen6%
+\advance\dimen0 by-1.93\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+\def\sswbelow{\advance\dimen1 by-1.222222\dimen5\halfbAck%
+\sAve{\setbox1\hbox{.}\lower.505\em\copy1\kern-.23\em%
+\lower.260\em\copy1\kern-.23\em%
+\lower.015\em\copy1\kern-.23\em%
+\raise.230\em\copy1\kern-.23\em%
+\raise.475\em\box1}\kern-.9\dimen6\raise\dimen1\box0%
+\kern-.85\dimen6\advance\dimen4 by-1.75\dimen6%
+\advance\dimen0 by-1.75\dimen6%
+\advance\dimen1 by-1.366666\em\count23=1}%
+%
+\def\swbelow{\sswgenerAl{\dotslAsh}}%
+\def\sswphantom{\halfbAck\sAve{/}\phAntbox\adjUstssw%
+\raise\dimen1\box0\postadjUstssw}%
+\def\sswsingle{\sswgenerAl{/}}%
+\def\sswdouble{\halfbAck\sAve{/}\adjUstssw%
+\advance\dimen1 by.031\em\kern-.093\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern.186\em\raise\dimen1\box0\kern-.093\em%
+\advance\dimen1 by.031\em\postadjUstssw}%
+\def\sswtriple{\halfbAck\sAve{/}\adjUstssw%
+\advance\dimen1 by.062\em\kern-.186\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern.186\em\raise\dimen1\copy0\advance\dimen1 by-.062\em%
+\kern-\wd0\kern.186\em\raise\dimen1\box0%
+\kern-.186\em\advance\dimen1 by.062\em\postadjUstssw}%
+\def\sswgenerAl#1{\halfbAck\sAve{#1}\adjUstssw%
+\raise\dimen1\box0\postadjUstssw}%
+\def\adjUstssw{\kern-1.1\dimen6\advance\dimen1 by-\dimen5%
+\advance\dimen4 by-1.1\dimen6\advance\dimen0 by-1.1\dimen6}%
+\def\postadjUstssw{\advance\dimen1 by-1.111111\dimen5%
+\kern-1.4\dimen6\advance\dimen0 by-1.4\dimen6%
+\advance\dimen4 by-1.4\dimen6\count23=1}%
+%
+\def\swphantom{\fullbAck\nestrIch\phAntbox%
+\advance\dimen1 by-1.054\em\fullbAck\raise\dimen1\box0%
+\fullbAck\count23=2}%
+\def\swsingle{\fullbAck\nestrIch\advance\dimen1 by-1.054\em%
+\fullbAck\raise\dimen1\box0\fullbAck\count23=2}%
+\def\swdouble{\fullbAck\nestrIch%
+\advance\dimen1 by-1.1247\em\fullbAck\kern.0707\em%
+\raise\dimen1\copy0\kern-\wd0\kern-.1414\em%
+\advance\dimen1 by.1414\em\raise\dimen1\box0\kern.0707\em%
+\fullbAck\advance\dimen1 by-.0707\em\count23=2}%
+\def\swtriple{\fullbAck\nestrIch\advance\dimen1 by-1.054\em%
+\fullbAck\raise\dimen1\copy0\kern-\wd0\kern-.1414\em%
+\advance\dimen1 by.1414\em\raise\dimen1\copy0\kern-\wd0%
+\kern.2828\em\advance\dimen1 by-.2828\em\raise\dimen1\box0%
+\kern-.1414\em\fullbAck\advance\dimen1 by.1414\em%
+\count23=2}%
+%
+\def\wswabove{\advance\dimen1 by.19\em\fullbAck\wswpfEil%
+\fullbAck\raise\dimen1\box0\advance\dimen1 by-.59\em%
+\fullbAck\count23=2}%
+\def\wswevoba{\advance\dimen1 by.09\em\fullbAck\enepfEil%
+\fullbAck\raise\dimen1\box0\advance\dimen1 by-.49\em%
+\fullbAck\count23=2}%
+\def\wswbelow{\advance\dimen1 by.12\em\fullbAck%
+\sAve{\lurOdots}\fullbAck\raise\dimen1\box0%
+\advance\dimen1 by-.52\em\fullbAck\count23=2}%
+%
+\def\wphantom{\adjUstw\advance\dimen0 by-\dimen6%
+\advance\dimen4 by-\dimen6\count23=2}%
+\def\wsingle{\adjUstw\raise\dimen1\box0\fullbAck\count23=2}%
+\def\wdouble{\adjUstw\advance\dimen1 by.1\em%
+\raise\dimen1\copy0\kern-\wd0\advance\dimen1 by-.2\em%
+\raise\dimen1\box0\advance\dimen1 by.1\em\fullbAck%
+\count23=2}%
+\def\wtriple{\adjUstw\advance\dimen1 by.2\em%
+\raise\dimen1\copy0\kern-\wd0%
+\advance\dimen1 by-.2\em\raise\dimen1\copy0\kern-\wd0%
+\advance\dimen1 by-.2\em\raise\dimen1\box0%
+\advance\dimen1 by.2\em\fullbAck\count23=2}%
+\def\adjUstw{\fullbAck\sAve{\hstrIch}\fullbAck%
+\ifdim\dimen0<\dimen3 \dimen3\dimen0\fi}%
+%
+\def\wnwabove{\advance\dimen1 by.49\em\fullbAck\wnwpfEil%
+\fullbAck\raise\dimen1\box0\advance\dimen1 by-.09\em%
+\fullbAck\count23=2}%
+\def\wnwevoba{\advance\dimen1 by.59\em\fullbAck\esepfEil%
+\fullbAck\raise\dimen1\box0\advance\dimen1 by-.19\em%
+\fullbAck\count23=2}%
+\def\wnwbelow{\advance\dimen1 by.56\em\fullbAck%
+\sAve{\lorUdots}\fullbAck\raise\dimen1\box0%
+\advance\dimen1 by-.16\em\fullbAck\count23=2}%
+%
+\def\nwbelow{\nnwgenerAl{\dotbackslAsh}}%
+\def\nwphantom{\fullbAck\nwstrIch\phAntbox\fullbAck%
+\advance\dimen1 by.42\em\raise\dimen1\box0\fullbAck%
+\advance\dimen1 by.635\em\count23=2}%
+\def\nwsingle{\fullbAck\nwstrIch\fullbAck%
+\advance\dimen1 by.42\em\raise\dimen1\box0\fullbAck%
+\advance\dimen1 by.635\em\count23=2}%
+\def\nwdouble{\fullbAck\nwstrIch\fullbAck\kern-.0707\em%
+\advance\dimen1 by.3493\em\raise\dimen1\copy0\kern-\wd0%
+\kern.1414\em\advance\dimen1 by.1414\em\raise\dimen1\box0%
+\kern-.0707\em\advance\dimen1 by.5643\em\fullbAck%
+\count23=2}%
+\def\nwtriple{\fullbAck\nwstrIch\fullbAck%
+\advance\dimen1 by.42\em\raise\dimen1\copy0\kern-\wd0%
+\kern-.1414\em\advance\dimen1 by-.1414\em%
+\raise\dimen1\copy0\kern-\wd0\kern.2828\em%
+\advance\dimen1 by.2828\em\raise\dimen1\box0%
+\kern-.1414\em\fullbAck\advance\dimen1 by.4936\em%
+\count23=2}%
+%
+\def\nnwabove{\advance\dimen1 by2.05\dimen5\halfbAck%
+\nnwpfEil\kern-1.14\dimen6\raise\dimen1\box0%
+\advance\dimen1 by.803\em\kern-1.20\dimen6%
+\advance\dimen4 by-2.34\dimen6%
+\advance\dimen0 by-2.34\dimen6\count23=1}%
+\def\nnwevoba{\advance\dimen1 by2.05\dimen5\halfbAck%
+\ssepfEil\kern-1.06\dimen6\raise\dimen1\box0%
+\advance\dimen1 by.803\em\kern-1.11\dimen6%
+\advance\dimen4 by-2.17\dimen6%
+\advance\dimen0 by-2.17\dimen6\count23=1}%
+\def\nnwbelow{\advance\dimen1 by2.05\dimen5\halfbAck%
+\sAve{\setbox1\hbox{.}\raise.435\em\copy1\kern-.23\em%
+\raise.190\em\copy1\kern-.23\em%
+\lower.075\em\copy1\kern-.23\em%
+\lower.3\em\copy1\kern-.23\em%
+\lower.545\em\box1}\kern-.9\dimen6\raise\dimen1\box0%
+\kern-1.05\dimen6\advance\dimen4 by-1.95\dimen6%
+\advance\dimen0 by-1.95\dimen6\advance\dimen1 by.803\em%
+\count23=1}%
+\def\nnwphantom{\halfbAck\sAve{$\backslash$}\phAntbox%
+\adjUstnnw\raise\dimen1\box0\postadjUstnnw}%
+\def\nnwsingle{\nnwgenerAl{$\backslash$}}%
+\def\nnwdouble{\halfbAck\sAve{$\backslash$}\adjUstnnw%
+\advance\dimen1 by.031\em\kern.093\em\raise\dimen1\copy0%
+\advance\dimen1 by-.062\em\kern-\wd0\kern-.186\em%
+\raise\dimen1\box0\kern.093\em\advance\dimen1 by.031\em%
+\postadjUstnnw}%
+\def\nnwtriple{\halfbAck\sAve{$\backslash$}\adjUstnnw%
+\advance\dimen1 by.062\em\kern.186\em\raise\dimen1\copy0%
+\advance\dimen1 by-.062\em\kern-\wd0\kern-.186\em%
+\raise\dimen1\copy0\advance\dimen1 by-.062\em\kern-\wd0%
+\kern-.186\em\raise\dimen1\box0\kern.186\em%
+\advance\dimen1 by.062\em\postadjUstnnw}%
+\def\nnwgenerAl#1{\halfbAck\sAve{#1}\adjUstnnw%
+\raise\dimen1\box0\postadjUstnnw}%
+\def\adjUstnnw{\advance\dimen1 by1.111111\dimen5%
+\kern-1.15\dimen6\advance\dimen4 by-1.15\dimen6%
+\advance\dimen0 by-1.15\dimen6}%
+\def\postadjUstnnw{\kern-1.35\dimen6%
+\advance\dimen4 by-1.35\dimen6%
+\advance\dimen0 by-1.35\dimen6%
+\advance\dimen1 by\dimen5\count23=1}%
+%
+\def\nmostaromatatom#1{\atom{#1}\dimen8\dimen1%
+\advance\dimen8 by-.4\em\aromAtincr}%
+\def\smostaromatatom#1{\atom{#1}\dimen10\dimen1%
+\advance\dimen10 by\dimen5\advance\dimen10 by.3\em%
+\advance\count20 by1\aromAtincr}%
+\def\wmostaromatatom#1{\atom{#1}\dimen7\dimen0%
+\advance\count20 by2\advance\dimen7 by.36\em\aromAtincr}%
+\def\emostaromatatom#1{\atom{#1}\dimen9\dimen0%
+\advance\dimen9 by-\dimen6\advance\count20 by3%
+\advance\dimen9 by-.24\em\aromAtincr}%
+\def\aromAtincr{\advance\count20 by1\count42=\count20%
+\relax\ifnum\count20=10 \aromAtsymbol\fi}%
+\def\wUrzel{\count42=\count52\divide\count42 by4\wUrz}%
+% Compute \count42=sqrt(\count52) by a recursion formula.
+\def\wUrz{\wurzEl\let\wurzE\wUrz\else\let\wurzE\relax\fi%
+\wurzE}%
+\def\wurzEl{\count62=\count52\divide\count62 by\count42%
+\advance\count62 by\count42\count72=\count62%
+\divide\count72 by2\advance\count72 by5%
+\relax\ifnum\count42>\count72 \count42=\count62%
+\divide\count42 by2}%
+\def\aromAtsymbol{\count20=0\ifnum\count13>0 %
+\advance\dimen8 by-\dimen10\dimen8=.5\dimen8%
+\advance\dimen7 by-\dimen9\dimen7-.5\dimen7%
+\setbox1\hbox{\vrule width.04\em height.04\em}%
+\dimen22=.4\wd1\count32=7100\count22\dimen22%
+\divide\count22 by60\dimen22=.0001\dimen7%
+\dimen23=.0001\dimen8\setbox0\hbox{\loop%
+\advance\count32 by-\count22\count62=\count32%
+\multiply\count62 by\count32\count52=100000000%
+\advance\count52 by-\count62\wUrzel\kern\count42\dimen22%
+\lower\count32\dimen23\copy1\kern-\wd1%
+\raise\count32\dimen23\copy1\kern-\wd1%
+\count72-\count42\kern\count72\dimen22\kern\count72\dimen22%
+\lower\count32\dimen23\copy1\kern-\wd1%
+\raise\count32\dimen23\copy1\kern-\wd1\kern\count42\dimen22%
+\kern\count32\dimen22\lower\count42\dimen23\copy1\kern-\wd1%
+\raise\count42\dimen23\copy1\kern-\wd1\count72-\count32%
+\kern\count72\dimen22\kern\count72\dimen22%
+\lower\count42\dimen23\copy1\kern-\wd1%
+\raise\count42\dimen23\copy1\kern-\wd1\kern\count32\dimen22%
+\ifnum\count32>\count22 \repeat\kern-10000\dimen22\copy1%
+\kern-\wd1\kern20000\dimen22\copy1\kern-\wd1}%
+\advance\dimen9 by-\dimen0\kern\dimen9\kern-10000\dimen22%
+\dimen13\dimen10\advance\dimen13 by\dimen8%
+\raise\dimen13\box0\kern-\dimen9\fi}%
+%
+\def\firstbicycloatom#1{\atom{#1}\ifnum\count13>0 %
+\ifnum\count20>0 \count20=0\messAge{\bicycloIgnored}\else%
+\dimen7\dimen0\advance\dimen7 by-.5\dimen6\count20=100%
+\dimen8\dimen1\advance\dimen8 by.4\dimen5\dimen9\dimen6%
+\fi\fi}%
+\def\secondbicycloatom#1{\atom{#1}\ifnum\count13>0 %
+\ifnum\count20=100 \dimen12\dimen0%
+\advance\dimen12 by-.5\dimen6\dimen13\dimen1%
+\advance\dimen13 by.4\dimen5\ifdim\dimen9<\dimen6 %
+\dimen9\dimen6\fi\relax\ifdim\dimen9<\dimen5 \dimen9\dimen5\fi%
+\setbox1\hbox{\vrule width.04\em height.04\em}%
+\kern-.5\dimen6\dimen22\dimen7\advance\dimen22 by-\dimen12%
+\divide\dimen22 by10000\dimen23\dimen8%
+\advance\dimen23 by-\dimen13\divide\dimen23 by10000%
+\count42\dimen22\multiply\count42 by\dimen22%
+\count52\dimen23\multiply\count52 by\dimen23%
+\advance\count52 by\count42\wUrzel\divide\dimen9 by100%
+\multiply\dimen9 by85\count32\dimen9%
+\divide\count32 by\count42\count52=10000%
+\advance\count52 by-\count32\count72\wd1\divide\count72 by2%
+\divide\count72 by\count42\loop\dimen32=0\em%
+\advance\dimen32 by\count32\dimen22\dimen33\dimen13%
+\advance\dimen33 by\count32\dimen23\kern\dimen32%
+\raise\dimen33\copy1\kern-\wd1\kern-\dimen32%
+\advance\count32 by\count72\relax\ifnum\count32<\count52 \repeat%
+\kern.5\dimen6\else\messAge{\bicycloIgnored}\fi\fi%
+\count20=0\relax}%
+%
+\def\nopositioncheck{\count13=1}%
+%
+\def\shorterewbonds{\def\hstrIch{\hbox to.784\em%
+{\hss\vrule width.6\em height.36\em depth-.32\em\hss}}%
+\dimen251=.025\em\relax%
+\count43=0\count53=0\count63=0\count73=0%
+\def\lurOdots{\setbox1\hbox{.}\kern.01\em%
+\lower.125\em\copy1\lower.025\em\copy1\raise.075\em\box1}%
+\def\lorUdots{\setbox1\hbox{.}\kern.01\em%
+\raise.025\em\copy1\lower.075\em\copy1%
+\lower.175\em\box1\kern.01\em}}%
+\def\longerewbonds{\def\hstrIch{\hbox to1.184\em%
+{\hss\vrule width1\em height.36\em depth-.32\em\hss}}%
+\dimen251=.0452\em\relax%
+\count43=0\count53=0\count63=0\count73=0%
+\def\lurOdots{\setbox1\hbox{.}\kern.01\em%
+\lower.125\em\copy1\lower.075\em\copy1%
+\lower.025\em\copy1\raise.025\em\copy1\raise.075\em\box1}%
+\def\lorUdots{\setbox1\hbox{.}\kern.01\em%
+\raise.025\em\copy1\lower.025\em\copy1%
+\lower.075\em\copy1\lower.125\em\copy1%
+\lower.175\em\box1\kern.01\em}}%
+%
+\def\nomOrestructures{\def\atom{}\def\phantatom{}%
+\def\adjustAtom{}\def\epin{}\def\wpin{}\def\spin{}%
+\def\npin{}\def\sAve{}\def\phAntbox{}\def\side{}%
+\def\fullbAck{}\def\halfbAck{}\def\nestrIch{}%
+\def\nwstrIch{}\def\dotbackslAsh{}\def\dotslAsh{}%
+\def\nnepfEil{}\def\enepfEil{}\def\esepfEil{}%
+\def\ssepfEil{}\def\sswpfEil{}\def\wswpfEil{}%
+\def\wnwpfEil{}\def\nnwpfEil{}\def\nphantom{}%
+\def\nsingle{}\def\ndouble{}\def\ntriple{}\def\adjUstn{}%
+\def\postadjUstn{}\def\nstrIch{}\def\nneabove{}%
+\def\nneevoba{}\def\nnebelow{}\def\nnephantom{}%
+\def\nnesingle{}\def\nnedouble{}\def\nnetriple{}%
+\def\adjUstnne{}\def\postadjUstnne{}\def\nebelow{}%
+\def\nephantom{}\def\nesingle{}\def\nedouble{}%
+\def\netriple{}\def\eneabove{}\def\eneevoba{}%
+\def\enebelow{}\def\ephantom{}\def\esingle{}%
+\def\edouble{}\def\etriple{}\def\eseabove{}%
+\def\eseevoba{}\def\esebelow{}\def\sebelow{}%
+\def\sephantom{}\def\sesingle{}\def\sedouble{}%
+\def\setriple{}\def\sseabove{}\def\sseevoba{}%
+\def\ssebelow{}\def\ssephantom{}\def\ssesingle{}%
+\def\ssedouble{}\def\ssetriple{}\def\ssegenerAl{}%
+\def\adjUstsse{}\def\postadjUstsse{}\def\sphantom{}%
+\def\ssingle{}\def\sdouble{}\def\striple{}\def\adjUsts{}%
+\def\postadjUsts{}\def\sstrIch{}\def\sswabove{}%
+\def\sswevoba{}\def\sswbelow{}\def\sswphantom{}%
+\def\sswsingle{}\def\sswdouble{}\def\sswtriple{}%
+\def\sswgenerAl{}\def\adjUstssw{}\def\postadjUstssw{}%
+\def\swbelow{}\def\swphantom{}\def\swsingle{}%
+\def\swdouble{}\def\swtriple{}\def\wswabove{}%
+\def\wswevoba{}\def\wswbelow{}\def\wphantom{}%
+\def\wsingle{}\def\wdouble{}\def\wtriple{}\def\adjUstw{}%
+\def\wnwabove{}\def\wnwevoba{}\def\wnwbelow{}\def\nwbelow{}%
+\def\nwphantom{}\def\nwsingle{}\def\nwdouble{}%
+\def\nwtriple{}\def\nnwabove{}\def\nnwevoba{}%
+\def\nnwbelow{}\def\nnwphantom{}\def\nnwsingle{}%
+\def\nnwdouble{}\def\nnwtriple{}\def\nnwgenerAl{}%
+\def\adjUstnnw{}\def\postadjUstnnw{}\def\nmostaromatatom{}%
+\def\smostaromatatom{}\def\wmostaromatatom{}%
+\def\emostaromatatom{}\def\aromAtincr{}\def\wUrzel{}%
+\def\wUrz{}\def\wurzEl{}\def\aromAtsymbol{}%
+\def\firstbicycloatom{}\def\secondbicycloatom{}%
+\def\nopositioncheck{}\def\shorterewbonds{}\def\lurOdots{}%
+\def\lorUdots{}\def\longerewbonds{}\def\lurOdots{}%
+\def\lorUdots{}\def\structure{}}%
+%
+\def\nomorestructures{\nomOrestructures%
+\def\nomOrestructures{}}%
+%
+\def\structure#1{\hbox{\rm\catcode`\ 9\catcode`\^^M9%
+\catcode`\^^I9\dimendef\em250\em1em%
+\dimen252\fontdimen2\tenrm\fontdimen2\tenrm0\em%
+\dimen253\fontdimen3\tenrm\fontdimen3\tenrm0\em%
+\dimen254\fontdimen4\tenrm\fontdimen4\tenrm0\em%
+\dimen255\fontdimen7\tenrm\fontdimen7\tenrm0\em%
+\shorterewbonds% initialize \dimen251 and definitions
+\count11=0%  side chain nesting
+\count20=0%  definition counter of aromatatoms and bicycloatoms
+\count13=0%  disable printing
+\count23=0%  fullback/halfback/noback flag
+\dimen0\baselineskip\advance\dimen0 by-.7\em%
+\advance\baselineskip by-.3\em%
+\count33\dimen0% amount of depth to be added
+\count43=0%  marker for eseabove- and wnwevoba-bonds
+\count53=0%  marker for wswabove- and eneevoba-bonds
+\count63=0%  marker for eneabove- and wswevoba-bonds
+\count73=0%  marker for wnwabove- and eseevoba-bonds
+\count83=0%  marker for in-plane ne- and swbonds
+\count93=0%  marker for in-plane nw- and sebonds
+\dimen0=0\em% actual horizontal position
+\dimen1=0\em% actual vertical position
+\dimen2=0\em% maximum horizontal position
+\dimen3=0\em% minimum horizontal position
+\dimen4=0\em% horizontal side chain correction
+\dimen5=0\em% last height + depth
+\dimen6=0\em% last width
+\dimen7=0\em% 
+\dimen8=0\em% 
+\dimen9=0\em% 
+\dimen10=0\em%
+#1\ifnum\count13=0 \kern-\dimen0\kern-\dimen3\dimen0=0\em%
+\dimen1=0\em\dimen2=0\em\count13=1 \shorterewbonds#1\fi%
+\ifnum\count20>0 \messAge{\aromatIgnored}\fi\kern-\dimen0%
+\kern\dimen2\advance\baselineskip by.3\em%
+\fontdimen2\tenrm\dimen252\fontdimen3\tenrm\dimen253%
+\fontdimen4\tenrm\dimen254\fontdimen7\tenrm\dimen255}}%
diff --git a/info/digests/tex88/ramek/tex88.fg1 b/info/digests/tex88/ramek/tex88.fg1
new file mode 100644
index 0000000000..28ffcbc23a
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg1
@@ -0,0 +1,58 @@
+\centerline{
+\structure{\phantatom{C}
+% The \phantatom just processed defines the central empty spot, 
+% from which all the bonds spray out; each one of the following 
+% \side{...} commands will generate one direction. The rules 
+% for \side are explained in chapter 27.3 .
+\side{\wsingle\phantatom{C}\wdouble\phantatom{C}\wtriple
+\atom{\tt W}}
+\side{\esingle\phantatom{C}\edouble\phantatom{C}\etriple
+\atom{\tt E}}
+\side{\ssingle\phantatom{C}\sdouble\phantatom{C}\striple
+\atom{\tt S}}
+\side{\nsingle\phantatom{C}\ndouble\phantatom{C}\ntriple
+\atom{\tt N}}
+\side{\swsingle\phantatom{C}\swdouble\phantatom{C}\swtriple
+\atom{\tt SW}}
+\side{\sesingle\phantatom{C}\sedouble\phantatom{C}\setriple
+\atom{\tt SE}}
+\side{\nesingle\phantatom{C}\nedouble\phantatom{C}\netriple
+\atom{\tt NE}}
+\side{\nwsingle\phantatom{C}\nwdouble\phantatom{C}\nwtriple
+\atom{\tt NW}}
+\side{\nnwsingle\phantatom{C}\nnwdouble\phantatom{C}\nnwtriple
+\atom{\tt NNW}}
+\side{\nnesingle\phantatom{C}\nnedouble\phantatom{C}\nnetriple
+\atom{\tt NNE}}
+\side{\ssesingle\phantatom{C}\ssedouble\phantatom{C}\ssetriple
+\atom{\tt SSE}}
+\side{\sswsingle\phantatom{C}\sswdouble\phantatom{C}\sswtriple
+\atom{\tt SSW}}
+}
+\hskip 1truecm
+\structure{\phantatom{C}
+\side{\wnwbelow\phantatom{C}\wnwabove\phantatom{C}\wnwevoba
+\atom{\tt WNW}}
+\side{\enebelow\phantatom{C}\eneabove\phantatom{C}\eneevoba
+\atom{\tt ENE}}
+\side{\wswbelow\phantatom{C}\wswabove\phantatom{C}\wswevoba
+\atom{\tt WSW}}
+\side{\esebelow\phantatom{C}\eseabove\phantatom{C}\eseevoba
+\atom{\tt ESE}}
+\side{\swbelow\atom{\tt SW}}
+\side{\sebelow\atom{\tt SE}}
+\side{\nebelow\atom{\tt NE}}
+\side{\nwbelow\atom{\tt NW}}
+\side{\nnwbelow\phantatom{C}\nnwabove\phantatom{C}\nnwevoba
+\atom{\tt NNW}}
+\side{\nnebelow\phantatom{C}\nneabove\phantatom{C}\nneevoba
+\atom{\tt NNE}}
+\side{\ssebelow\phantatom{C}\sseabove\phantatom{C}\sseevoba
+\atom{\tt SSE}}
+\side{\sswbelow\phantatom{C}\sswabove\phantatom{C}\sswevoba
+\atom{\tt SSW}}
+}
+}
+\medskip 
+\centerline{\bf Figure~1. \rm All available in-plane and 
+out-of-plane bonds.}
diff --git a/info/digests/tex88/ramek/tex88.fg10 b/info/digests/tex88/ramek/tex88.fg10
new file mode 100644
index 0000000000..45432d32e2
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg10
@@ -0,0 +1,19 @@
+\vbox{
+\centerline{
+\structure{\longerewbonds\phantatom{H}\swphantom\atom{N}
+\side{\sseabove\atom{H}}
+\side{\sebelow\atom{H}}\nnesingle\atom{C}
+\side{\nnwabove\atom{H}}\side{\nwbelow\atom{H}}
+\esingle\atom{C}\side{\ssedouble\atom{O}}
+\nnesingle\atom{O}\esingle\atom{H}}
+\hskip 1cm{$\rightleftharpoons$}\hskip 1cm
+\structure{\longerewbonds\phantatom{H}\swphantom\atom{N}
+\side{\sseabove\atom{H}}\side{\sebelow\atom{H}}
+\nnesingle\atom{C}\side{\nnwabove\atom{H}}
+\side{\nwbelow\atom{H}}\esingle\atom{C}\side{\nnedouble\atom{O}}
+\ssesingle\atom{O}\esingle\atom{H}}
+}
+\medskip 
+\centerline{\bf Figure~10. \rm 
+Two conformeres of neutral glycine in equilibrium.}
+}
diff --git a/info/digests/tex88/ramek/tex88.fg11 b/info/digests/tex88/ramek/tex88.fg11
new file mode 100644
index 0000000000..f39569548c
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg11
@@ -0,0 +1,22 @@
+\newbox\monomera\setbox\monomera=%
+\structure{\nopositioncheck\esingle\atom{C}
+\side{\nsingle\atom{C}\epin{H$_3$}}
+\atom{H}\esingle\atom{CH$_2$}}%
+\newbox\monomerb\setbox\monomerb=%
+\structure{\nopositioncheck\esingle\atom{C}
+\side{\ssingle\atom{C}\epin{H$_3$}}
+\atom{H}\esingle\atom{CH$_2$}}%
+\newbox\monomere\setbox\monomere=%
+\structure{\nopositioncheck\esingle\atom{C}
+\side{\nsingle\atom{C}\epin{H$_3$}}
+\atom{H}\esingle\atom{CH$_2$}\esingle\phantatom{}}%
+\vbox{
+\centerline{\copy\monomera\copy\monomera\copy\monomera%
+\copy\monomera\copy\monomera\copy\monomere}
+\medskip
+\centerline{\copy\monomerb\copy\monomera\copy\monomerb%
+\box\monomera\box\monomerb\box\monomere}
+\medskip 
+\centerline{\bf Figure~11. \rm Isotactic and syndiotactic 
+polypropylene.}
+}
diff --git a/info/digests/tex88/ramek/tex88.fg12 b/info/digests/tex88/ramek/tex88.fg12
new file mode 100644
index 0000000000..d2044b6771
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg12
@@ -0,0 +1,35 @@
+\centerline{\structure{
+\atom{C}\epin{H$_3$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}\wpin{H$_2$}
+\nnesingle\atom{C}\epin{H$_2$}\nnwsingle\atom{C}
+\side{\wdouble\atom{O}}
+\nnesingle\atom{O}\nesingle\atom{C}\epin{H$_2$}
+\nnesingle\firstbicycloatom{C}\side{\wsingle\atom{H}}
+\nnwsingle\atom{C}\wpin{H$_2$}\nnesingle\atom{O}
+\side{\nsingle\atom{P}\side{\esingle\atom{O$^\ominus$}}
+\side{\ndouble\atom{O}}
+\side{\wsingle\atom{O}\swsingle\atom{CH$_2$}\nwsingle
+\atom{~~H$_3$C---N$^\oplus$---CH$_2$}
+\side{\nsingle\atom{C}\epin{H$_3$}}
+\side{\ssingle\atom{C}\epin{H$_3$}}}}
+\ephantom\phantatom{OOO}\ephantom\ssephantom\phantatom{O}
+\sswphantom\secondbicycloatom{O}\sesingle\atom{C}
+\side{\nedouble\atom{O}}
+\ssesingle\atom{C}\epin{H$_2$}\sswsingle\atom{C}\wpin{H$_2$}
+\ssesingle\atom{C}\epin{H$_2$}\sswsingle\atom{C}\wpin{H$_2$}
+\ssesingle\atom{C}\epin{H$_2$}\sswsingle\atom{C}\wpin{H$_2$}
+\ssesingle\atom{C}\epin{H$_2$}\sswsingle\atom{C}
+\side{\wsingle\atom{H}}\ssedouble\atom{C}
+\side{\swsingle\atom{H}}
+\sesingle\atom{C}\epin{H$_2$}\ssesingle\atom{C}\wpin{H$_2$}
+\sesingle\atom{C}\epin{H$_2$}\ssesingle\atom{C}\wpin{H$_2$}
+\sesingle\atom{C}\epin{H$_2$}\ssesingle\atom{C}\wpin{H$_2$}
+\sesingle\atom{C}\epin{H$_2$}\ssesingle\atom{C}\epin{H$_3$}}}
+\medskip 
+\centerline{\bf Figure~12. \rm  
+1-Palmitoyl-2-oleoyl-3-{\it sn\/}-glycerophosphocholin.}
diff --git a/info/digests/tex88/ramek/tex88.fg13 b/info/digests/tex88/ramek/tex88.fg13
new file mode 100644
index 0000000000..c727d50174
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg13
@@ -0,0 +1,37 @@
+\def\Symbol{{\tt {\char'134}symbol}}
+\vbox{\line{\hfil
+\diagram{\xaxis3truecm,0.,1.0,0.5,;\noscale
+\yaxis4truecm,-1.0,9.0,1.,\Symbol;\nogrid}
+{\values{
+\symbol0\point0.5,0.0;
+\symbol1\point0.5,1.0;
+\symbol2\point0.5,2.0;
+\symbol3\point0.5,3.0;
+\symbol4\point0.5,4.0;
+\symbol5\point0.5,5.0;
+\symbol6\point0.5,6.0;
+\symbol7\point0.5,7.0;
+\symbol8\point0.5,8.0;
+\symbol9\point0.5,9.0;}}
+\hfil
+\diagram{\xaxis3truecm,0.,1.0,0.5,;\noscale
+\yaxis4truecm,-1.0,9.0,1.,;}
+{\values{
+\symbol0\point0.5,0.0;
+\symbol1\point0.5,1.0;
+\symbol2\point0.5,2.0;
+\symbol3\point0.5,3.0;
+\symbol4\point0.5,4.0;
+\symbol5\point0.5,5.0;
+\symbol6\point0.5,6.0;
+\symbol7\point0.5,7.0;
+\symbol8\point0.5,8.0;
+\symbol9\point0.5,9.0;}}
+\hfil}
+\vskip -\medskipamount
+\noindent{\bf Figure~13. 
+\rm Ten symbols are predefined:
+\printsymbol0 = \Symbol{\tt0}, 
+\printsymbol1 = \Symbol{\tt1}, 
+\dots, 
+\printsymbol9 = \Symbol{\tt9}.}}
diff --git a/info/digests/tex88/ramek/tex88.fg14 b/info/digests/tex88/ramek/tex88.fg14
new file mode 100644
index 0000000000..e08657e5ba
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg14
@@ -0,0 +1,26 @@
+\vbox{\line{\hfill
+\diagram{\xaxis6truecm,0.0,2.0,0.5,$x$;
+\yaxis3.5truecm,0.0,7.0,1.0,$y=e^x$;\nogrid}
+{\connect{
+%  Points were generated by the Fortran program
+%      DO 1 X = 0.0,1.9,0.15
+%  1   WRITE(7,2)X,EXP(X),X+0.05,EXP(X+0.05),X+0.1,EXP(X+0.1)
+%  2   FORMAT(3('\point',F4.2,',',F6.4,';'))
+%      END
+\point0.00,1.0000;\point0.05,1.0513;\point0.10,1.1052;
+\point0.15,1.1618;\point0.20,1.2214;\point0.25,1.2840;
+\point0.30,1.3499;\point0.35,1.4191;\point0.40,1.4918;
+\point0.45,1.5683;\point0.50,1.6487;\point0.55,1.7333;
+\point0.60,1.8221;\point0.65,1.9155;\point0.70,2.0138;
+\point0.75,2.1170;\point0.80,2.2255;\point0.85,2.3396;
+\point0.90,2.4596;\point0.95,2.5857;\point1.00,2.7183;
+\point1.05,2.8577;\point1.10,3.0042;\point1.15,3.1582;
+\point1.20,3.3201;\point1.25,3.4903;\point1.30,3.6693;
+\point1.35,3.8574;\point1.40,4.0552;\point1.45,4.2631;
+\point1.50,4.4817;\point1.55,4.7115;\point1.60,4.9530;
+\point1.65,5.2070;\point1.70,5.4739;\point1.75,5.7546;
+\point1.80,6.0496;\point1.85,6.3598;\point1.90,6.6859;
+}}
+\hfill}
+\medskip
+\centerline{\bf Figure~14. \rm The function $y=e^x$.}}
diff --git a/info/digests/tex88/ramek/tex88.fg15 b/info/digests/tex88/ramek/tex88.fg15
new file mode 100644
index 0000000000..46d2734d8f
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg15
@@ -0,0 +1,16 @@
+\vbox{\line{\hfill
+\diagram{\xaxis7truecm,75.0,100.0,5.0,$T$ [K];\nogrid
+\yaxis4truecm,1.05,1.25,0.05,%
+$1/\chi_{\rm m}\cdot10^{-6}$ [kg$\,$m$^{-3}$];}
+{\connect{\symbol4
+\point99.6,1.234;\point97.6,1.213;\point95.5,1.193;
+\point93.4,1.171;\point91.4,1.151;\point89.3,1.131;
+\point88.2,1.120;\point87.5,1.113;\point86.1,1.102;
+\point84.1,1.082;\point83.2,1.090;\point82.7,1.094;
+\point81.4,1.113;\point80.8,1.123;\point79.6,1.145;
+\point78.7,1.161;\point77.8,1.181;\point77.1,1.195;}}
+\hfill}
+\medskip \noindent{\bf Figure 15. \rm 
+Reciprocal magnetic susceptibility (measured at a 
+magnetic flux density of 0.75~T) of superconducting 
+Tm$_{0.75}$Sc$_{0.25}$Ba$_2\!$Cu$_3$O$_{7-x}$.}}
diff --git a/info/digests/tex88/ramek/tex88.fg16 b/info/digests/tex88/ramek/tex88.fg16
new file mode 100644
index 0000000000..3680e352e9
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg16
@@ -0,0 +1,16 @@
+\vbox{\line{\hfill
+\diagram{\xaxis9truecm,0.,100.0,20.0,$w_{\rm Ca(N_3)_2}$ [\%];
+\yaxis10truecm,-30.0,80.0,10.0,$T$ [$^\circ$\thinspace C];
+\nogrid}{\connect{\point0.0,-20.8;\point63.3,-20.8;}
+\connect{\point63.3,-30.0;\point63.3,0.5;}
+\connect{\point82.1,-30.0;\point82.1,25.0;}
+\connect{\point93.2,-30.0;\point93.2,41.5;}
+\connect{\point32.,0.5;\point82.1,0.5;}
+\connect{\point37.,25.0;\point93.2,25.0;}
+\connect{\point41.,41.5;\point100.0,41.5;}
+\connect{\point100.,-30.0;\point100.0,80.0;}
+\connect{\point0.0,0.0;\point28.3,-20.8;\point32.,0.5;
+\point37.,25.0;\point41.,41.5;\point43.,80.0;}}
+\hfill} \medskip
+\centerline{\bf Figure~16. \rm Phase diagram of 
+the H$_2\!$O -- Ca(N$_3$)$_2$ system (simplified).}}
diff --git a/info/digests/tex88/ramek/tex88.fg17 b/info/digests/tex88/ramek/tex88.fg17
new file mode 100644
index 0000000000..b65b4d91dd
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg17
@@ -0,0 +1,11 @@
+\vbox{\line{\hfill
+\diagram{\xaxis8truecm,140.,240.,20.,$T$ [$^\circ$C];
+\yaxis11.5truecm,225.,255.,5.,$E$ [mV];\nogrid}
+{\lsqline{\point239.1,251.06;\point229.5,248.5;
+\point220.4,246.11;\point211.1,243.71;\point201.6,241.37;
+\point192.1,239.14;\point182.6,236.9;\point173.1,234.65;
+\point163.5,232.43;\point154.1,230.29;\point144.1,228.14;}}
+\hfill} \medskip
+\noindent{\bf Figure 17. \rm Temperature dependence of the 
+electromotorical force $E$ of the galvanic cell 
+Pt/Ag/AgJ/Te($\!$Ag),Ag$_5\!$Te$_3$/Pt.}}
diff --git a/info/digests/tex88/ramek/tex88.fg18 b/info/digests/tex88/ramek/tex88.fg18
new file mode 100644
index 0000000000..5c9133a0da
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg18
@@ -0,0 +1,12 @@
+\vbox{\line{\hfill
+\diagram{\xaxis7truecm,0.,180.0,30.0,dihedral angle N--C--C=O;
+\yaxis7truecm,-282.165,-282.157,0.001,$E$ [Hartree];\nogrid}
+{\curve{\hpoint0.,-282.164306;\point20.,-282.163403;
+\point50.,-282.159406;\point70.,-282.157569;
+\hpoint76.085,-282.157477;\point90.,-282.157919;
+\point120.,-282.160011;\point140.,-282.160990;
+\hpoint180.,-282.161409;}}
+\hfill} \medskip
+\noindent{\bf Figure~18. \rm Energy profile for the neutral 
+glycine equilibrium shown in Figure~10, obtained from {\it ab
+initio\/} SCF calculations with the 4-21G basis set.}}
diff --git a/info/digests/tex88/ramek/tex88.fg19 b/info/digests/tex88/ramek/tex88.fg19
new file mode 100644
index 0000000000..685c624670
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg19
@@ -0,0 +1,20 @@
+\vbox{\line{\hfill
+\diagram{\xaxis7truecm,0.,1.0,0.2,$x_{\rm Al_2O_3}$;\nogrid
+\yaxis7truecm,-6.0,0.0,1.0,${\mit\Delta}_{mix}G$ %
+[kJmol$^{-1}$];}
+{\connect{\point1.0,-6.0;\point1.0,0.0;}
+\curve{\vpoint0.,0.;\point0.1,-3.687;
+\point0.2,-4.527;\point0.3,-4.676;\point0.4,-4.426;
+\point0.5,-3.929;\point0.6,-3.322;\point0.7,-2.723;
+\point0.8,-2.183;\point0.9,-1.597;\vpoint1.,0.;}
+\values{\ownsymbol{1473\enspace K}\point0.37,-4.;}
+\curve{\vpoint0.,0.;\point0.1,-3.993;
+\point0.2,-4.886;\point0.3,-5.046;\point0.4,-4.743;
+\point0.5,-4.248;\point0.6,-3.605;\point0.7,-2.963;
+\point0.8,-2.360;\point0.9,-1.698;\vpoint1.,0.;}
+\values{\ownsymbol{1513\enspace K}\point0.64,-4.;}}
+\hfill}
+\medskip
+\noindent{\bf Figure~19. \rm Integral Gibbs energy of solution 
+of the $\alpha$-Cr$_2$O$_3-\alpha$-Al$_2$O$_3$
+system at 1473 and 1513~K.}}
diff --git a/info/digests/tex88/ramek/tex88.fg2 b/info/digests/tex88/ramek/tex88.fg2
new file mode 100644
index 0000000000..a98feee2c9
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg2
@@ -0,0 +1,50 @@
+\centerline{
+\structure{\nopositioncheck\atom{C}\esingle\atom{C}\nnwsingle
+\atom{C}\sswsingle\atom{C}}
+\hskip 1truecm
+\structure{\nopositioncheck\atom{C}\nsingle\atom{C}\sesingle
+\atom{C}\swsingle\atom{C}}
+\hskip 1truecm
+\structure{\nopositioncheck\atom{C}\nsingle\atom{C}\esingle
+\atom{C}\ssingle\atom{C}\wsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nwsingle\atom{C}\nesingle\atom{C}\sesingle
+\atom{C}\swsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nnwsingle\atom{C}\nesingle\atom{C}\sesingle
+\atom{C}\sswsingle\atom{C}\wsingle\atom{C}}
+}
+\medskip
+\centerline{
+\structure{\atom{C}\nwsingle\atom{C}\nsingle\atom{C}\nesingle
+\atom{C}\sesingle\atom{C}\ssingle\atom{C}\swsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nnwsingle\atom{C}\nnesingle\atom{C}\esingle
+\atom{C}\ssesingle\atom{C}\sswsingle\atom{C}\wsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nnwsingle\atom{C}\nnesingle\atom{C}\esingle
+\atom{C}\sesingle\atom{C}\ssingle\atom{C}\swsingle\atom{C}
+\wsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nwsingle\atom{C}\nnwsingle\atom{C}\nesingle
+\atom{C}\esingle\atom{C}\sesingle\atom{C}\sswsingle\atom{C}
+\swsingle\atom{C}}
+}
+\medskip
+\centerline{
+\structure{\atom{C}\nwsingle\atom{C}\nsingle\atom{C}\nesingle
+\atom{C}\esingle\atom{C}\sesingle\atom{C}\ssingle\atom{C}
+\swsingle\atom{C}\wsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nwsingle\atom{C}\nnwsingle\atom{C}\nsingle
+\atom{C}\nesingle\atom{C}\esingle\atom{C}\sesingle\atom{C}
+\ssingle\atom{C}\sswsingle\atom{C}\swsingle\atom{C}}
+\hskip 1truecm
+\structure{\atom{C}\nwsingle\atom{C}\nnwsingle\atom{C}\nnesingle
+\atom{C}\nesingle\atom{C}\esingle\atom{C}\sesingle\atom{C}
+\ssesingle\atom{C}\sswsingle\atom{C}\swsingle\atom{C}\wsingle
+\atom{C}}
+}
+\medskip\centerline{\bf Figure~2. \rm 
+Three- to ten-membered carbon rings.}
+
diff --git a/info/digests/tex88/ramek/tex88.fg20 b/info/digests/tex88/ramek/tex88.fg20
new file mode 100644
index 0000000000..37d90c3ce3
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg20
@@ -0,0 +1,197 @@
+% Circle diagram generation:
+%
+% Call:  \Torte{arg1}{arg2} .
+%
+% arg1:  Approximate diameter (in any of TeX's units) .
+%
+% arg2:  Sector definition (in order) by \Sektor arg3,arg4; .
+%
+% arg3:  Sector size in percent .
+%
+% arg4:  Sector label .
+%
+% NOTE:  Sector sizes MUST add up to 100 percent .
+%
+\def\Coo#1,#2;{%
+\ifnum\count100=1 \point#1,#2;\fi%
+\ifnum\count100=2 \point#2,#1;\fi%
+\ifnum\count100=3 \point#2,-#1;\fi%
+\ifnum\count100=4 \point#1,-#2;\fi%
+\ifnum\count100=5 \point-#1,-#2;\fi%
+\ifnum\count100=6 \point-#2,-#1;\fi%
+\ifnum\count100=7 \point-#2,#1;\fi%
+\ifnum\count100=8 \point-#1,#2;\fi}%
+%
+\def\Kreis{%  Coordinates were generated by the program
+%      character*7 h
+%      real s(26),c(26)
+%      character*4 coo
+%      data coo/'\Coo'/
+%      pi=4.*atan(1.)
+%      do1i=1,26
+%      x=float(i-1)/100.*pi
+%      s(i)=100.*sin(x)
+%  1   c(i)=100.*cos(x)
+%      write(7,2)(coo,s(i),c(i),i=1,26)
+%  2   format(3(a4,f7.3,',',f7.3,';'),'%')
+%      end
+\Coo  0.000,100.000;\Coo  3.141, 99.951;\Coo  6.279, 99.803;%
+\Coo  9.411, 99.556;\Coo 12.533, 99.211;\Coo 15.643, 98.769;%
+\Coo 18.738, 98.229;\Coo 21.814, 97.592;\Coo 24.869, 96.858;%
+\Coo 27.899, 96.029;\Coo 30.902, 95.106;\Coo 33.874, 94.088;%
+\Coo 36.812, 92.978;\Coo 39.715, 91.775;\Coo 42.578, 90.483;%
+\Coo 45.399, 89.101;\Coo 48.175, 87.631;\Coo 50.904, 86.074;%
+\Coo 53.583, 84.433;\Coo 56.208, 82.708;\Coo 58.779, 80.902;%
+\Coo 61.291, 79.016;\Coo 63.742, 77.051;\Coo 66.131, 75.011;%
+\Coo 68.455, 72.897;\Coo 70.711, 70.711;
+}
+\def\Adjust{\count100=1 
+\ifdim\dimen101>12.5pt \advance\count100 by1\fi%
+\ifdim\dimen101>25pt \advance\count100 by1\fi%
+\ifdim\dimen101>37.5pt \advance\count100 by1\fi%
+\ifdim\dimen101>50pt \advance\count100 by1\fi%
+\ifdim\dimen101>62.5pt \advance\count100 by1\fi%
+\ifdim\dimen101>75pt \advance\count100 by1\fi%
+\ifdim\dimen101>87.5pt \advance\count100 by1%
+\advance\dimen101 by-25pt\fi\relax%
+\ifnum\count100>1 \advance\dimen101 by-25pt\fi\relax%
+\ifnum\count100>3 \advance\dimen101 by-25pt\fi\relax%
+\ifnum\count100>5 \advance\dimen101 by-25pt\fi\relax%
+\ifdim\dimen101<0pt \multiply\dimen101 by-1\fi\relax}%
+%
+\def\Vorbei{\dimen101=-1pt}%
+\def\Sektor#1,#2;{\dimen101=\dimen100%
+\advance\dimen100 by #1pt \ifdim\dimen100>100pt %
+\message{Sector beyond 100 percent ignored}\else%
+\advance\dimen101 by\dimen100\divide\dimen101 by2\Adjust%
+\values{\ifnum\count100<5 \ownsymbol{\hbox to1em{#2\hss}}%
+\else\ownsymbol{\hbox to1em{\hss#2}}\fi\relax%
+%  The following code was generated by the program
+%      dimension x1(41),x2(41),x3(41)
+%      pi=4.*atan(1.)
+%      i=0
+%      do1x=12.3,0.1,-.3
+%      i=i+1
+%      xx=x/50.*pi
+%      x1(i)=x
+%      x2(i)=120.*sin(xx)
+%      x3(i)=120.*cos(xx)
+%  1   write(7,2)x,x2(i),x3(i)
+%  2   format('\ifdim\dimen101>',f4.1,'pt \Coo',f7.3,',',f7.3,
+%     $';\Vorbei\fi\relax%')
+%      write(7,3)
+%  3   format('\ifdim\dimen101<0pt \else\Coo0.,120.;\fi}%'/
+%     $'\dimen101=\dimen100\Adjust\connect{\point0.,0.;%')
+%      write(7,2)(x1(i),x2(i)/1.2,x3(i)/1.2,i=1,41)
+%      end
+%
+\ifdim\dimen101>12.3pt \Coo 83.780, 85.912;\Vorbei\fi\relax%
+\ifdim\dimen101>12.0pt \Coo 82.146, 87.476;\Vorbei\fi\relax%
+\ifdim\dimen101>11.7pt \Coo 80.482, 89.009;\Vorbei\fi\relax%
+\ifdim\dimen101>11.4pt \Coo 78.790, 90.510;\Vorbei\fi\relax%
+\ifdim\dimen101>11.1pt \Coo 77.070, 91.979;\Vorbei\fi\relax%
+\ifdim\dimen101>10.8pt \Coo 75.323, 93.415;\Vorbei\fi\relax%
+\ifdim\dimen101>10.5pt \Coo 73.549, 94.819;\Vorbei\fi\relax%
+\ifdim\dimen101>10.2pt \Coo 71.749, 96.188;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.9pt \Coo 69.923, 97.523;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.6pt \Coo 68.072, 98.824;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.3pt \Coo 66.197,100.089;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.0pt \Coo 64.299,101.319;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.7pt \Coo 62.378,102.513;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.4pt \Coo 60.435,103.671;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.1pt \Coo 58.470,104.792;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.8pt \Coo 56.484,105.875;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.5pt \Coo 54.479,106.921;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.2pt \Coo 52.454,107.929;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.9pt \Coo 50.410,108.898;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.6pt \Coo 48.349,109.829;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.3pt \Coo 46.270,110.721;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.0pt \Coo 44.175,111.573;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.7pt \Coo 42.064,112.386;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.4pt \Coo 39.938,113.159;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.1pt \Coo 37.798,113.892;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.8pt \Coo 35.645,114.584;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.5pt \Coo 33.479,115.235;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.2pt \Coo 31.301,115.846;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.9pt \Coo 29.112,116.415;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.6pt \Coo 26.912,116.943;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.3pt \Coo 24.703,117.430;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.0pt \Coo 22.486,117.874;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.7pt \Coo 20.260,118.277;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.4pt \Coo 18.027,118.638;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.1pt \Coo 15.788,118.957;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.8pt \Coo 13.543,119.233;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.5pt \Coo 11.293,119.467;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.2pt \Coo  9.039,119.659;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.9pt \Coo  6.782,119.808;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.6pt \Coo  4.523,119.915;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.3pt \Coo  2.262,119.979;\Vorbei\fi\relax%
+\ifdim\dimen101<0pt \else\Coo0.,120.;\fi}%
+\dimen101=\dimen100\Adjust\connect{\point0.,0.;%
+\ifdim\dimen101>12.3pt \Coo 69.817, 71.594;\Vorbei\fi\relax%
+\ifdim\dimen101>12.0pt \Coo 68.455, 72.897;\Vorbei\fi\relax%
+\ifdim\dimen101>11.7pt \Coo 67.069, 74.174;\Vorbei\fi\relax%
+\ifdim\dimen101>11.4pt \Coo 65.659, 75.425;\Vorbei\fi\relax%
+\ifdim\dimen101>11.1pt \Coo 64.225, 76.649;\Vorbei\fi\relax%
+\ifdim\dimen101>10.8pt \Coo 62.769, 77.846;\Vorbei\fi\relax%
+\ifdim\dimen101>10.5pt \Coo 61.291, 79.016;\Vorbei\fi\relax%
+\ifdim\dimen101>10.2pt \Coo 59.790, 80.157;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.9pt \Coo 58.269, 81.269;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.6pt \Coo 56.727, 82.353;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.3pt \Coo 55.165, 83.408;\Vorbei\fi\relax%
+\ifdim\dimen101> 9.0pt \Coo 53.583, 84.433;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.7pt \Coo 51.982, 85.428;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.4pt \Coo 50.362, 86.392;\Vorbei\fi\relax%
+\ifdim\dimen101> 8.1pt \Coo 48.725, 87.326;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.8pt \Coo 47.070, 88.229;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.5pt \Coo 45.399, 89.101;\Vorbei\fi\relax%
+\ifdim\dimen101> 7.2pt \Coo 43.712, 89.941;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.9pt \Coo 42.009, 90.748;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.6pt \Coo 40.291, 91.524;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.3pt \Coo 38.558, 92.267;\Vorbei\fi\relax%
+\ifdim\dimen101> 6.0pt \Coo 36.812, 92.978;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.7pt \Coo 35.053, 93.655;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.4pt \Coo 33.282, 94.299;\Vorbei\fi\relax%
+\ifdim\dimen101> 5.1pt \Coo 31.499, 94.910;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.8pt \Coo 29.704, 95.486;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.5pt \Coo 27.899, 96.029;\Vorbei\fi\relax%
+\ifdim\dimen101> 4.2pt \Coo 26.084, 96.538;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.9pt \Coo 24.260, 97.013;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.6pt \Coo 22.427, 97.453;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.3pt \Coo 20.586, 97.858;\Vorbei\fi\relax%
+\ifdim\dimen101> 3.0pt \Coo 18.738, 98.229;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.7pt \Coo 16.883, 98.564;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.4pt \Coo 15.023, 98.865;\Vorbei\fi\relax%
+\ifdim\dimen101> 2.1pt \Coo 13.156, 99.131;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.8pt \Coo 11.286, 99.361;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.5pt \Coo  9.411, 99.556;\Vorbei\fi\relax%
+\ifdim\dimen101> 1.2pt \Coo  7.533, 99.716;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.9pt \Coo  5.652, 99.840;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.6pt \Coo  3.769, 99.929;\Vorbei\fi\relax%
+\ifdim\dimen101> 0.3pt \Coo  1.885, 99.982;\Vorbei\fi\relax%
+%
+\ifdim\dimen101<0pt \else\Coo0.,100.;\fi}\fi}%
+%
+\def\Torte#1#2{\diagram{\xaxis#1,-95.,155.,250.,;\noaxis%
+\yaxis#1,-125.,125.,250.,;\noaxis\nogrid}{\dimen100=0pt\relax#2%
+\advance\dimen100 by-100pt\relax\ifdim\dimen100<0pt %
+\multiply\dimen100 by-1\fi\relax\ifdim\dimen100<0.01pt %
+\count100=1\connect{\Kreis}\count100=2\connect{\Kreis}%
+\count100=3\connect{\Kreis}\count100=4\connect{\Kreis}%
+\count100=5\connect{\Kreis}\count100=6\connect{\Kreis}%
+\count100=7\connect{\Kreis}\count100=8\connect{\Kreis}\fi}}
+%
+\vbox{\centerline{\Torte{6truecm}{
+\Sektor1.1,Geometry\enspace\&\enspace Basis;
+\Sektor23.0,Integrals;\Sektor0.5,Guess;\Sektor12.7,SCF;
+\Sektor62.7,Gradient;}}
+\noindent{\bf Figure~20. \rm Distribution of CPU time for 
+the first optimization cycle in an {\it ab initio\/} SCF 
+geometry optimization of $\beta$-Alanine with the 4-31G basis 
+set, using the program GAMESS on a CONVEX~C1-XP. 
+(Starting on top and proceeding clockwise: geometry and basis 
+set definition: 38.9\thinspace s~(=~1.1\%), 
+integral calculation: 778.1\thinspace s~(=~23.0\%),
+guess of initial density matrix: 16.5\thinspace s~(=~0.5\%),
+SCF iteration: 428.7\thinspace s~(=~12.7\%), gradient 
+calculation: 2123.0\thinspace s~(=~62.7\%)\thinspace.)}}
diff --git a/info/digests/tex88/ramek/tex88.fg3 b/info/digests/tex88/ramek/tex88.fg3
new file mode 100644
index 0000000000..0a4e269712
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg3
@@ -0,0 +1,25 @@
+\centerline{
+\structure{\nopositioncheck\wmostaromatatom{C}\nsingle\atom{C}
+\nesingle\nmostaromatatom{C}\sesingle\emostaromatatom{C}\ssingle
+\atom{C}\swsingle\smostaromatatom{C}\nwsingle\phantatom{C}}
+\hskip 1truecm
+\structure{\nopositioncheck\atom{C}\ndouble\atom{C}\nesingle
+\firstbicycloatom{C}\sesingle\atom{C}\sdouble\atom{C}\swsingle
+\secondbicycloatom{C}\nwsingle\phantatom{C}}
+\hskip 1truecm
+\structure{\nopositioncheck\firstbicycloatom{C}\nsingle
+\phantatom{C}\nesingle\secondbicycloatom{C}\swphantom
+\firstbicycloatom{C}\nephantom\phantatom{C}\sesingle\atom{C}
+\sdouble\atom{C}\swsingle\secondbicycloatom{C}\nwsingle
+\phantatom{C}}
+\hskip 1truecm
+\structure{\nopositioncheck\firstbicycloatom{C}\sesingle
+\phantatom{C}\nephantom\secondbicycloatom{C}\swsingle
+\firstbicycloatom{C}\nephantom\phantatom{C}\nsingle\phantatom{C}
+\nwsingle\secondbicycloatom{C}\sephantom\firstbicycloatom{C}
+\nwphantom\phantatom{C}\swsingle\secondbicycloatom{C}\ssingle
+\phantatom{C}}
+}
+\medskip\centerline{\bf Figure~3. \rm 
+Four different benzene structures.}
+
diff --git a/info/digests/tex88/ramek/tex88.fg4 b/info/digests/tex88/ramek/tex88.fg4
new file mode 100644
index 0000000000..dce0ced7a2
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg4
@@ -0,0 +1,21 @@
+\hbox{\vbox{
+\hbox to 0.5\hsize{\hss
+\structure{\emostaromatatom{C}\swsingle\smostaromatatom{C}
+\wsingle\atom{C}\nnwsingle\wmostaromatatom{C}\nnesingle
+\nmostaromatatom{C}\esingle\atom{C}\sesingle\wmostaromatatom{C}
+\nesingle\nmostaromatatom{C}\ssesingle\emostaromatatom{C}
+\sswsingle\smostaromatatom{C}\nwsingle\phantatom{C}\nsingle
+\phantatom{C}}
+\hss}
+\medskip\hbox to 0.5\hsize{\bf Figure~4. \rm 
+The azulene ring system.\hss}
+}\vbox{
+\hbox to 0.5\hsize{\hss
+\structure{\longerewbonds\firstbicycloatom{C}\nnwsingle\atom{C}
+\eneabove\atom{C}\eseevoba\atom{C}\sswsingle
+\secondbicycloatom{C}}
+\hss}
+\medskip 
+\vbox{\hsize=0.5\hsize\noindent\bf Figure~5. \rm
+Envelope form of the cyclo\-pentane ring.}
+}}
diff --git a/info/digests/tex88/ramek/tex88.fg45 b/info/digests/tex88/ramek/tex88.fg45
new file mode 100644
index 0000000000..dce0ced7a2
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg45
@@ -0,0 +1,21 @@
+\hbox{\vbox{
+\hbox to 0.5\hsize{\hss
+\structure{\emostaromatatom{C}\swsingle\smostaromatatom{C}
+\wsingle\atom{C}\nnwsingle\wmostaromatatom{C}\nnesingle
+\nmostaromatatom{C}\esingle\atom{C}\sesingle\wmostaromatatom{C}
+\nesingle\nmostaromatatom{C}\ssesingle\emostaromatatom{C}
+\sswsingle\smostaromatatom{C}\nwsingle\phantatom{C}\nsingle
+\phantatom{C}}
+\hss}
+\medskip\hbox to 0.5\hsize{\bf Figure~4. \rm 
+The azulene ring system.\hss}
+}\vbox{
+\hbox to 0.5\hsize{\hss
+\structure{\longerewbonds\firstbicycloatom{C}\nnwsingle\atom{C}
+\eneabove\atom{C}\eseevoba\atom{C}\sswsingle
+\secondbicycloatom{C}}
+\hss}
+\medskip 
+\vbox{\hsize=0.5\hsize\noindent\bf Figure~5. \rm
+Envelope form of the cyclo\-pentane ring.}
+}}
diff --git a/info/digests/tex88/ramek/tex88.fg6 b/info/digests/tex88/ramek/tex88.fg6
new file mode 100644
index 0000000000..ce05167696
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg6
@@ -0,0 +1,36 @@
+\vbox{% First: Save Fig. 6 and Fig. 7 in separate boxes.
+\newbox\figsix\setbox\figsix=\structure{
+\nopositioncheck\atom{H}\esingle\wmostaromatatom{C}
+\nnesingle\nmostaromatatom{C}
+\side{\nnwsingle\atom{C}\side{\nneabove\atom{H}}
+\side{\nebelow\atom{H}}\wsingle\atom{H}}
+\esingle\atom{C}\side{\nnesingle\atom{H}}\ssesingle
+\emostaromatatom{C}\side{\esingle\atom{S}\esingle
+\wmostaromatatom{C}\nnesingle\atom{C}
+\side{\nnwsingle\atom{H}}\esingle\nmostaromatatom{C}
+\side{\nnesingle\atom{H}}\ssesingle\emostaromatatom{C}
+\side{\esingle\atom{C}\side{\sseabove\atom{H}}
+\side{\sebelow\atom{H}}\nnesingle\atom{H}}\sswsingle
+\smostaromatatom{C}\side{\ssesingle\atom{H}}\wsingle
+\atom{C}\side{\sswsingle\atom{H}}\nnwsingle\phantatom{C}}
+\sswsingle\atom{C}\side{\ssesingle\atom{H}}\wsingle
+\smostaromatatom{C}\side{\sswsingle\atom{H}}\nnwsingle
+\phantatom{C}}
+\newbox\figseven\setbox\figseven=\structure{\atom{H}
+\nnebelow\atom{B}\side{\nesingle\atom{H}}
+\side{\nwsingle\atom{H}}\sseabove\atom{H}\sswevoba\atom{B}
+\side{\swsingle\atom{H}}\side{\sesingle\atom{H}}
+\nnwbelow\phantatom{B}}
+% Second: Use the width of the saved structures for the
+% figure captions, comment each end-of-line to avoid
+% additional spacing.
+\newbox\caption\setbox\caption=\hbox to\hsize{\hss%
+\hbox to\wd\figsix{\hss\bf Figure~6. \rm %
+3,4'-Ditolylsulfide.\hss}\hss\hss%
+\hbox to\wd\figseven{\hss\bf Figure~7. \rm Diborane.\hss}%
+\hss}
+% Third: Print structures and captions.
+\line{\hss\box\figsix\hss\hss\box\figseven\hss}
+\medskip 
+\box\caption
+}
diff --git a/info/digests/tex88/ramek/tex88.fg67 b/info/digests/tex88/ramek/tex88.fg67
new file mode 100644
index 0000000000..ce05167696
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg67
@@ -0,0 +1,36 @@
+\vbox{% First: Save Fig. 6 and Fig. 7 in separate boxes.
+\newbox\figsix\setbox\figsix=\structure{
+\nopositioncheck\atom{H}\esingle\wmostaromatatom{C}
+\nnesingle\nmostaromatatom{C}
+\side{\nnwsingle\atom{C}\side{\nneabove\atom{H}}
+\side{\nebelow\atom{H}}\wsingle\atom{H}}
+\esingle\atom{C}\side{\nnesingle\atom{H}}\ssesingle
+\emostaromatatom{C}\side{\esingle\atom{S}\esingle
+\wmostaromatatom{C}\nnesingle\atom{C}
+\side{\nnwsingle\atom{H}}\esingle\nmostaromatatom{C}
+\side{\nnesingle\atom{H}}\ssesingle\emostaromatatom{C}
+\side{\esingle\atom{C}\side{\sseabove\atom{H}}
+\side{\sebelow\atom{H}}\nnesingle\atom{H}}\sswsingle
+\smostaromatatom{C}\side{\ssesingle\atom{H}}\wsingle
+\atom{C}\side{\sswsingle\atom{H}}\nnwsingle\phantatom{C}}
+\sswsingle\atom{C}\side{\ssesingle\atom{H}}\wsingle
+\smostaromatatom{C}\side{\sswsingle\atom{H}}\nnwsingle
+\phantatom{C}}
+\newbox\figseven\setbox\figseven=\structure{\atom{H}
+\nnebelow\atom{B}\side{\nesingle\atom{H}}
+\side{\nwsingle\atom{H}}\sseabove\atom{H}\sswevoba\atom{B}
+\side{\swsingle\atom{H}}\side{\sesingle\atom{H}}
+\nnwbelow\phantatom{B}}
+% Second: Use the width of the saved structures for the
+% figure captions, comment each end-of-line to avoid
+% additional spacing.
+\newbox\caption\setbox\caption=\hbox to\hsize{\hss%
+\hbox to\wd\figsix{\hss\bf Figure~6. \rm %
+3,4'-Ditolylsulfide.\hss}\hss\hss%
+\hbox to\wd\figseven{\hss\bf Figure~7. \rm Diborane.\hss}%
+\hss}
+% Third: Print structures and captions.
+\line{\hss\box\figsix\hss\hss\box\figseven\hss}
+\medskip 
+\box\caption
+}
diff --git a/info/digests/tex88/ramek/tex88.fg8 b/info/digests/tex88/ramek/tex88.fg8
new file mode 100644
index 0000000000..560b43b36b
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg8
@@ -0,0 +1,17 @@
+\vbox{
+\centerline{\structure{\nopositioncheck
+\atom{O}\etriple\atom{C}\esingle\firstbicycloatom{Fe}
+\side{\nwsingle\atom{C}\nwtriple\atom{O}}
+\side{\swsingle\atom{C}\swtriple\atom{O}}
+\sesingle\atom{C}\side{\sdouble\atom{O}}\nesingle\phantatom{Fe}
+\side{\esingle\atom{C}\etriple\atom{O}}
+\side{\sesingle\atom{C}\setriple\atom{O}}
+\side{\nesingle\atom{C}\netriple\atom{O}}
+\nnwsingle\secondbicycloatom{C}\side{\nnedouble\atom{O}}
+\ssephantom\firstbicycloatom{Fe}\swphantom\phantatom{C}
+\nwphantom\phantatom{Fe}\nnesingle\secondbicycloatom{C}
+\side{\nnwdouble\atom{O}}\sswphantom\firstbicycloatom{Fe}
+\sephantom\phantatom{C}\nephantom\secondbicycloatom{Fe}}}
+\medskip \centerline{\bf Figure~8. \rm 
+Tri-$\mu$-carbonyl-bis(tricarbonyliron).}
+}
diff --git a/info/digests/tex88/ramek/tex88.fg9 b/info/digests/tex88/ramek/tex88.fg9
new file mode 100644
index 0000000000..ab822765c9
--- /dev/null
+++ b/info/digests/tex88/ramek/tex88.fg9
@@ -0,0 +1,24 @@
+\vbox{
+\centerline{
+\structure{\atom{\enspace\thinspace Li$^+$}
+\side{\nwbelow\atom{O}
+\side{\nsingle\atom{H}\nnwbelow\atom{O}\side{\wsingle\atom{H}}
+\nsingle\atom{H}}\swsingle\atom{H}\wnwbelow\atom{O}
+\side{\wsingle\atom{H}}\nsingle\atom{H}}
+\side{\nebelow\atom{O}
+\side{\nsingle\atom{H}\nnebelow\atom{O}\side{\esingle\atom{H}}
+\nsingle\atom{H}}\sesingle\atom{H}\enebelow\atom{O}
+\side{\esingle\atom{H}}\nsingle\atom{H}}
+\side{\swbelow\atom{O}
+\side{\ssingle\atom{H}\sswbelow\atom{O}\side{\wsingle\atom{H}}
+\ssingle\atom{H}}\nwsingle\atom{H}\wswbelow\atom{O}
+\side{\wsingle\atom{H}}\ssingle\atom{H}}
+\side{\sebelow\atom{O}
+\side{\ssingle\atom{H}\ssebelow\atom{O}\side{\esingle\atom{H}}
+\ssingle\atom{H}}\nesingle\atom{H}\esebelow\atom{O}
+\side{\esingle\atom{H}}\ssingle\atom{H}}}
+}
+\medskip 
+\centerline{\bf Figure~9. \rm  A lithium cation surrounded by 
+two hydration spheres.}
+}
author	Norbert Preining <norbert@preining.info>	2019-09-02 13:46:59 +0900
committer	Norbert Preining <norbert@preining.info>	2019-09-02 13:46:59 +0900
commit	e0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree	60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/digests/tex88/ramek