diff options
author | Norbert Preining <norbert@preining.info> | 2021-02-22 03:01:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-02-22 03:01:54 +0000 |
commit | 1c74c0d7614ec471bea05b5919b68e67a05dd6c1 (patch) | |
tree | 8631538e81cccc6ba01275553fc571cb4d02e349 /graphics/mcf2graph/mcf_mplib_exa.tex | |
parent | f35565737733e319e7293a9fafe1b78e87f8a14e (diff) |
CTAN sync 202102220301
Diffstat (limited to 'graphics/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r-- | graphics/mcf2graph/mcf_mplib_exa.tex | 155 |
1 files changed, 82 insertions, 73 deletions
diff --git a/graphics/mcf2graph/mcf_mplib_exa.tex b/graphics/mcf2graph/mcf_mplib_exa.tex index edf96d8953..84731a7e01 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.02.11 +% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2021.02.21 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%% mcf2graph.mf must be version 4.57 +%%% mcf2graph.mf must be version 4.58 \documentclass{article} %------------------------------------------------------------------------------ \usepackage{luamplib}% @@ -101,30 +101,32 @@ MC( \subsection{Chlorophyll a} \noindent% \begin{verbatim} -beginfont("NO:1","EN:Chlorophyll a","MW:893.49") +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,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); - MC( - <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}:/_ - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi endfont \end{verbatim} %------------------------------------------------------------------------------------ \begin{mplibcode} -beginfont("NO:1","EN:Chlorophyll a","MW:893.49") +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,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); - MC( - <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}:/_ - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); @@ -137,29 +139,32 @@ endfont \subsection{Gibberellin A3} \noindent% \begin{verbatim} -beginfont("NO:4","EN:Gibberellin A3","MW:346.37"); +beginfont("NO:4","EN:Gibberellin A3","MW:346.37", + %-------------------------------------------------------- + ": <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 ") + %-------------------------------------------------------- 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 - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi endfont; \end{verbatim} %---------------------------------------------------------------------------- \begin{mplibcode} -beginfont("NO:4","EN:Gibberellin A3","MW:346.37"); +beginfont("NO:4","EN:Gibberellin A3","MW:346.37", + %-------------------------------------------------------- + ": <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 ") + %-------------------------------------------------------- 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( - 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)); - ) + if check_mc(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} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -167,60 +172,64 @@ endfont; \noindent% %---------------------------------------------------------------------------- \begin{verbatim} -beginfont("NO:5","EN:Erythromycin","MW:733.93"); +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?! ") + %------------------------------------------------------------------ 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:/N?! - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi endfont; \end{verbatim} %---------------------------------------------------------------------------- \begin{mplibcode} -beginfont("NO:5","EN:Erythromycin","MW:733.93"); +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?! ") + %------------------------------------------------------------------ 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:/N?! - ) - 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)); - ) + if check_mc(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{Paclitaxel} \noindent% \begin{verbatim} -beginfont("EN:Paclitaxel","MW:853.918") +beginfont("EN:Paclitaxel","MW:853.918", + %--------------------------------------------------------------------- + ": ?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 ") + %--------------------------------------------------------------------- fsize:=(120mm,35mm); - MC( - ?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 - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi endfont \end{verbatim} %---------------------------------------------------------------------------- \begin{mplibcode} -beginfont("EN:Paclitaxel","MW:853.918") +beginfont("EN:Paclitaxel","MW:853.918", + %--------------------------------------------------------------------- + ": ?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 ") + %--------------------------------------------------------------------- fsize:=(120mm,35mm); - MC( - ?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 - ) + if check_mc(mc)=0: MC(scantokens(mc)) fi ext( defaultscale:=0.8; label.lrt("FM(C): "&cal_FM,(0,h-5mm)); |