summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r--Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex136
1 files changed, 54 insertions, 82 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
index d063f98ab81..3d31e5f4ed1 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
+++ b/Master/texmf-dist/doc/metapost/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;