summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_mplib_exa.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r--graphics/mcf2graph/mcf_mplib_exa.tex186
1 files changed, 93 insertions, 93 deletions
diff --git a/graphics/mcf2graph/mcf_mplib_exa.tex b/graphics/mcf2graph/mcf_mplib_exa.tex
index df8c4bc5eb..edf96d8953 100644
--- a/graphics/mcf2graph/mcf_mplib_exa.tex
+++ b/graphics/mcf2graph/mcf_mplib_exa.tex
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2021.01.31
+% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2021.02.11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% mcf2graph.mf it must be version 4.56 or later
+%%% mcf2graph.mf must be version 4.57
\documentclass{article}
%------------------------------------------------------------------------------
\usepackage{luamplib}%
@@ -104,12 +104,12 @@ MC(
beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
fsize:=(100mm,50mm);
MC(
- <54,|=1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N,
- -2:\,54~dl,|,?5,2=d,5:N,-2:\~dl,54,|,?5,5=d,5:N,-2:\~dl,$5:#,
- -1:@,24,/*COO!^15,72,//O,$1:#,=|,||,
+ <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,##,||,
{2,9,15,20~zf}:/_,8:/!,14:/!!,
- 4:\`1.45,Mg,17:#,-1:@,11~vb:#,-1:@,23~vb:#,
- 21:@,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_
+ @4,\`1.45,Mg,&17,@-1,&11~vb,@-1,&23~vb,
+ @21,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_
)
endfont
\end{verbatim}
@@ -118,12 +118,12 @@ endfont
beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
fsize:=(100mm,50mm);
MC(
- <54,|=1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N,
- -2:\,54~dl,|,?5,2=d,5:N,-2:\~dl,54,|,?5,5=d,5:N,-2:\~dl,$5:#,
- -1:@,24,/*COO!^15,72,//O,$1:#,=|,||,
+ <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,##,||,
{2,9,15,20~zf}:/_,8:/!,14:/!!,
- 4:\`1.45,Mg,17:#,-1:@,11~vb:#,-1:@,23~vb:#,
- 21:@,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_
+ @4,\`1.45,Mg,&17,@-1,&11~vb,@-1,&23~vb,
+ @21,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_
)
ext(
defaultscale:=0.8;
@@ -140,8 +140,8 @@ endfont
beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
fsize:=(120mm,20mm);
MC(
- <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:#,
+ <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,4}:*/H^60
)
endfont;
@@ -151,8 +151,8 @@ endfont;
beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
fsize:=(120mm,20mm);
MC(
- <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:#,
+ <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,4}:*/H^60)
ext(
defaultscale:=0.8;
@@ -170,11 +170,11 @@ endfont;
beginfont("NO:5","EN:Erythromycin","MW:733.93");
fsize:=(120mm,35mm);
MC(
- <30,|=1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,=|,1:#,
+ <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:/N?!
+ @.$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:/N?!
)
endfont;
\end{verbatim}
@@ -183,11 +183,11 @@ endfont;
beginfont("NO:5","EN:Erythromycin","MW:733.93");
fsize:=(120mm,35mm);
MC(
- <30,|=1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,=|,1:#,
+ <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:/N?!
+ @.$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:/N?!
)
ext(
defaultscale:=0.8;
@@ -204,10 +204,10 @@ endfont;
beginfont("EN:Paclitaxel","MW:853.918")
fsize:=(120mm,35mm);
MC(
- ?6,5=d,3:@,|=1,36,45,45,45,45,=|,5:#,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,
+ ?6,5=dl,@3,#1,36,45,45,45,45,##,&5,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,
4:??,6:/_,{3^-60,15}:*/OH,8:/*H^-60,9:*/_^60,10://O,
- 1:\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph,
- 7:\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr
+ @1,\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph,
+ @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr
)
endfont
\end{verbatim}
@@ -216,10 +216,10 @@ endfont
beginfont("EN:Paclitaxel","MW:853.918")
fsize:=(120mm,35mm);
MC(
- ?6,5=d,3:@,|=1,36,45,45,45,45,=|,5:#,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,
+ ?6,5=dl,@3,#1,36,45,45,45,45,##,&5,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,
4:??,6:/_,{3^-60,15}:*/OH,8:/*H^-60,9:*/_^60,10://O,
- 1:\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph,
- 7:\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr
+ @1,\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph,
+ @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr
)
ext(
defaultscale:=0.8;
@@ -238,28 +238,28 @@ endfont
\begin{verbatim}
beginfont("NO:6","EN:Vancomycin","MW:1449.25");
fsize:=(150mm,50mm);
-MC(<-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:@,60,//O,60,NH,60,/*H,*/COOH^180,-60,
- Ph,{-2,-4}:/OH,-1:\,Ph,-5:/OH,-2:@,4:#,=|,
+MC(<-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,60,//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,4^180}:*/H,{7^-60,10^60,14^60}:/*H,
- 10:*\^-60,60,//O,!,NH2,13:*\,NH,!,//O,!,/??!,*/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)
+ @10,*\^-60,60,//O,!,NH2,@13,*\,NH,!,//O,!,/??!,*/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)
endfont;
\end{verbatim}
%----------------------------------------------------------------------------
\begin{mplibcode}
beginfont("NO:6","EN:Vancomycin","MW:1449.25");
fsize:=(150mm,45mm);
-MC(<-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:@,60,//O,60,NH,60,/*H,*/COOH^180,-60,
- Ph,{-2,-4}:/OH,-1:\,Ph,-5:/OH,-2:@,4:#,=|,
+MC(<-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,60,//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,4^180}:*/H,{7^-60,10^60,14^60}:/*H,
- 10:*\^-60,60,//O,!,NH2,13:*\,NH,!,//O,!,/??!,*/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)
+ @10,*\^-60,60,//O,!,NH2,@13,*\,NH,!,//O,!,/??!,*/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(
defaultscale:=0.8;
label.lrt("FM(C): "&cal_FM,(0,h-4mm));
@@ -275,9 +275,9 @@ endfont;
\begin{verbatim}
beginfont("NO:7","EN:Maitotoxin","MW:3425.86")
fsize:=(170mm,70mm);
-MC(<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,
+MC(<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,
@@ -287,19 +287,19 @@ MC(<55.8,?6,-4=?7 ,{-4,-3,-3,-3}=?6,-3:\,!3,?6,{-4,-3,-3,-3}=?6,-3:\,?6,-3=?6,
{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)
+ @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)
endfont
\end{verbatim}
%--------------------------------------------------------------------------------
\begin{mplibcode}
fsize:=(170mm,60mm);
beginfont("NO:7","EN:Maitotoxin","MW:3425.86")
-MC(<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,
+MC(<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,
@@ -309,10 +309,10 @@ MC(<55.8,?6,-4=?7 ,{-4,-3,-3,-3}=?6,-3:\,!3,?6,{-4,-3,-3,-3}=?6,-3:\,?6,-3=?6,
{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
+ @.$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
)
ext(
defaultscale:=0.8;
@@ -331,18 +331,18 @@ beginfont("EN:TCA cycle")
fsize:=(160mm,75mm);
max_blength:=5mm;
%------------------------------------------------------------------------
-COOm:='(//O,!,O[-1]);
-OmCO:='(O[-1],!,//O);
-MCat(0.33, 1)(<30,OmCO,!,//O,!2,COOm)
-MCat(0.66, 1)(<30,OmCO,!4,COOm,-4`1:\,COOm,4:/OH^-165)
-MCat(1, 1)(<30,OmCO,!2,!~dr,!,COOm,-4`1:\,COOm)
-MCat(1, 0.55)(<30,OmCO,!4,COOm,-4:\`1,COOm)
-MCat(1, 0.05)(<30,OmCO,!3,//O,!,COOm,-4:\`1,COOm)
-MCat(0.66,0.05)(<30,OmCO,!3,//O,!,COOm)
-MCat(0.33,0.05)(<30,OmCO,!3,//O,!,"{S-CoA}")
-MCat(0, 0.05)(<30,OmCO,!3,COOm)
-MCat(0, 0.55)(<30,OmCO,!,!~dr,!,COOm)
-MCat(0, 1)(<30,OmCO,!3,COOm,3:/OH)
+COOH:='(//O,!,OH);
+HOCO:='(OH,!,//O,);
+MCat(0.33, 1)(<30,HOCO,!,//O,!2,COOH)
+MCat(0.66, 1)(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165)
+MCat(1, 1)(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH)
+MCat(1, 0.55)(<30,HOCO,!4,COOH,@-4,\`1,COOH)
+MCat(1, 0.05)(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH)
+MCat(0.66,0.05)(<30,HOCO,!3,//O,!,COOH)
+MCat(0.33,0.05)(<30,HOCO,!3,//O,!,"{S-CoA}")
+MCat(0, 0.05)(<30,HOCO,!3,COOH)
+MCat(0, 0.55)(<30,HOCO,!,!~dr,!,COOH)
+MCat(0, 1)(<30,HOCO,!3,COOH,3:/OH)
%-------------------------------------------------------------------------
ext(
defaultfont:="uhvr8r";
@@ -377,15 +377,15 @@ label.bot("Fumarate",p9+dx); label.bot("L-Malate",p10+dx);
sw_label_emu:=1;
ext_setup;
r_arrow(10mm)( 0)(p1+ ( 1.1w1, 0.3h1))("Acetyl-CoA",1.5)(" CoA-SH",1);
-r_arrow(10mm)( 0)(p2+ ( 1.1w2, 0.4h2))("",0)("H_2_O",1);
-r_arrow( 8mm)(270)(p3+ ( 0.5w3,-0.4h3))("H_2_O",1)("",0);
-r_arrow( 8mm)(270)(p4+ ( 0.5w4,-0.4h4))("NAD^+",1)("NADH2^+",1);
-r_arrow(10mm)(180)(p5+ (-0.1w5, 0.4h5))("",0)("CO_2_",1);
-r_arrow(10mm)(180)(p6+ (-0.1w6, 0.5h6))("NAD^+^,CoA-SH",1.7)("NADH2^+^,CO_2",1);
+r_arrow(10mm)( 0)(p2+ ( 1.1w2, 0.4h2))("",0)("H2O",1);
+r_arrow( 8mm)(270)(p3+ ( 0.5w3,-0.4h3))("H2O",1)("",0);
+r_arrow( 8mm)(270)(p4+ ( 0.5w4,-0.4h4))("NAD+",1)("NADH2+",1);
+r_arrow(10mm)(180)(p5+ (-0.1w5, 0.4h5))("",0)("CO2",1);
+r_arrow(10mm)(180)(p6+ (-0.1w6, 0.5h6))("NAD+,CoA-SH",1.7)("NADH2+,CO2",1);
r_arrow(10mm)(180)(p7+ (-0.1w7, 0.5h7))("GDP,Pi",1.7)("GTP,CoA-SH",1);
r_arrow( 8mm)( 90)(p8+ ( 0.4w8, 1.2h8))("FAD",1)("FADH2",1);
-r_arrow( 8mm)( 90)(p9+ ( 0.4w9, 1.2h9))("H_2_O",1)("",0);
-r_arrow(10mm)( 0)(p10+( 1.1w10,0.3h10))("NAD^+",1)("NADH2^+",1.5);
+r_arrow( 8mm)( 90)(p9+ ( 0.4w9, 1.2h9))("H2O",1)("",0);
+r_arrow(10mm)( 0)(p10+( 1.1w10,0.3h10))("NAD+",1)("NADH2+",1.5);
defaultscale:=1.5;
label("TCA-cycle",(0.5w,0.5h));
)
@@ -396,18 +396,18 @@ endfont
beginfont("EN:TCA cycle")
fsize:=(160mm,75mm);
max_blength:=5mm;
-COOm:='(//O,!,O[-1]);
-OmCO:='(O[-1],!,//O);
-MCat(0.33, 1)(<30,OmCO,!,//O,!2,COOm)
-MCat(0.66, 1)(<30,OmCO,!4,COOm,-4`1:\,COOm,4:/OH^-165)
-MCat(1, 1)(<30,OmCO,!2,!~dr,!,COOm,-4`1:\,COOm)
-MCat(1, 0.55)(<30,OmCO,!4,COOm,-4:\`1,COOm)
-MCat(1, 0.05)(<30,OmCO,!3,//O,!,COOm,-4:\`1,COOm)
-MCat(0.66,0.05)(<30,OmCO,!3,//O,!,COOm)
-MCat(0.33,0.05)(<30,OmCO,!3,//O,!,"{S-CoA}")
-MCat(0, 0.05)(<30,OmCO,!3,COOm)
-MCat(0, 0.55)(<30,OmCO,!,!~dr,!,COOm)
-MCat(0, 1)(<30,OmCO,!3,COOm,3:/OH)
+COOH:='(//O,!,OH);
+HOCO:='(OH,!,//O,);
+MCat(0.33, 1)(<30,HOCO,!,//O,!2,COOH)
+MCat(0.66, 1)(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165)
+MCat(1, 1)(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH)
+MCat(1, 0.55)(<30,HOCO,!4,COOH,@-4,\`1,COOH)
+MCat(1, 0.05)(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH)
+MCat(0.66,0.05)(<30,HOCO,!3,//O,!,COOH)
+MCat(0.33,0.05)(<30,HOCO,!3,//O,!,"{S-CoA}")
+MCat(0, 0.05)(<30,HOCO,!3,COOH)
+MCat(0, 0.55)(<30,HOCO,!,!~dr,!,COOH)
+MCat(0, 1)(<30,HOCO,!3,COOH,3:/OH)
ext(
defaultfont:="uhvr8r";
defaultscale:=0.75;
@@ -421,15 +421,15 @@ label.bot("Fumarate",p9+dx); label.bot("L-Malate",p10+dx);
sw_label_emu:=1;
ext_setup;
r_arrow(10mm)( 0)(p1+ ( 1.1w1, 0.3h1))("Acetyl-CoA",1.5)(" CoA-SH",1);
-r_arrow(10mm)( 0)(p2+ ( 1.1w2, 0.4h2))("",0)("H_2_O",1);
-r_arrow( 8mm)(270)(p3+ ( 0.5w3,-0.4h3))("H_2_O",1)("",0);
-r_arrow( 8mm)(270)(p4+ ( 0.5w4,-0.4h4))("NAD^+",1)("NADH2^+",1);
+r_arrow(10mm)( 0)(p2+ ( 1.1w2, 0.4h2))("",0)("H2O",1);
+r_arrow( 8mm)(270)(p3+ ( 0.5w3,-0.4h3))("H2O",1)("",0);
+r_arrow( 8mm)(270)(p4+ ( 0.5w4,-0.4h4))("NAD+",1)("NADH2+",1);
r_arrow(10mm)(180)(p5+ (-0.1w5, 0.4h5))("",0)("CO_2_",1);
-r_arrow(10mm)(180)(p6+ (-0.1w6, 0.5h6))("NAD^+^,CoA-SH",1.7)("NADH2^+^,CO_2",1);
+r_arrow(10mm)(180)(p6+ (-0.1w6, 0.5h6))("NAD+,CoA-SH",1.7)("NADH2+,CO2",1);
r_arrow(10mm)(180)(p7+ (-0.1w7, 0.5h7))("GDP,Pi",1.7)("GTP,CoA-SH",1);
r_arrow( 8mm)( 90)(p8+ ( 0.4w8, 1.2h8))("FAD",1)("FADH2",1);
-r_arrow( 8mm)( 90)(p9+ ( 0.4w9, 1.2h9))("H_2_O",1)("",0);
-r_arrow(10mm)( 0)(p10+( 1.1w10,0.3h10))("NAD^+",1)("NADH2^+",1.5);
+r_arrow( 8mm)( 90)(p9+ ( 0.4w9, 1.2h9))("H2O",1)("",0);
+r_arrow(10mm)( 0)(p10+( 1.1w10,0.3h10))("NAD+",1)("NADH2+",1.5);
defaultscale:=1.5;
label("TCA-cycle",(0.5w,0.5h));
)