summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-08-13 21:01:02 +0000
committerKarl Berry <karl@freefriends.org>2017-08-13 21:01:02 +0000
commit7a6b2d5ba887cdbdefc6e51ed4229bb69a2a6df8 (patch)
tree4a6d7e2dc720802d18a6f53557a41b63eff39d00 /Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
parent4b4995cda35627e06c43e25ecbe07c1bc1859bb5 (diff)
mcf2graph (13aug17)
git-svn-id: svn://tug.org/texlive/trunk@45032 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r--Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex341
1 files changed, 233 insertions, 108 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
index 108a88466ae..621c6342c08 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
@@ -1,83 +1,29 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2017.07.23
+% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2017.08.13
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% mcf2graph.mf it must be version 4.25 or later
+%%% mcf2graph.mf it must be version 4.26 or later
\documentclass{article}
%------------------------------------------------------------------------------
\usepackage{luamplib}%
-%%%%%%%\usepackage{lmodern}%
\usepackage[T1]{fontenc}%
\usepackage{textcomp}%
\mplibcodeinherit{enable}%
\mplibverbatim{enable}%
\everymplib{if unknown Ph1:
input mcf2graph.mf;
- mp_log_name:="temp-info.aux";
- sw_auxout:=1;
- sw_label:=1;
- var3:="mol_wd"; tag3:="Lx";
- var4:="cal_MW"; tag4:="cMW";
- var5:="cal_FM"; tag5:="cFM";
+ sw_auxout:=1;
+ sw_label_emu:=1;
+ sw_font_frame:=4;
+ max_bond_length:=4.5mm;
+ defaultfont:="uhvr8r";
+ defaultsize:=8bp;
+ defaultscale:=0.7;
fi}%
-\everyendmplib{write EOF to mp_log_name;}%
%------------------------------------------------------------------------------
-\makeatletter%
-\newdimen \MOLwidth%
-\newif\ifCONT@%
-\newread\@auxf%
-%------------------------------------------------------------------------------
-\def\@fst@param#1:#2;{#1}%
-\def\@sec@param#1:#2;{#2}%
-\def\mol@sel#1{%
-\if#1\empty\relax\else%
- \edef\@tag{\expandafter\@fst@param#1;}%
- \edef\@var{\expandafter\@sec@param#1;}%
- \ifx\@tag\@F\edef\MOLfile{\@var}\fi \ifx\@tag\@C\edef\MOLchar{\@var}\fi%
- \ifx\@tag\@Lx\edef\MOLlenx{\@var}\fi \ifx\@tag\@Ly\edef\MOLleny{\@var}\fi%
- \ifx\@tag\@EN\edef\MOLnameE{\@var}\fi \ifx\@tag\@JN\edef\MOLnameJ{\@var}\fi%
- \ifx\@tag\@CAS\edef\MOLcas{\@var}\fi \ifx\@tag\@USE\edef\MOLuse{\@var}\fi%
- \ifx\@tag\@FM\edef\MOLfm{\@var}\fi \ifx\@tag\@cFM\edef\CALfm{\@var}\fi%
- \ifx\@tag\@MW\edef\MOLmw{\@var}\fi \ifx\@tag\@cMW\edef\CALmw{\@var}\fi%
- \ifx\@tag\@logP\edef\MOLlogP{\@var}\fi \ifx\@tag\@EXA\edef\MOLextA{\@var}\fi%
- \ifx\@tag\@EXB\edef\MOLextB{\@var}\fi \ifx\@tag\@NO\edef\MOLnum{\@var}\fi\fi}%
-%-------------------------------------------------------------------------------
-\def\@F{F}\def\@C{C}\def\@EN{EN}\def\@JN{JN}\def\@CAS{CAS}%
-\def\@MW{MW}\def\@cMW{cMW}\def\@FM{FM}\def\@cFM{cFM}\def\@Lx{Lx}\def\@Ly{Ly}%
-\def\@NO{NO}\def\@USE@{USE}\def\@logP@{logP}\def\@EXA@{EXA}\def\@EXB@{EXB}%
-%-------------------------------------------------------------------------------
-% modified latex2e kernel program control (@for delimiter ','=>';')
-\def\@sfor#1#2{\expandafter\def\expandafter\@tmp\expandafter{#1}%
- \ifx\@tmp\@empty\else \expandafter\@rep#1;\@nil;\@nil\@@\@list{#2}\fi}%
-\def\@rep#1;#2\@@#3#4{\def#3{#1}\ifx#3\@nnil%
- \expandafter\@fornoop\else#4\relax\expandafter\@rep\fi#2\@@#3{#4}}%
-%-------------------------------------------------------------------------------
-\def\inputINFO#1{\openin\@auxf=#1\CONT@true%
-\loop
-\read\@auxf to \@info%
-\ifeof\@auxf\CONT@false\else \@sfor\@info{\mol@sel\@list}\fi%
-\ifCONT@ \repeat
-\closein\@auxf}%
-%--------------------------------------------------------------------------------
-\newdimen\MOLwidth%
-\newdimen\heightCap%
-\def\MOLcaption#1#2{%
-\MOLwidth=\MOLlenx pt%
-\advance\MOLwidth -#1\relax%
-\heightCap=#2%
-\llap{\makebox[\MOLwidth][l]{\raisebox{\heightCap}{\sf NO.\MOLnum{ }\MOLnameE{ }}}}%
-\advance\heightCap -5mm\relax%
-\llap{\makebox[\MOLwidth][l]{\raisebox{\heightCap}{\small\tt FM(C):\CALfm}}}%
-\advance\heightCap -4mm\relax%
-\llap{\makebox[\MOLwidth][l]{\raisebox{\heightCap}{\small\tt MW(C):\CALmw}}}%
-\advance\heightCap -4mm\relax%
-\llap{\makebox[\MOLwidth][l]{\raisebox{\heightCap}{\small\tt MW(D):\MOLmw}}}%
-}%
-\makeatother%
-%------------------------------------------------------------------------------------
\pagestyle{empty}
-\topmargin=-25mm
+\topmargin=-20mm
\oddsidemargin=0mm
-\textwidth=160mm
+\textwidth=170mm
\textheight=280mm
\unitlength=1mm
%------------------------------------------------------------------------------------
@@ -91,80 +37,136 @@
%------------------------------------------------------------------------------------
{{\small {\tt FM(C) :} molecular formula calculated by mcf2graph}\\
{{\small {\tt MW(C) :} molecular weight calculated by mcf2graph}\\
-{{\small {\tt MW(D) :} molecular weight from literature data}\\
+{{\small {\tt MW(D) :} molecular weight from literature data}\vspace{5mm}\\
\begin{mplibcode}
- font_wd:=90mm; font_ht:=45mm;
+ font_wd:=80mm; font_ht:=40mm;
beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
- MCf(<54,
+ MCa(1,0.5)(<54,
|<,``1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N,
-2:\,54~dl,|,?5,2=dl,5:N,-2:\~dl,54,|,?5,5=dl,5:N,-2:\~dl,&#5,
-1:@,24,/*COO!^15,72,//O,&#1,>|,
4:\`1.45,Mg,&17,-1:@,&11~vb,-1:@,&23~vb,
{2,9,15,20~zf}:/_,8:/!,14:\,!!,
21:@,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_,
- )
+ )
+ EXT(
+ label.lrt("("&inf_EN&")",(0,h));
+ label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,h-12mm));
+ )
endfont
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{0mm}{35mm}\hspace{8mm}%
+\begin{minipage}[b]{85mm}
+\begin{verbatim}
+|<,``1,?5,{2,5}=dl,4:N,3:\,54~dl,
+|,?5,{2,4}=dl,5:N,
+-2:\,54~dl,|,?5,2=dl,5:N,
+-2:\~dl,54,|,?5,5=dl,5:N,-2:\~dl,&#5,
+-1:@,24,/*COO!^15,72,//O,&#1,>|,
+4:\`1.45,Mg,&17,-1:@,&11~vb,-1:@,&23~vb,
+{2,9,15,20~zf}:/_,8:/!,14:\,!!,
+21:@,-6~wf,!2,//O,!,O,!2,!!,
+|,!13,{1,5,9,13}:/_,
+
+\end{verbatim}
+\end{minipage}
+\vspace{0mm}\\
%----------------------------------------------------------------------------
\begin{mplibcode}
- font_wd:=40mm; font_ht:=35mm;
+ font_wd:=80mm; font_ht:=30mm;
beginfont("NO:2","EN:Limonin","MW:470.51")
- MCf(<30,
+ MCa(.6,0.5)(<30,
?6,{-3,-4}=?6,-5=?3,-2=wf,-1=wb,6=?5,-4=?6,-5=wf,
{13,15,17,20}:O,{3,12,21}://O,
{4~wf^60,8~zf^60,18^35,18^-35}:/_,{1^60,5^180,16^60}:/*H,
14:\*,|,?5,{1,4}=dl,3:O
)
- endfont
-\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{0mm}{45mm}\vspace{6mm}\\%
-%----------------------------------------------------------------------------
-\begin{mplibcode}
- font_wd:=80mm; font_ht:=28mm;
- beginfont("NO:3","EN:beta-carotene","MW:536.87")
- MCf(<30,
- ?6,3=dl,{3,5^35,5^-35}:/_,
- 4:\,|,!18,{1,3,5,7,9,11,13,15,17}=dr,{3,7,12,16}:/_,
- |,?6,6=dl,{6,2^35,2^-35}:/_
+ EXT(
+ label.lrt("("&inf_EN&")",(0,h));
+ label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,h-12mm));
)
endfont
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{0mm}{35mm}\hspace{8mm}%
+\begin{minipage}[b]{85mm}
+\begin{verbatim}
+<30,?6,{-3,-4}=?6,-5=?3,
+-2=wf,-1=wb,6=?5,-4=?6,-5=wf,
+{13,15,17,20}:O,{3,12,21}://O,
+{4~wf^60,8~zf^60,18^35,18^-35}:/_,
+{1^60,5^180,16^60}:/*H,
+14:\*,|,?5,{1,4}=dl,3:O
+
+\end{verbatim}
+\end{minipage}
+\vspace{5mm}\\%
%----------------------------------------------------------------------------
\begin{mplibcode}
-font_wd:=50mm; font_ht:=40mm;
+font_wd:=80mm; font_ht:=20mm;
beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
- MCf(<18,?5,3=?7,5=?6[12],8:@,160`1.3,&3,13=dl,6=wf,8=wb,
- 5:@,40~zf`1,O,60,//O^180,&14~zb,
- 2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1^60,4^60}:*/H)
+ MCa(.6,0.5)(
+ <18,?5,3=?7,5=?6[12],8:@,160`1.3,&3,13=dl,6=wf,8=wb,
+ 5:@,40~zf`1,O,60,//O^180,&14~zb,
+ 2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1^60,4^60}:*/H)
+ EXT(
+ label.lrt("("&inf_EN&")",(0,h));
+ label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,h-12mm));
+ )
endfont;
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{0mm}{38mm}\vspace{5mm}\\%
+\begin{minipage}[b]{85mm}
+\begin{verbatim}
+<18,?5,3=?7,5=?6[12],8:@,160`1.3,&3,
+13=dl,6=wf,8=wb,
+5:@,40~zf`1,O,60,//O^180,&14~zb,
+2:/COOH,7://_,13:*/OH,8:/*OH,
+14:*/_,{1^60,4^60}:*/H)
+\end{verbatim}
+\end{minipage}
+\vspace{6mm}\\
%----------------------------------------------------------------------------
\begin{mplibcode}
-font_wd:=55mm; font_ht:=55mm;
+font_wd:=80mm; font_ht:=35mm;
beginfont("NO:5","EN:Erythromycin","MW:733.93");
- MCf(<30,
- |<,``1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,>|,&1,
+ MCa(.6,0.5)(
+ <30,|<,``1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,>|,&1,
14:O,13:/*Et,{1,9}://O,{2,10}:*/_,{4,6^-35,8,12^35}:/*_,
{6^35,11,12^-35}:*/OH,
#3:\*,O,30,|,?6`.7,2:O,{3,5^35}:/_,4:/OH,5^-35:/O!,
#5:\*^30`1.7,O,!,|,?6`.7,6:O,5:/_,2:/OH,3:/NMeMe
)
+ EXT(
+ label.lrt("("&inf_EN&")",(0,h));
+ label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,h-12mm));
+ )
endfont;
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{30mm}{52mm}\hspace{8mm}%
+\begin{minipage}[b]{85mm}
+\begin{verbatim}
+<30,|<,``1,<-120,60,60,60,-60,60,
+60,-60,60,60,60,-60,60,60,>|,&1,
+14:O,13:/*Et,{1,9}://O,{2,10}:*/_,
+{4,6^-35,8,12^35}:/*_,
+{6^35,11,12^-35}:*/OH,
+#3:\*,O,30,|,?6`.7,2:O,
+{3,5^35}:/_,4:/OH,5^-35:/O!,
+#5:\*^30`1.7,O,!,|,?6`.7,6:O,
+5:/_,2:/OH,3:/NMeMe
+\end{verbatim}
+\end{minipage}
+\vspace{5mm}\\
%----------------------------------------------------------------------------
\begin{mplibcode}
-font_wd:=90mm; font_ht:=55mm;
+font_wd:=80mm; font_ht:=65mm;
beginfont("NO:6","EN:Vancomycin","MW:1449.25");
- MCf(<30,
+ MCa(0.5,0)(
+ <30,
|<,``1,!12,{1,3,12}=zf,7=wf,/H^-60,60,*/OH,60,
Ph,-4:/Cl,-3:\,O,!,Ph,-4:\,O,!,Ph,-1^15:/Cl,-3:\,/*OH,*/H^-60,&#1,
#7:@,&#26,#1:@,120,//O,60,NH,60,/*H,*/COOH^180,-60,
@@ -175,16 +177,41 @@ beginfont("NO:6","EN:Vancomycin","MW:1449.25");
#13:*\,NH,!,//O,!,/!iPr^-35>60,*/H^60,!~zf,NH,!,
#23:\,O,!,|,?6`.7,2:O,3^10:/!OH,{4,5}:/OH,
-1:\,O,!,|,?6`.7,6:O,{3^35,5}:/_,3^-35:/NH2,4:/OH
- )
+ )
+ EXT(
+ label.lrt("("&inf_EN&")",(0,h));
+ label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,h-12mm));
+ )
endfont;
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{55mm}{50mm}\vspace{6mm}\\%
+\begin{minipage}[b]{85mm}
+\begin{verbatim}
+<30,|<,``1,!12,{1,3,12}=zf,7=wf,
+/H^-60,60,*/OH,60,Ph,-4:/Cl,
+-3:\,O,!,Ph,-4:\,O,!,Ph,-1^15:/Cl,
+-3:\,/*OH,*/H^-60,&#1,
+#7:@,&#26,#1:@,120,//O,60,NH,60,
+ /*H,*/COOH^180,-60,
+Ph,{-2,-4}:/OH,-1:\,Ph,-5:/OH,-2:@,&#4,>|,
+{3^40,6,9,12}://O,{2,5,8,11}:NH,
+{1^180,4^180}:*/H,
+{7^-60,10^60,14^60}:/*H,
+#10:*\^-60,60,//O,!,NH2,#13:*\,NH,!,//O,!,
+ /!iPr^-35>60,*/H^60 ,!~zf,NH,!,
+#23:\,O,!,|,?6`.7,2:O,3^10:/!OH,{4,5}:/OH,
+-1:\,O,!,|,?6`.7,6:O,
+{3^35,5}:/_,3^-35:/NH2,4:/OH
+\end{verbatim}
+\end{minipage}
+\vspace{0mm}\\%
%----------------------------------------------------------------------------
\begin{mplibcode}
- font_wd:=150mm; font_ht:=70mm;
+ font_wd:=170mm; font_ht:=80mm;
beginfont("NO:7","EN:Maitotoxin","MW:3425.86")
- MCf(<55.8,?6,-4=?7 ,{-4,-3,-3,-3}=?6,-3:\,!3,?6,{-4,-3,-3,-3}=?6,
+ MCf(
+ <55.8,?6,-4=?7 ,{-4,-3,-3,-3}=?6,-3:\,!3,?6,{-4,-3,-3,-3}=?6,
-3:\,?6,-3=?6,-3:\,!3,60,<-30,?6,-3=?6,
-3:@,30,<30,?6,{-3,-3}=?6,-3=?7,{-4,-3,-3}=?6,
-2:\,?6,-3=?6,-3=?7,{-3,-3}=?6,-3=?8,-3=dl,{-5,-3,-3,-3}=?6,
@@ -202,10 +229,108 @@ endfont;
#36:@,-45~zf,O,30,SOO,30,"O{Na}",
#150:\,|,!7,{1,2}:/*OH,4:*/_,5:/*_,7=dl
)
+ EXT(
+ label.lrt("("&inf_EN&")",(0,.8h));
+ label.lrt("FM(C): "&cal_FM,(0,.8h-4mm));
+ label.lrt("FM(C): "&cal_MW,(0,.8h-8mm));
+ label.lrt("FM(D): "&inf_MW,(0,.8h-12mm));
+ )
+ endfont
+\end{mplibcode}
+\begin{verbatim}
+ <55.8,?6,-4=?7 ,{-4,-3,-3,-3}=?6,-3:\,!3,?6,{-4,-3,-3,-3}=?6,
+ -3:\,?6,-3=?6,-3:\,!3,60,<-30,?6,-3=?6,
+ -3:@,30,<30,?6,{-3,-3}=?6,-3=?7,{-4,-3,-3}=?6,
+ -2:\,?6,-3=?6,-3=?7,{-3,-3}=?6,-3=?8,-3=dl,{-5,-3,-3,-3}=?6,
+ {5,7,15,16,23,24,32,40,41,48,49,58,59,72,73,82,83,90,91,99,
+ 100,107,113,114,122,123,130,131,140,141,148,149}:O,
+ {1^60,2,26,28,29,51,54,61,63,68,75^60,78,109}:*/OH,
+ {11,20,35,45,52,55,65,69,86}:/*OH,{47,57,71}:/*H^60,
+ {3,8,13,17,21,33,38,42,56,70,84,92,101,106,111,128,138,142,146,150}:/*H^-60,
+ {4,14,22,34,39,43,81,89,98,102,116,121,125,129,133}:*/H^60,
+ {6,46,50,53,60,67,74}:*/H^-60,{9,18,85,93,112,139,143,147}:*/_`1^60,
+ {80,88,97,115,120,124}:/*_`1^-60,108:*/_`1^-60,
+ #6:\,|,!11,60~dr,-60,60,OH,2:/*OH,{7,10}:*/OH,{1,3}:*/_,{8~zf,11~dm,12}:/_,
+ 6:\,O,30,SOO,30,"O{Na}",
+ #36:@,-45~zf,O,30,SOO,30,"O{Na}",#150:\,|,!7,{1,2}:/*OH,4:*/_,5:/*_,7=dl
+\end{verbatim}
+\vspace{8mm}%
+%----------------------------------------------------------------------------
+{\LARGE\bf TCA-cycle}\\
+\begin{mplibcode}
+ beginfont("EN:TCA cycle")
+ save a;
+ %------------------------------------------------------------------------
+ font_wd:=100mm;
+ font_ht:=100mm;
+ max_bond_length:=5mm;
+ %------------------------------------------------------------------------
+ sw_label_emu:=1;
+ defaultscale:=0.75;
+ %------------------------------------------------------------------------
+ a:=12mm;
+ Om:='("{O^-^}");
+ MCa(0.5,1)(<30,Om,!0,//O,!,//O,!2,//O,!,Om)
+ MCa(1, 1)(<30,Om,!0,//O,!,!,!,!,//O,!,Om,-4`1:\,//O,!,Om,4:/OH^-165)
+ MCa(1,.66)(<30,Om,!0,//O,!,!,!~dr,!,//O,!,Om,-4`1:\,//O,!,Om)
+ MCa(1,.35)(<30,Om,!0,//O,!,!,!,!,//O,!,Om,-4:\`1,//O,!,Om)
+ MCa(1, 0)(<30,Om,!0,//O,!,!,!,//O,!,//O,!,Om,-4:\`1,//O,!,Om)
+ MCa(0.5,0)(<30,Om,!0,//O,!,!,!,//O,!,//O,!,Om)
+ MCa(0, 0)(<30,Om,!0,//O,!,!,!,//O,!,"{S-CoA}")
+ MCa(0,0.4)(<30,Om,!0,//O,!,!,!,//O,!,Om)
+ MCa(0,0.7)(<30,Om,!0,//O,!,!~dr,!,//O,!,Om)
+ MCa(0, 1)(<30,Om,!0,//O,!,!,!,//O,!,Om,3:/OH)
+ %------------------------------------------------------------------------
+ EXT(
+ p10:=(.58w,.9h);
+ drawarrow p10..p10+(a,0);
+ drawarrow p10+(.2a,-.8a){dir90}..{dir 0}(p10+(.5a,0)){dir0}..{dir-90}p10+(.8a,-.5a);
+ label.bot("Acetyl-CoA",p10+(.2a,-.8a));
+ label.bot("CoA-SH",p10+(.8a,-.5a)+(em,0));
+ p10:=(.9w,.83h);
+ drawdblarrow p10..p10+(0,-a);
+ draw p10+(0,-0.5a){dir -90}..{dir 180}p10+(-0.5a,-.8a);
+ label.lft("H_2_O",p10+(-0.5a,-.8a));
+ p10:=(.9w,.56h);
+ drawdblarrow p10..p10+(0,-a);
+ draw p10+(-0.5a,-0.2a){dir 0}..{dir -90}p10+(0,-.5a);
+ label.lft("H_2_O",p10+(-0.5a,-.2a));
+ p10:=(.9w,.30h);
+ drawdblarrow p10..p10+(0,-a);
+ drawarrow p10+(-.5a,-.2a){dir 0}..{dir-90}p10+(0,-.5a){dir-90}..{dir180}p10+(-.5a,-.8a);
+ label.lft("NAD^+",p10+(-0.5a,-.2a));
+ label.lft("NADH2^+",p10+(-0.5a,-.8a));
+ p10:=(.73w,0.1h);
+ drawarrow p10..p10+(-a,0);
+ drawarrow p10+(-0.05w,0){dir -180}..{dir 90}p10+(-0.08w,0.05h);
+ label.top("CO_2_",p10+(-0.8a,0.53a));
+ p10:=(.40w,.1h);
+ drawarrow p10..p10+(-a,0);
+ drawarrow p10+(-.2a,0.8a){dir -90}..p10+(-0.5a,0){dir -180}..
+ {dir 90}p10+(-0.8a,0.5a);
+ label.top("NAD^+^,CoA-SH",p10+(em,0.8a));
+ label.top("NADH2^+^,CO_2_",p10+(-0.8a-em,0.5a));
+ p10:=(.10w,.22h);
+ drawdblarrow p10..p10+(0,a);
+ drawdblarrow p10+(.5a,.2a){dir-180}..{dir90}p10+(0,.5a){dir90}..{dir0}p10+(.5a,.8a);
+ label.rt("GDP,Pi",p10+(0.5a,0.2a));
+ label.rt("GTP,CoA-SH",p10+(0.5a,0.8a));
+ p10:=(.10w,.5h);
+ drawdblarrow p10..p10+(0,a);
+ drawdblarrow p10+(.5a,.2a){dir-180}..{dir 90}p10+(0,.5a){dir90}..{dir0}p10+(.5a,.8a);
+ label.rt("FAD",p10+(0.5a,0.2a));
+ label.rt("FADH2",p10+(0.5a,0.8a));
+ p10:=(.10w,.74h);
+ drawdblarrow p10..p10+(0,a);
+ draw p10+(0.05w,0.2a){dir -180}..{dir 90}p10+(0,.5a);
+ label.rt("H_2_O",p10+(0.5a,0.2a));
+ p10:=(.25w,.9h);
+ drawdblarrow p10..p10+(a,0);
+ drawdblarrow p10+(.2a,-.5a){dir90}..{dir0}p10+(.5a,0){dir0}..{dir-90}p10+(.8a,-.8a);
+ label.bot("NAD^+",p10+(.2a,-.5a));
+ label.bot("NADH2^+",p10+(.8a,-.8a));
+ )
endfont
\end{mplibcode}
-\inputINFO{temp-info.aux}%
-\MOLcaption{110mm}{70mm}\\%
-\end{document}
%----------------------------------------------------------------------------
\end{document}