From f1968eac3c6db5bdcc0de5a6131142a612d9e5ea Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 27 Jul 2020 03:01:06 +0000
Subject: CTAN sync 202007270301

---
 graphics/mcf2graph/mcf_mplib_exa.tex | 536 +++++++++++++++++------------------
 1 file changed, 257 insertions(+), 279 deletions(-)

(limited to 'graphics/mcf2graph/mcf_mplib_exa.tex')

diff --git a/graphics/mcf2graph/mcf_mplib_exa.tex b/graphics/mcf2graph/mcf_mplib_exa.tex
index b20161f9bc..8de170b935 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    2020.07.09
+% Example of  MCF typest with LuaLaTeX(luamplib)     by A.Yamaji    2020.07.26
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% mcf2graph.mf it must be version 4.49 or later
+%%% mcf2graph.mf it must be version 4.50 or later
 \documentclass{article}
 %------------------------------------------------------------------------------
 \usepackage{luamplib}%
@@ -33,119 +33,128 @@
  Author : Akira Yamaji \quad Date : \today\\
  Located at : http://www.ctan.org/pkg/mcf2graph\vspace{2mm}\\
 \end{center}
+%----------------------------------------------------------------------------
+\section{Change color}
 \noindent%
-%------------------------------------------------------------------------------------
-{{\tt FM(C) :} molecular formula calculated by mcf2graph\\
-{{\tt MW(C) :} molecular weight calculated by mcf2graph\\
-{{\tt MW(D) :} molecular weight from literature data\vspace{5mm}\\
-%------------------------------------------------------------------------------------
+\begin{minipage}[b]{60mm}
+\begin{verbatim}
+(use with metapost only)
+MC(
+  <30,Ph,{2,5}:N,3:/NH2,4:/COOH,
+   %---------------------
+   2:red,     % red   A2
+   5:blue,    % blue  A5
+   3=green    % green B3
+   %---------------------
+ )
+\end{verbatim}
+%----------------------------------------------------------------------------
+\end{minipage}
 \begin{mplibcode}
-  fsize:=(80mm,40mm);
-  beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
-    msize:=(.9,.9);
-    MCat(0,0.5)(<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:#,=|,||,
-     {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}:/_
-    )
-    ext(
-      label.lrt("("&inf_EN&")",(0,h));
-      defaultscale:=0.8;
-      label.lrt("FM(C): "&cal_FM,(0,h-5mm));
-      label.lrt("MW(C): "&cal_MW,(0,h-9mm));
-      label.lrt("MW(D): "&inf_MW,(0,h-13mm));
+  fsize:=(70mm,25mm);
+  beginfont("EN:Change color")
+    max_blength:=8mm;
+    sw_label:=1;
+    defaultfont:="cmtt10";
+    defaultsize:=10bp;
+    MC(
+      <30,Ph,{2,5}:N,3:/NH2,4:/COOH,
+      2:red,5:blue,3=green
     )
   endfont
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%----------------------------------------------------------------------------
+\section{Change font}
+\noindent%
+\begin{minipage}[b]{60mm}
 \begin{verbatim}
-|=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:#,=|,||,
- {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}:/_
+(use with metapost only)
+%----------------
+atomfont:="cmr8";
+%----------------
+MC(
+  <30,Ph,{2,5}:N,3:/NH2,4:/COOH
+)
 
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
 %----------------------------------------------------------------------------
+\end{minipage}
 \begin{mplibcode}
-fsize:=(80mm,20mm);
-beginfont("EN:beta-Carotene","MW:536.888")
-  msize:=(.65,1);
-  MCat(.9,.5)(
-     <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));
-    defaultscale:=0.8;
-    label.lrt("FM(C): "&cal_FM,(0,h-5mm));
-    label.lrt("MW(C): "&cal_MW,(0,h-9mm));
-    label.lrt("MW(D): "&inf_MW,(0,h-13mm));
-  )
-endfont
+  fsize:=(70mm,25mm);
+  beginfont("EN:Change font")
+    max_blength:=8mm;
+    sw_label:=1;
+    defaultfont:="cmtt10";
+    defaultsize:=10bp;
+    atomfont:="cmr8";
+    MC(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
+  endfont
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%------------------------------------------------------------------------------------
+\section{MCF example}
+\noindent%
+%------------------------------------------------------------------------------------
+{{\tt FM(C) :} molecular formula calculated by mcf2graph\\
+{{\tt MW(C) :} molecular weight calculated by mcf2graph\\
+{{\tt MW(D) :} molecular weight from literature data
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Chlorophyll a}
+\noindent%
 \begin{verbatim}
-<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}:/_
+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:#,=|,||,
+  {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}:/_
+  )
+endfont
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
-%----------------------------------------------------------------------------
+%------------------------------------------------------------------------------------
 \begin{mplibcode}
-  fsize:=(80mm,30mm);
-  beginfont("NO:2","EN:Limonin","MW:470.51")
-  MCat(0.7,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
-     )
-    ext(
-      label.lrt("("&inf_EN&")",(0,h));
-      defaultscale:=0.8;
-      label.lrt("FM(C): "&cal_FM,(0,h-5mm));
-      label.lrt("MW(C): "&cal_MW,(0,h-9mm));
-      label.lrt("MW(D): "&inf_MW,(0,h-13mm));
-    )
-  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:#,=|,||,
+  {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}:/_
+  )
+  ext(
+   defaultscale:=0.8;
+   label.lrt("FM(C): "&cal_FM,(0,h-5mm));
+   label.lrt("MW(C): "&cal_MW,(0,h-9mm));
+   label.lrt("MW(D): "&inf_MW,(0,h-13mm));
+  )
+endfont
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Gibberellin A3}
+\noindent%
 \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
-
+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:#,
+   2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1,4}:*/H^60
+  )
+endfont;
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\%
 %----------------------------------------------------------------------------
 \begin{mplibcode}
-fsize:=(80mm,20mm);
 beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
-  MCat(0.8,0.5)(
+  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:#,
    2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1,4}:*/H^60)
     ext(
-      label.lrt("("&inf_EN&")",(0,h));
       defaultscale:=0.8;
       label.lrt("FM(C): "&cal_FM,(0,h-5mm));
       label.lrt("MW(C): "&cal_MW,(0,h-9mm));
@@ -153,50 +162,27 @@ beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
     )
 endfont;
 \end{mplibcode}
-\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,4}:*/H^60)
-\end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Erythromycin}
+\noindent%
 %----------------------------------------------------------------------------
-\begin{mplibcode}
-fsize:=(80mm,25mm);
-beginfont("EN:Morphine","MW:285.343")
-  MCat(0.7,0.5)(
-   <30,Ph,2=?6,-4=?6,(1,12)=?5[2],-1:O,-1=zb,
-    7:@,60~wf`0.75,70~si_`1.3,45,N,/_,9~wb:#,
-    15=d,6:/OH,8^180:*/H,12:/*OH
-  )
-  ext(
-    label.lrt("("&inf_EN&")",(0,h));
-    defaultscale:=0.8;
-    label.lrt("FM(C): "&cal_FM,(0,h-5mm));
-    label.lrt("MW(C): "&cal_MW,(0,h-9mm));
-    label.lrt("MW(D): "&inf_MW,(0,h-13mm));
-  )
-endfont
-\end{mplibcode}
-\begin{minipage}[b]{85mm}
 \begin{verbatim}
-<30,Ph,2=?6,-4=?6,(1,12)=?5[2],
--1:O,-1=zb,
-7:@,60~wf`0.75,70~si_`1.3,
-45,N,/_,9~wb:#,
-15=dl,
-6:/OH,8^180:*/H,12:/*OH
+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:#,
+     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
+     )
+endfont;
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
 %----------------------------------------------------------------------------
 \begin{mplibcode}
-fsize:=(80mm,35mm);
 beginfont("NO:5","EN:Erythromycin","MW:733.93");
-  MCat(0.8,0.5)(
+  fsize:=(120mm,35mm);
+  MC(
     <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,
@@ -204,40 +190,38 @@ beginfont("NO:5","EN:Erythromycin","MW:733.93");
      $5:\*^30`1.7,O,!,|,?6`.7,6:O,5:/_,2:/OH,3:/NMeMe
      )
     ext(
-      label.lrt("("&inf_EN&")",(0,h));
       defaultscale:=0.8;
       label.lrt("FM(C): "&cal_FM,(0,h-5mm));
       label.lrt("MW(C): "&cal_MW,(0,h-9mm));
       label.lrt("MW(D): "&inf_MW,(0,h-13mm));
     )
-  endfont;
+endfont;
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Paclitaxel}
+\noindent%
 \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
+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,
+    {4^35,4^-35,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:*\,O,-60,//O,60,$12:\*^-15,O,60,//O,-60
+  )
+endfont
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
 %----------------------------------------------------------------------------
 \begin{mplibcode}
-fsize:=(80mm,35mm);
 beginfont("EN:Paclitaxel","MW:853.918")
-  MCat(0.8,0.5)(
+  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,
     {4^35,4^-35,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:*\,O,-60,//O,60,$12:\*^-15,O,60,//O,-60
   )
   ext(
-    label.lrt("("&inf_EN&")",(0,h));
     defaultscale:=0.8;
     label.lrt("FM(C): "&cal_FM,(0,h-5mm));
     label.lrt("MW(C): "&cal_MW,(0,h-9mm));
@@ -245,132 +229,120 @@ beginfont("EN:Paclitaxel","MW:853.918")
   )
 endfont
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newpage
+%----------------------------------------------------------------------------
+\subsection{Vancomycin}
+\noindent%
+%----------------------------------------------------------------------------
 \begin{verbatim}
-?6,5=d,3:@,|=1,36,45,45,45,45,=|,$5:#,
--4=?6,-4=?4,||,-1=wb,-3=wf,-1:O,
-{4^35,4^-35,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:*\,O,-60,//O,60,
-$12:\*^-15,O,60,//O,-60)
+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:#,=|,
+  {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,!,/!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)
+endfont;
 \end{verbatim}
-\end{minipage}
-\vspace{7mm}\\
 %----------------------------------------------------------------------------
-\noindent
 \begin{mplibcode}
-fsize:=(80mm,70mm);
 beginfont("NO:6","EN:Vancomycin","MW:1449.25");
-  MCat(0.9,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:@,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,!,/!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));
-      defaultscale:=0.8;
-      label.lrt("FM(C): "&cal_FM,(0,h-5mm));
-      label.lrt("MW(C): "&cal_MW,(0,h-9mm));
-      label.lrt("MW(D): "&inf_MW,(0,h-13mm));
-    )
+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:#,=|,
+  {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,!,/!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(
+    defaultscale:=0.8;
+    label.lrt("FM(C): "&cal_FM,(0,h-4mm));
+    label.lrt("MW(C): "&cal_MW,(0,h-8mm));
+    label.lrt("MW(D): "&inf_MW,(0,h-12mm));
+  )
 endfont;
 \end{mplibcode}
-\begin{minipage}[b]{85mm}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Maitotoxin}
+\noindent%
+%--------------------------------------------------------------------------------
 \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,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
+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,
+   {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)
+endfont
 \end{verbatim}
-\end{minipage}
-\vspace{10mm}\\%
-%----------------------------------------------------------------------------
+%--------------------------------------------------------------------------------
 \begin{mplibcode}
-  fsize:=(170mm,70mm);
-  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,
-    {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
-    )
-    ext(
-      label.lrt("("&inf_EN&")",(0,.8h));
-      defaultscale:=0.8;
-      label.lrt("FM(C): "&cal_FM,(0,.8h-5mm));
-      label.lrt("MW(C): "&cal_MW,(0,.8h-9mm));
-      label.lrt("MW(D): "&inf_MW,(0,.8h-13mm));
-    )
-  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,
+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,
    {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,
+     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,
+   {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}%
-%----------------------------------------------------------------------------
+            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;
+     label.lrt("FM(C): "&cal_FM,(0,.8h-5mm));
+     label.lrt("MW(C): "&cal_MW,(0,.8h-9mm));
+     label.lrt("MW(D): "&inf_MW,(0,.8h-13mm));
+   )
+endfont
+\end{mplibcode}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \newpage
+\subsection{TCA cycle}
+\noindent%
 \begin{mplibcode}
 beginfont("EN:TCA cycle")
 fsize:=(160mm,75mm);
 max_blength:=5mm;
 %------------------------------------------------------------------------
-MCat(0.33,   1)(<30,O[-1],!,//O,!,//O,!2,//O,!,O[-1])
-MCat(0.66,   1)(<30,O[-1],!,//O,!4,//O,!,O[-1],-4`1:\,//O,!,O[-1],4:/OH^-165)
-MCat(1,      1)(<30,O[-1],!,//O,!2,!~dr,!,//O,!,O[-1],-4`1:\,//O,!,O[-1])
-MCat(1,   0.55)(<30,O[-1],!,//O,!4,//O,!,O[-1],-4:\`1,//O,!,O[-1])
-MCat(1,   0.05)(<30,O[-1],!,//O,!3,//O,!,//O,!,O[-1],-4:\`1,//O,!,O[-1])
-MCat(0.66,0.05)(<30,O[-1],!,//O,!3,//O,!,//O,!,O[-1])
-MCat(0.33,0.05)(<30,O[-1],!,//O,!3,//O,!,"{S-CoA}")
-MCat(0,   0.05)(<30,O[-1],!,//O,!3,//O,!,O[-1])
-MCat(0,   0.55)(<30,O[-1],!,//O,!,!~dr,!,//O,!,O[-1])
-MCat(0,      1)(<30,O[-1],!,//O,!3,//O,!,O[-1],3:/OH)
+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)
 %-------------------------------------------------------------------------
 ext(
 defaultfont:="uhvr8r";
@@ -381,7 +353,7 @@ def sel_dir(expr rot)=
   if     (nA<30)or(nA>330):   def tx=top enddef; elseif (nA>=30)and(nA<=150):  def tx=lft enddef;
   elseif (nA>150)and(nA<210): def tx=bot enddef; elseif (nA>=210)and(nA<=330): def tx=rt enddef; fi
 enddef;
-def r_arrow(expr a)(expr r)(expr p)(expr sa,la)(expr sb,lb)(expr sc,lc)(expr sd,ld)=
+def reaction_arrow(expr a)(expr r)(expr p)(expr sa,la)(expr sb,lb)(expr sc,lc)(expr sd,ld)=
   drawarrow ((0,0)..(a,0)) rotated r shifted p;
   if sa<>"": draw ((0.5a,0){dir 180}..{dir 90}(0,.5a*la)) rotated r shifted p;
              sel_dir(r); label.tx(sa,p+((0,0.5a*la) rotated r)); fi
@@ -392,6 +364,9 @@ def r_arrow(expr a)(expr r)(expr p)(expr sa,la)(expr sb,lb)(expr sc,lc)(expr sd,
   if sd<>"": draw ((0.5a,0){dir 0}..{dir -90}(a,-.5a*ld)) rotated r shifted p;
              sel_dir(r+180); label.tx(sd,p+((a,-0.5a*ld) rotated r)); fi
 enddef;
+def r_arrow(expr a)(expr r)(expr p)(expr sc,lc)(expr sd,ld)=
+   reaction_arrow(a)(r)(p)("",0)("",0)(sc,lc)(sd,ld)
+enddef;
 %------------------------------------------------------------------------
 save dx; pair dx; dx:=(12mm,0);
 label.bot("Oxaloacetate",p1+dx);   label.bot("Citrate",p2+dx);
@@ -401,35 +376,38 @@ label.bot("Succinyl-CoA",p7+dx);   label.bot("Succinate",p8+dx);
 label.bot("Fumarate",p9+dx);       label.bot("L-Malate",p10+dx);
 sw_label_emu:=1;
 ext_setup;
-r_arrow(10mm)(  0)(p1+(1.1w1,.3h1))("",0)("",0)("Acetyl-CoA",1.5)(" CoA-SH",1);
-r_arrow(10mm)(  0)(p2+(1.1w2,.4h2))("",0)("",0)("",0)("H_2_O",1);
-r_arrow( 8mm)(270)(p3+(.5w3,-.4h3))("",0)("",0)("H_2_O",1)("",0);
-r_arrow( 8mm)(270)(p4+(.5w4,-.4h4))("",0)("",0)("NAD^+",1)("NADH2^+",1);
-r_arrow(10mm)(180)(p5+(-.1w5,.4h5))("",0)("",0)("",0)("CO_2_",1);
-r_arrow(10mm)(180)(p6+(-.1w6,.5h6))("",0)("",0)("NAD^+^,CoA-SH",1.7)("NADH2^+^,CO_2",1);
-r_arrow(10mm)(180)(p7+(-.1w7,.5h7))("",0)("",0)("GDP,Pi",1.7)("GTP,CoA-SH",1);
-r_arrow( 8mm)( 90)(p8+(.4w8,1.2h8))("",0)("",0)("FAD",1)("FADH2",1);
-r_arrow( 8mm)( 90)(p9+(.4w9,1.2h9))("",0)("",0)("H_2_O",1)("",0);
-r_arrow(10mm)(  0)(p10+(1.1w10,.3h10))("",0)("",0)("NAD^+",1)("NADH2^+",1.5);
+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)(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);
 defaultscale:=1.5;
 label("TCA-cycle",(0.5w,0.5h));
 )
 endfont
 \end{mplibcode}
+%------------------------------------------------------------------------
 \begin{verbatim}
 beginfont("EN:TCA cycle")
 fsize:=(160mm,75mm);
 max_blength:=5mm;
-MCat(0.33,   1)(<30,O[-1],!,//O,!,//O,!2,//O,!,O[-1])
-MCat(0.66,   1)(<30,O[-1],!,//O,!4,//O,!,O[-1],-4`1:\,//O,!,O[-1],4:/OH^-165)
-MCat(1,      1)(<30,O[-1],!,//O,!2,!~dr,!,//O,!,O[-1],-4`1:\,//O,!,O[-1])
-MCat(1,   0.55)(<30,O[-1],!,//O,!4,//O,!,O[-1],-4:\`1,//O,!,O[-1])
-MCat(1,   0.05)(<30,O[-1],!,//O,!3,//O,!,//O,!,O[-1],-4:\`1,//O,!,O[-1])
-MCat(0.66,0.05)(<30,O[-1],!,//O,!3,//O,!,//O,!,O[-1])
-MCat(0.33,0.05)(<30,O[-1],!,//O,!3,//O,!,"{S-CoA}")
-MCat(0,   0.05)(<30,O[-1],!,//O,!3,//O,!,O[-1])
-MCat(0,   0.55)(<30,O[-1],!,//O,!,!~dr,!,//O,!,O[-1])
-MCat(0,      1)(<30,O[-1],!,//O,!3,//O,!,O[-1],3:/OH)
+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)
 ext(
 defaultfont:="uhvr8r";
 defaultscale:=0.75;
@@ -442,16 +420,16 @@ label.bot("Succinyl-CoA",p7+dx);   label.bot("Succinate",p8+dx);
 label.bot("Fumarate",p9+dx);       label.bot("L-Malate",p10+dx);
 sw_label_emu:=1;
 ext_setup;
-r_arrow(10mm)(  0)(p1+(1.1w1,.3h1))("",0)("",0)("Acetyl-CoA",1.5)(" CoA-SH",1);
-r_arrow(10mm)(  0)(p2+(1.1w2,.4h2))("",0)("",0)("",0)("H_2_O",1);
-r_arrow( 8mm)(270)(p3+(.5w3,-.4h3))("",0)("",0)("H_2_O",1)("",0);
-r_arrow( 8mm)(270)(p4+(.5w4,-.4h4))("",0)("",0)("NAD^+",1)("NADH2^+",1);
-r_arrow(10mm)(180)(p5+(-.1w5,.4h5))("",0)("",0)("",0)("CO_2_",1);
-r_arrow(10mm)(180)(p6+(-.1w6,.5h6))("",0)("",0)("NAD^+^,CoA-SH",1.7)("NADH2^+^,CO_2",1);
-r_arrow(10mm)(180)(p7+(-.1w7,.5h7))("",0)("",0)("GDP,Pi",1.7)("GTP,CoA-SH",1);
-r_arrow( 8mm)( 90)(p8+(.4w8,1.2h8))("",0)("",0)("FAD",1)("FADH2",1);
-r_arrow( 8mm)( 90)(p9+(.4w9,1.2h9))("",0)("",0)("H_2_O",1)("",0);
-r_arrow(10mm)(  0)(p10+(1.1w10,.3h10))("",0)("",0)("NAD^+",1)("NADH2^+",1.5);
+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)(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);
 defaultscale:=1.5;
 label("TCA-cycle",(0.5w,0.5h));
 )
-- 
cgit v1.2.3

