texlive[47634] Master/texmf-dist: mcf2graph

commits+karl at tug.org commits+karl at tug.org
Sun May 6 23:49:48 CEST 2018


Revision: 47634
          http://tug.org/svn/texlive?view=revision&revision=47634
Author:   karl
Date:     2018-05-06 23:49:48 +0200 (Sun, 06 May 2018)
Log Message:
-----------
mcf2graph

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/README
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.pdf
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.pdf
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.pdf
    trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
    trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,11 +1,18 @@
 *******************************************************************************
- Changelog of mcf2graph software package          by Akira Yamaji 2017-01-03
+ Changelog of mcf2graph software package          by Akira Yamaji 2018-04-16
 *******************************************************************************
+[ver. 4.31  / 2018-04-16]
+  -add command */*n , n:*\* , |<=n
+     */*n  : /n~wv
+     n:*\* : n:\~wv
+     |<=n  : |<,``n
+  -update MCF manual and examples
+
 [ver. 4.30  / 2018-01-03]
   -change syntax &n
      &n => n:&
   -improve address error detection
-  -improve exand mode
+  -improve expand mode
   -update MCF manual and examples
 
 [ver. 4.29  / 2017-10-29]

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/README
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/README	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/README	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,7 +1,7 @@
 ********************************************************************************
  mcf2graph  : Convert Molecular Coding Format to graphics with METAFONT/METAPOST
  Author     : Akira Yamaji
- version    : 4.30 2018-01-03
+ version    : 4.31 2018-04-16
  E-mail     : mcf2graph at gmail.com
  Located at : http://www.ctan.org/pkg/mcf2graph
 ********************************************************************************

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,7 +1,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format for mcf_example.tex   by Akira Yamaji  2018.01.03
+% Molecular Coding Format for mcf_example.tex   by Akira Yamaji  2018.04.16
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf;   %%% it must be version 4.30 or later
+input mcf2graph.mf;   %%% it must be version 4.31 or later
 %-------------------------------------------------------------------------
 font_wd:=33mm;
 font_ht:=24mm;
@@ -177,7 +177,7 @@
 beginfont("EN:Rifampicin","MW:822.94")
   MCf(<30,Ph,6:/_^30,5:/OH,|,-6=?5,1:O,3://O,2:/*_^60,
       |,-8=?6,{2,4}=dl,{1,4}:/OH,
-      |<,``1,-2:\,NH,60,//O,-60,/_,60~dl,60,60~dl,-60,
+      |<=1,-2:\,NH,60,//O,-60,/_,60~dl,60,60~dl,-60,
       */_,60,/*OH,-60,/*_,60,/*OH,60,*/_^30,-60,
       60,/*_^30,-53,66,-53~dl,66`1.2,O,>|,$8:&,
       -4:/*O!,-6:@,-30,O,!,//O,!,$11:\,!!,N,!,|,?6,{1,4}:N,4:/_)
@@ -211,7 +211,7 @@
 endfont
 %***************************************************************************
 beginfont("EN:Chlorophyll a","MW:893.509")
-MCf(<54,|<,``1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N,
+MCf(<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:\,!!,
@@ -237,7 +237,7 @@
 endfont
 %**************************************************************************
 beginfont("EN:Tetrodotoxine","MW:319.27")
-  MCf(|<,``1,<60,-90,60,-30`1.15,150,60,$1:&,$3:@,-135,60,-30`1.15,150,$4:&,
+  MCf(|<=1,<60,-90,60,-30`1.15,150,60,$1:&,$3:@,-135,60,-30`1.15,150,$4:&,
      $10:\,O,60`1.33,60,$3~si_:&,$8:@,-15~si_,O,$12:&,>|,
      $9:@,45,-60,OH,1^120://NH,
      {5~zf^-15,7,9^-75,12,13~zf}:/OH,{2,6^180}:NH)
@@ -346,7 +346,7 @@
 endfont;
 %***************************************************************************
 beginfont("EN:Erythromycin","MW:733.937");
-MCf(<30,|<,``1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,>|,1:&,
+MCf(<30,|<=1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,>|,1:&,
     14:O,13:/*!,{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!,
@@ -354,7 +354,7 @@
 endfont;
 %**************************************************************************
 beginfont("EN:Paclitaxel","MW:853.918")
-  MCf(?6,5=d,3:@,|<,``1,36,45,45,45,45,>|,$5:&,-4=?6,-4=?4,||,-1=wb,-3=wf,-1:O,
+  MCf(?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)

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,5 +1,5 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typeset by LaTeX   mcf_examples.tex   by A.Yamaji  2018.01.03
+% Example of MCF typeset by LaTeX   mcf_examples.tex   by A.Yamaji  2018.04.16
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \documentclass[a4paper]{article}
 \usepackage{graphicx}

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,7 +1,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex  by Akira.Yamaji 2018.01.03
+% Molecular Coding Format file for mcf_manual.tex  by Akira.Yamaji 2018.04.16
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf;   %% it must be version 4.30 or later
+input mcf2graph.mf;   %% it must be version 4.31 or later
 %------------------------------------------------------------------------
 sw_auxout:=0;
 sw_mol_frame:=0;
@@ -111,7 +111,7 @@
   numberB_end:=6;
   ratio_chain_ring:=1;
 %----------------------------------------------------------------------
-  MCf(<15,-30,45,-45,30,-30,60,
+  MCf(<10,-30,45,-45,30,-30,60,
        {1^-75,2^67.5,3^-60,4^75,5^-75,6^60}:/_~dt
      )
   ext(
@@ -184,10 +184,10 @@
   margin_top_bottom:=2mm;
   sw_numberA:=1;
   sw_clip:=1;
-  numberA_end:=9;
+  numberA_end:=10;
   ratio_chain_ring:=1;
 %----------------------------------------------------------------------
-  MCf(<-30,!8,2:\,!,4:*\,!,6:\*,!,8:\\,!)
+  MCf(<-30,!10,2:\,!,4:*\,!,6:\*,!,8:\\,!,10:*\*,!)
 endfont
 %***********************************************************************
 beginfont("EN:branch2")
@@ -441,15 +441,16 @@
 endfont
 %***********************************************************************
 beginfont("EN:substituent 2")
+  font_wd:=70mm;
   font_ht:=15mm;
   sw_clip:=1;
-  MCf(<-30,!`1,//O,!2`1,/*H,!2`1,*/H,!2`1,**?3,!`1)
+  MCf(<-30,!`1,//O,!2`1,/*H,!2`1,*/H,!2`1,*/*H,!2`1,**?3,!`1)
 endfont
 %***********************************************************************
 beginfont("EN:substituent 3")
   font_ht:=18mm;
   sw_clip:=1;
-  MCf(<30,``1,!2,/_~zf`2^30,!2,*/!2>lr,!2,*/!2>rl,!)
+  MCf(<30,``1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!)
 endfont
 %***********************************************************************
 beginfont("EN:substituent 3")
@@ -475,7 +476,7 @@
   margin_top_bottom:=2mm;
   sw_clip:=1;
   sw_numberA:=1; numberA_end:=8;
-  MCf(<30,!7`1,3:/*_`2^30,5:*/!2>lr,7:*/!2>rl)
+  MCf(<30,!7`1,3:/_`2^30,5:/!2>lr,7:/!2>rl)
 endfont
 %***********************************************************************
 beginfont("EN:chain strech direction mode 1")
@@ -906,10 +907,9 @@
   font_wd:=60mm;
   font_ht:=20mm;
   sw_font_frame:=1;
-  sw_mol_frame:=1;
-  MCc(1,1)(<30,?6)
-  sw_mol_frame:=1;
-  MCc(0.5,0.5)(<30,?6)
+  MCc(1   ,1   )(?6)
+  MCc(0.75,0.75)(?6)
+  MCc(0.5 ,0.5 )(?6)
 endfont
 %***********************************************************************
 beginfont("EN:MCf() ht1")
@@ -1067,7 +1067,7 @@
 beginfont("EN:Atoropin","CAS:51-55-8","FM:C17H23NO3","MW:289.37")
   font_ht:=25mm;
   MCf(<-30,O,!,//O,!,!,Ph,
-     $1:@,-120~zb,|,?7,6:*\^190`1.12,N,/_,3~wb:&,$3:\~wv,!,OH)
+     $1:@,-120~zb,|,?7,6:*\^190`1.12,N,/_,3~wb:&,$3:*\*,!,OH)
 endfont
 %***************************************************************************
 beginfont("EN:Rotenone");

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,5 +1,5 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%  Molecular Coding Format manual           by  Akira Yamaji 2018.01.03
+%  Molecular Coding Format manual           by  Akira Yamaji 2018.04.16
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \documentclass[a4paper]{article}
 %%%%\documentclass[a4paper,twoside]{article}
@@ -102,7 +102,7 @@
   real number plus (+): Counterclockwize 
   real number minus(-): Clockwize
 
-  <15,-30,45,-45,30,-30,60
+  <10,-30,45,-45,30,-30,60
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -134,24 +134,22 @@
 %-----------------------------------------------------------------------------
 \subsubsection{Branch bond}
 \begin{verbatim}
-  2:\  : 2:@,0
-  4:*\ : 4:@,0~wf
-  6:\* : 6:@,0~zf
-  8:\\ : 8:@,0~dm
+   2:\   :  2:@,0
+   4:*\  :  4:@,0~wf
+   6:\*  :  6:@,0~zf
+   8:\\  :  8:@,0~dm
+  10:*\* : 10:@,0~wv
 
-  <30,!8,2:\,!,4:*\,!,6:\*,!,8:\\,!
+  <30,!8,
+  2:\,!,4:*\,!,6:\*,!,8:\\,!,10:*\*,!
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
 \begin{verbatim}
-  2:\~dr  : 2:@,0~dr
-  4:\`1.5 : 4:@,0`1.5
-  6:\^15  : 6:@,0^15
-
   <-30,!6,
-  2:\~dr,!,
-  4:\`1.5,-90,
-  6:\^15,-60
+  2:\~dr,!,      : 2:@,0~dr,!
+  4:\`1.5,-90,   : 4:@,0`1.5,-90
+  6:\^15,-60     : 6:@,0^15,-60
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -448,17 +446,18 @@
 %-----------------------------------------------------------------------------
 \subsubsection{Insert modified substituent}
 \begin{verbatim}
-  // : double (double middle)
-  */ : wedge forward
-  /* : wedge dotted forward
-  ** : direct
+  //  : double (double middle)
+  */  : wedge forward
+  /*  : wedge dotted forward
+  */* : wave
+  **  : direct
 
-  <30,!,//O,!,/*H,!,*/H,!,/?3,!,**?3,!
+  <30,!,//O,!2,/*H,!2,*/H,!2,*/*H,!2,**?3,!
 \end{verbatim}
 \MCFstructure
 \vspace{-3mm}%
 \begin{verbatim}
-      //      /*      */      **
+      //      /*     */     */*     **
 \end{verbatim}
 %-----------------------------------------------------------------------------
 \begin{verbatim}
@@ -467,8 +466,8 @@
   ` : change length
   > : change enviroment
 
-  <30,``1,!,/_~zf`2^30,
-   !2,*/!2>lr,!2,*/!2>rl,!)
+  <30,``1,!,
+   /_`2^30,!2,/!2>lr,!2,/!2>rl,!)
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -493,7 +492,7 @@
   ^,`,> : change angle,length,environment
 
   <30,!7`1,
-  3:/*_`2^30,5:*/!2>lr,7:*/!2>rl
+  3:/_`2^30,5:/!2>lr,7:/!2>rl
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -566,8 +565,10 @@
 \begin{verbatim}
   |< : start brock
   >| : end brock
+  |<=n : |<,``n
 
   <30,!2,|<,``1.2,!2,>|,!2
+  <30,!2,|<=1.2,!2,>|,!2
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -983,8 +984,9 @@
     b: ratio molecular hight/font hight
 
   beginfont()
-    MCc(1,1)(<30,?6)
-    MCc(0.5,0.5)(<30,?6)
+    MCc(1   ,1   )(?6)
+    MCc(0.75,0.75)(?6)
+    MCc(0.5 ,0.5 )(?6)
   endfont
 \end{verbatim}
 \MCFstructure
@@ -1262,7 +1264,7 @@
   <-30,O,!,//O,!,!,Ph,
   $1:@,-120~zb,
   |,?7,6:*\^190`1.02,N,/_,3~wb:&,
-  $3:\~wv,!,OH
+  $3:*\*,!,OH
 \end{verbatim}
 \MCFstructure
 %-----------------------------------------------------------------------------
@@ -1293,7 +1295,7 @@
 %-----------------------------------------------------------------------------
 \subsection{Paclitaxel}
 \begin{verbatim}
-  ?6,5=d,3:@,|<,``1,36,45,45,45,45,>|,$5:&,
+  ?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,

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,7 +1,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of  MCF typest with LuaLaTeX(luamplib)     by A.Yamaji    2018.01.03
+% Example of  MCF typest with LuaLaTeX(luamplib)     by A.Yamaji    2018.04.16
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% mcf2graph.mf it must be version 4.30 or later
+%%% mcf2graph.mf it must be version 4.31 or later
 \documentclass{article}
 %------------------------------------------------------------------------------
 \usepackage{luamplib}%
@@ -41,7 +41,7 @@
   font_wd:=80mm; font_ht:=40mm;
   beginfont("NO:1","EN:Chlorophyll a","MW:893.49")
     MCd(.9,.9)(0,0.5)(<54,
-     |<,``1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N,
+     |<=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:&,
@@ -59,7 +59,7 @@
 \end{mplibcode}
 \begin{minipage}[b]{85mm}
 \begin{verbatim}
-|<,``1,?5,{2,5}=dl,4:N,3:\,54~dl,
+|<=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:&,
@@ -192,7 +192,7 @@
 font_wd:=80mm; font_ht:=35mm;
 beginfont("NO:5","EN:Erythromycin","MW:733.93");
   MCa(0.8,0.5)(
-    <30,|<,``1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,>|,1:&,
+    <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!,
@@ -209,7 +209,7 @@
 \end{mplibcode}
 \begin{minipage}[b]{85mm}
 \begin{verbatim}
-<30,|<,``1,<-120,60,60,60,-60,60,
+<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}:/*_,
@@ -226,7 +226,7 @@
 font_wd:=80mm; font_ht:=35mm;
 beginfont("EN:Paclitaxel","MW:853.918")
   MCa(0.8,0.5)(
-    ?6,5=d,3:@,|<,``1,36,45,45,45,45,>|,$5:&,-4=?6,-4=?4,||,-1=wb,-3=wf,-1:O,
+    ?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
@@ -242,7 +242,7 @@
 \end{mplibcode}
 \begin{minipage}[b]{85mm}
 \begin{verbatim}
-?6,5=d,3:@,|<,``1,36,45,45,45,45,>|,$5:&,
+?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,
@@ -260,7 +260,7 @@
 beginfont("NO:6","EN:Vancomycin","MW:1449.25");
   MCa(0.9,0)(
     <30,
-    |<,``1,!12,{1,3,12}=zf,7=wf,/H^-60,60,*/OH,60,
+    |<=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:&,>|,
@@ -282,7 +282,7 @@
 \end{mplibcode}
 \begin{minipage}[b]{85mm}
 \begin{verbatim}
-<30,|<,``1,!12,{1,3,12}=zf,7=wf,
+<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:&,

Modified: trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf
===================================================================
--- trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf	2018-05-06 21:49:18 UTC (rev 47633)
+++ trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf	2018-05-06 21:49:48 UTC (rev 47634)
@@ -1,5 +1,5 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% mcf2graph ver 4.30     Copyright (c) 2013-2018   Akira Yamaji
+% mcf2graph ver 4.31     Copyright (c) 2013-2018   Akira Yamaji
 %
 % Permission is hereby granted, free of charge, to any person obtaining a copy of this software
 % and associated documentation files (the "Software"), to deal in the Software without restriction,
@@ -31,7 +31,7 @@
 % Set to use plain.mp label,arrow : mpost -s ahlength=3 FILENAME
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 tracingstats:=1;
-message " This is mcf2graph ver 4.3  2018.01";
+message " This is mcf2graph ver 4.3  2018.04";
 %-------------------------------------------------------------------------------------------------
 newinternal nA,nB,nC,nD,nE,nF,char_num,str_cnt,sub_usr,sub_int,tbl_cnt;
 numeric save_para[],comD[][],parD[][],cntD[],tbl_str_wd[],tbl_atom[],tbl_subst[][],tbl_atom_wt[],
@@ -115,7 +115,7 @@
 def def_com(expr n)(text tx)= nA:=n; forsuffixes list=tx:: list:=nA; nA:=nA+1; endfor enddef;
 def_com(-4000)(_term,_jp_atom,_jp_atom_abs,_jp_bond,_cyc,_cyc_sB,_cyc_eB,_set_line,_chg_line,
   _dl,_mb,_N,_O,_S,_tmp_line,_chg_len,_get_len,_ring_len,_tmp_len,_rot_ang,_adj_ang,_chg_env,
-  _tmp_env,_set_colorA,_set_colorB,_postA,_postB,_postC,_postD,_postE,_postF,_postH,_stack_reset,
+  _tmp_env,_set_colorA,_set_colorB,_postA,_postB,_postC,_postD,_postE,_postF,_postG,_postH,
   _set_clr,_set_adr,_mk_bond,_set_atom,_arg_ang,_chg_atom,_tmp_rot,_fuse,_push,_pop,
   _size_a,_numeric,_jump_at,_connect_at);
 def_com(1)(si,dl,dr,db,dm,tm,wf,wb,bd,bz,zf,zb,dt,wv,nl,vf,vb,si_,wf_,wb_,bd_);
@@ -197,8 +197,8 @@
 enddef;
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 def set_def_MC=
-  save /,//,/*,*/,**,~,~~,^,^^,`,'`,<,>,>>,:>,&,:,=,\,\\,*\,\*,@,$,{,},
-       |,||,|<,>|,|:,:|,_,d,w,z,inside_def_MC;
+  save /,//,/*,*/,**,*/*,~,~~,^,^^,`,'`,<,>,>>,:>,&,:,=,\,\\,*\,\*,*\*,@,$,{,},
+       |,||,|<,>|,|<=,|:,:|,_,d,w,z,inside_def_MC;
   inside_def_MC:=1;
   _:=Me; d:=db; w:=wf; z:=zf;
   tertiarydef a=b == change_bond(a,b) enddef; 
@@ -213,13 +213,14 @@
   tertiarydef a~b == ~~b,a enddef;  tertiarydef a>b == :>b,a enddef;
   def & == _connect_at enddef;
   def @ == _jump_at enddef; def \ == @,0 enddef;
-  def \\ == \~dm enddef; def *\ == \~wf enddef; def \* == \~zf enddef;
+  def \\ == \~dm enddef; def *\ == \~wf enddef; def \* == \~zf enddef; def *\* == \~wv enddef;
+  def |: == (_push,0) enddef; def :| == (_pop,0)  enddef;
   def |< == (_push,1) enddef; def >| == (_pop,1)  enddef;
-  def | == |<,>| enddef;      def || == (_stack_reset,0) enddef;
-  def |: == (_push,0) enddef; def :| == (_pop,0)  enddef;
-  def /secondary n ==   (_postA,n) enddef;  def //secondary n == (_postB,n) enddef;
-  def */secondary n ==  (_postC,n) enddef;  def /*secondary n == (_postD,n) enddef;
-  def */*secondary n == (_postE,n) enddef;  def **secondary n == (_postF,n) enddef;
+  def |<=primary n == ``n,(_push,1) enddef;
+  def | == (_push,2) enddef;  def || == (_pop,2) enddef;
+  def /secondary n ==  (_postA,n) enddef;  def //secondary n == (_postB,n) enddef;
+  def */secondary n == (_postC,n) enddef;  def /*secondary n == (_postD,n) enddef;
+  def **secondary n == (_postF,n) enddef;  def */*secondary n == (_postG,n) enddef;  
 enddef;
 %=================================================================================================
 vardef '(text s)= ''(incr sub_usr)(s); sub_usr enddef;
@@ -658,10 +659,14 @@
   for i=n upto cntD[0]:
   com:=comD[0][i]; par:=parD[0][i];
   if     com=_push: 
-    if par=1: stkL[adrS]:=bondL; stkA[incr adrS]:=adrA:=cntA; stkB[adrS]:=adrB:=cntB;
-    elseif par=0: temp_len:=bondL; fi
-  elseif com=_pop: if par=1: adrA:=stkA[decr adrS]; adrB:=stkB[adrS]; bondL:=stkL[adrS];
-                   elseif par=0: bondL:=temp_len; fi
+    if     par=1: stkL[adrS]:=bondL; stkA[incr adrS]:=adrA:=cntA; stkB[adrS]:=adrB:=cntB;
+    elseif par=0: temp_len:=bondL;
+    elseif par=2: stkA[adrS+1]:=cntA; stkB[adrS+1]:=cntB;
+    fi
+  elseif com=_pop: if     par=1: adrA:=stkA[decr adrS]; adrB:=stkB[adrS]; bondL:=stkL[adrS];
+                   elseif par=0: bondL:=temp_len;
+                   elseif par=2: stkA[adrS+1]:=0;
+                   fi
   elseif com=_mk_bond:  if (par=0)and(rotT<>0): rotT:=0; fi  add_atom;
   elseif com=_set_adr:  adrT:=par;
   elseif com=_set_atom: strAT:=par;
@@ -671,6 +676,7 @@
   elseif com=_postD: lineT:=zf; ps_put;
   elseif com=_postE: lineT:=nl; ps_put;
   elseif com=_postF: lineT:=0;  ps_put;
+  elseif com=_postG: lineT:=wv; ps_put;
   elseif com=_postH: lineT:=nl; lenT:=_size_a; ps_put;
   elseif com=_jp_bond: termA; tempB:=getB(par); check_adrB(tempB); sB[cntB+1]:=sB[tempB]; f_bra:=1;
   elseif com=_jp_atom: termA; tempA:=getA(par); check_adrA(tempA); sB[cntB+1]:=tempA; f_bra:=1;
@@ -700,7 +706,6 @@
                    if lenT<>crR: f_lenT:=1;  fi if envT<>hz: f_envT:=1; fi
      elseif par=0: f_lineT:=f_rotT:=f_lenT:=f_envT:=rotT:=envT:=0; lineT:=si; lenT:=crR;
      fi
-  elseif com=_stack_reset: stkA[adrS+1]:=0;
   elseif com=_term:       termA;
   elseif com=_set_colorA: colorA[getA(adrT)]:=par;
   elseif com=_set_colorB: colorB[getB(adrT)]:=par;
@@ -732,9 +737,13 @@
   com:=comD[0][i]; par:=parD[0][i];
   if com=_push: if     par=1: stkM[adrS]:=envB; adrS:=adrS+1; stkA[adrS]:=adrA:=cntA;
                           stkB[adrS]:=adrB:=cntB;
-                elseif par=0: temp_len:=bondL; fi
+                elseif par=0: temp_len:=bondL;
+                elseif par=2: stkA[adrS+1]:=cntA; stkB[adrS+1]:=cntB;
+                fi
   elseif com=_pop:     if par=1: adrA:=stkA[decr adrS]; adrB:=stkB[adrS]; envB:=stkM[adrS];
-                       elseif par=0: temp_len:=bondL; fi
+                       elseif par=0: temp_len:=bondL;
+                       elseif par=2: stkA[adrS+1]:=0;
+                       fi
   elseif com=_jp_bond:  termB; tempB:=getB(par); posBs:=posA[sB[tempB]];
                         angT:=angB[tempB]; f_bra:=1; rotT:=0;
   elseif com=_jp_atom:     termB; adrT:=getA(par); posBs:=posA[adrT];
@@ -754,7 +763,7 @@
   elseif com=_cyc_sB:  f_end:=1; proc_cyc(sB[getB(par)]);
   elseif com=_cyc_eB:  f_end:=1; proc_cyc(eB[getB(par)]);
   elseif com=_term:    termB;
-  elseif com=_stack_reset:   stkA[adrS+1]:=0;
+%%%%%%%%%  elseif com=_stack_reset:   stkA[adrS+1]:=0;
   fi
   endfor
 enddef;
@@ -955,7 +964,7 @@
 R:='("R"); R1:='("{R^1^}"); R2:='("{R^2^}"); R3:='("{R^3^}"); R4:='("R^4^"); R5:='("{R^5^}");
 %-------------------------------------------------------------------------------------------------
 CHO:='("CHO"); OH:='("OH"); COOH:='("COOH"); CH2:='("C{H_2_}"); CH3:='("C{H_3_}"); CN:='("CN");
-NH2:='("N{H_2_}"); NO2:='("N{O_2_}"); SH:='("SH"); SO3:='("S{O_3_}"); NH:='(N,*/*H);
+NH2:='("N{H_2_}"); NO2:='("N{O_2_}"); SH:='("SH"); SO3:='("S{O_3_}"); NH:='(N,(_postE,H));
 NMe:=N!:='(N,/Me); iPr:=Me!:='(/Me,60); tBu:='(/Me,/Me^60,60); SO:='(S,//O);
 SOO :='(S,//O^-35,//O^35);
 OMe:=O!:='(O,!); OEt:=O!2:='(O,!x2); OPr:=O!3:='(O,!x3); OiPr:=OMe!:='(O,!,iPr); 



More information about the tex-live-commits mailing list