From f1968eac3c6db5bdcc0de5a6131142a612d9e5ea Mon Sep 17 00:00:00 2001 From: Norbert Preining 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