From 3b20e2fc53faaae132472dfb561107e62079a95e Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 5 Jun 2017 23:09:24 +0000
Subject: mcf2graph (5jun17)

git-svn-id: svn://tug.org/texlive/trunk@44468 c570f23f-e606-0410-a88d-b1316a301751
---
 .../doc/metapost/mcf2graph/mcf_mplib_exa.tex       | 99 +++++++++++-----------
 1 file changed, 50 insertions(+), 49 deletions(-)

(limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex')

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 d0ec2e29ec6..b1c902b687d 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    2017.05.03
+% Example of  MCF typest with LuaLaTeX(luamplib)     by A.Yamaji    2017.06.04
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% mcf2graph.mf it must be version 4.21 or later
+%%% mcf2graph.mf it must be version 4.23 or later
 \documentclass{article}
 %------------------------------------------------------------------------------
 \usepackage{luamplib}%
@@ -96,12 +96,12 @@
   font_wd:=90mm; font_ht:=45mm;
   beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
     MCf(<54,
-     |<,``1,?5,$(2,5)d,4:N,3\,54~dl,|,?5,$(2,4)d,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,>|,
-     4\`1.45,Mg,&17,-1*,&11~vb,-1*,&23~vb,
-     @(2,9,15,20~zf)/_,8:/!,14\,!!,
-     21*,-6~wf,!2,//O,!,O,!2,!!,|,!13,@(1,5,9,13)/_,
+     |<,``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,>|,
+     4:\`1.45,Mg,&17,-1:@,&11~vb,-1:@,&23~vb,
+     {2,9,15,20~zf}:/_,8:/!,14:\,!!,
+     21:@,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_,
    )
   endfont
 \end{mplibcode}
@@ -112,10 +112,10 @@
   font_wd:=40mm; font_ht:=35mm;
   beginfont("NO:2","EN:Limonin","MW:470.51")
   MCf(<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
+    ?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
      )
   endfont
 \end{mplibcode}
@@ -126,9 +126,9 @@
   font_wd:=80mm; font_ht:=28mm;
   beginfont("NO:3","EN:beta-carotene","MW:536.87")
     MCf(<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)/_
+      ?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}:/_
     )
   endfont
 \end{mplibcode}
@@ -138,9 +138,9 @@
 \begin{mplibcode}
 font_wd:=50mm; font_ht:=40mm;
 beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
-  MCf(<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^60,4^60)*/H)
+  MCf(<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^60,4^60}:*/H)
 endfont;
 \end{mplibcode}
 \inputINFO{temp-info.aux}%
@@ -151,10 +151,10 @@ font_wd:=55mm; font_ht:=55mm;
 beginfont("NO:5","EN:Erythromycin","MW:733.93");
   MCf(<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
+     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{mplibcode}
@@ -165,16 +165,16 @@ beginfont("NO:5","EN:Erythromycin","MW:733.93");
 font_wd:=90mm; font_ht:=55mm;
 beginfont("NO:6","EN:Vancomycin","MW:1449.25");
   MCf(<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^180,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
+    |<,``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^180,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{mplibcode}
@@ -184,27 +184,28 @@ endfont;
 \begin{mplibcode}
   font_wd:=150mm; font_ht:=70mm;
   beginfont("NO:7","EN:Maitotoxin","MW:3425.86")
-  MCf(<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\~zf^-45,O,30,SOO,30,"O{Na}",
-    #150\,|,!7,@(1,2)/*OH,4:*/_,5:/*_,7=dl
+  MCf(<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{mplibcode}
 \inputINFO{temp-info.aux}%
 \MOLcaption{110mm}{70mm}\\%
+\end{document}
 %----------------------------------------------------------------------------
 \end{document}
-- 
cgit v1.2.3

