diff options
author | Norbert Preining <norbert@preining.info> | 2021-03-22 03:01:03 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-03-22 03:01:03 +0000 |
commit | 159aa77bf48b6a49ba55e9105f19191dce9f7862 (patch) | |
tree | 04d572f80936b9de73c104392120db705c399220 /graphics/mcf2graph/mcf_mplib_exa.tex | |
parent | 86a0e007d01f87228d2363faf90a2a3b65cf758f (diff) |
CTAN sync 202103220301
Diffstat (limited to 'graphics/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r-- | graphics/mcf2graph/mcf_mplib_exa.tex | 136 |
1 files changed, 54 insertions, 82 deletions
diff --git a/graphics/mcf2graph/mcf_mplib_exa.tex b/graphics/mcf2graph/mcf_mplib_exa.tex index d063f98ab8..3d31e5f4ed 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.03.07 +% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2021.03.21 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%% mcf2graph.mf must be version 4.60 +%%% mcf2graph.mf must be version 4.61 \documentclass{article} %------------------------------------------------------------------------------ \usepackage{luamplib}% @@ -33,63 +33,6 @@ Author : Akira Yamaji \quad Date : \today\\ Located at : http://www.ctan.org/pkg/mcf2graph\vspace{2mm}\\ \end{center} -%---------------------------------------------------------------------------- -\section{Change color} -\noindent% -\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:=(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} -%---------------------------------------------------------------------------- -\section{Change font} -\noindent% -\begin{minipage}[b]{60mm} -\begin{verbatim} -(use with metapost only) -%---------------- -atomfont:="cmr8"; -%---------------- -MC( - <30,Ph,{2,5}:N,3:/NH2,4:/COOH -) - -\end{verbatim} -%---------------------------------------------------------------------------- -\end{minipage} -\begin{mplibcode} - 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} %------------------------------------------------------------------------------------ \section{MCF example} \noindent% @@ -104,14 +47,14 @@ MC( beginfont("NO:1","EN:Chlorophyll a","MW:893.49", %----------------------------------------------------------------------- ": <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,\,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}:/_ ") %----------------------------------------------------------------------- fsize:=(100mm,50mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi endfont \end{verbatim} %------------------------------------------------------------------------------------ @@ -119,14 +62,14 @@ endfont beginfont("NO:1","EN:Chlorophyll a","MW:893.49", %----------------------------------------------------------------------- ": <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,\,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}:/_ ") %----------------------------------------------------------------------- fsize:=(100mm,50mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); @@ -145,8 +88,8 @@ beginfont("NO:4","EN:Gibberellin A3","MW:346.37", ": @5,40~zf`1,O,60,//O^180,&14~zb, ", ": 2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1,4}:*/H^60 ") %-------------------------------------------------------- - fsize:=(120mm,20mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + fsize:=(120mm,30mm); + if check(mc)=0: MC(scantokens(mc)) fi endfont; \end{verbatim} %---------------------------------------------------------------------------- @@ -157,8 +100,8 @@ beginfont("NO:4","EN:Gibberellin A3","MW:346.37", ": @5,40~zf`1,O,60,//O^180,&14~zb, ", ": 2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1,4}:*/H^60 ") %-------------------------------------------------------- - fsize:=(120mm,20mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + fsize:=(120mm,30mm); + if check(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); @@ -168,6 +111,7 @@ beginfont("NO:4","EN:Gibberellin A3","MW:346.37", endfont; \end{mplibcode} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newpage \subsection{Erythromycin} \noindent% %---------------------------------------------------------------------------- @@ -177,11 +121,11 @@ beginfont("NO:5","EN:Erythromycin","MW:733.93", ": <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?! ") %------------------------------------------------------------------ fsize:=(120mm,35mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi endfont; \end{verbatim} %---------------------------------------------------------------------------- @@ -191,11 +135,11 @@ beginfont("NO:5","EN:Erythromycin","MW:733.93", ": <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?! ") %------------------------------------------------------------------ fsize:=(120mm,35mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); @@ -216,7 +160,7 @@ beginfont("EN:Paclitaxel","MW:853.918", ": @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr ") %--------------------------------------------------------------------- fsize:=(120mm,35mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi endfont \end{verbatim} %---------------------------------------------------------------------------- @@ -229,7 +173,35 @@ beginfont("EN:Paclitaxel","MW:853.918", ": @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr ") %--------------------------------------------------------------------- fsize:=(120mm,35mm); - if check_mc(mc)=0: MC(scantokens(mc)) fi + if check(mc)=0: MC(scantokens(mc)) fi + 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} +%---------------------------------------------------------------------------- +\subsection{Kekulene} +\noindent% +\begin{verbatim} +beginfont("EN:Kekulene","MW:600.7", + %----------------------------------------------------------------------- + ": <30,Ph,{3,-2,-3,-2,-3,-2,-3,-2,-3,-2}=?6,(-3,6)=?6[3],@-4,&6, ", + ": {8,12,14,16,18,22,24,26,28,32,34,36,38,42,44,46,48,52,54,56,58}=dl ") + %----------------------------------------------------------------------- + fsize:=(120mm,25mm); + if check(mc)=0: MC(scantokens(mc)) fi +endfont +\end{verbatim} +%---------------------------------------------------------------------------- +\begin{mplibcode} +beginfont("EN:Kekulene","MW:600.7", + ": <30,Ph,{3,-2,-3,-2,-3,-2,-3,-2,-3,-2}=?6,(-3,6)=?6[3],@-4,&6, ", + ": {8,12,14,16,18,22,24,26,28,32,34,36,38,42,44,46,48,52,54,56,58}=dl ") + fsize:=(120mm,25mm); + if check(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); @@ -249,7 +221,7 @@ 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, + @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,!, @@ -263,7 +235,7 @@ 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, + @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,!, @@ -318,10 +290,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,\,|,!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 + @$36,-45~zf,O,30,SOO,30,"O{Na}", + @$150,\,|,!7,{1,2}:/*OH,4:*/_,5:/*_,7=dl ) ext( defaultscale:=0.8; |