texlive[41814] Master/texmf-dist: mcf2graph (6aug16)
commits+karl at tug.org
commits+karl at tug.org
Sun Aug 7 00:38:49 CEST 2016
Revision: 41814
http://tug.org/svn/texlive?view=revision&revision=41814
Author: karl
Date: 2016-08-07 00:38:49 +0200 (Sun, 07 Aug 2016)
Log Message:
-----------
mcf2graph (6aug16)
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
Added Paths:
-----------
trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-035.eps
Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/CHANGELOG 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,6 +1,11 @@
*******************************************************************************
- Changelog of mcf2graph software package by Akira Yamaji 2016-07-10
+ Changelog of mcf2graph software package by Akira Yamaji 2016-08-06
*******************************************************************************
+[ver. 3.96 / 2016-08-06]
+ -large scaled rings can fuse
+ 5,6,7,8 membered ring scaled 11/10,12/10,13/10,14/10,15/10
+ -update MCF syntax manual
+
[ver. 3.95 / 2016-07-10]
-improve bond type 'ov'
-update MCF syntax manual and example
Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/README
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/README 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/README 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,7 +1,7 @@
********************************************************************************
mcf2graph : Convert Molecular Coding Format to graphics with METAFONT/METAPOST
Author : Akira Yamaji
- version : 3.95 2016-07-10
+ version : 3.96 2016-08-06
E-mail : mcf2graph at gmail.com
Located at : http://www.ctan.org/pkg/mcf2graph
********************************************************************************
@@ -19,7 +19,7 @@
( 3) mcf2graph.mf Macro of Metafont / Metapost
( 4) mcf_manual.tex MCF syntax manual(LaTeX file)
( 5) mcf_man_soc.mf Molecular difinition file for mcf_manual.tex
- ( 6) mcf_man_soc-035.eps No.31 EPS(with color) file of (4)
+ ( 6) mcf_man_soc-042.eps No.42 EPS(with color) file of (4)
( 7) mcf_manual.pdf PDF of (4) (used LaTeX,dvipdfmx)
( 8) mcf_example.tex LaTeX example,
Make file 'mcf_exa_soc-info.aux' before typeset
Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2016.06.19
+% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2016.08.06
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%-------------------------------------------------------------------------
@@ -27,7 +27,7 @@
%%%% sw_checklist:=1;
%%%% sw_MOLout:=1;
%%%% outputformat:="png"; hppp:=vppp:=0.1; outputtemplate:="%j-%3c.png";
-%***************************************************************************
+%**************************************************************************
beginfont("EN:Acetamiprid")
MCf(<30,Ph,4\,!,NH,!,!~dr,N,!,CN)
endfont
@@ -92,8 +92,8 @@
endfont
%***************************************************************************
beginfont("EN:Endosulfan");
- MCf(<30,?6`1.3,3=?7,2*,210~wf`1.45,&5~wb,6=d,
- @(1,2,5,6,12^-210,12^-150)/Cl,@(8,10)O,9:S,9://O)
+ MCf(<26,?7,7=?6[13],11*,208~wf`1.45,&8~wb,10=dl,@(3,5)O,4:S,4://O,
+ @(8,9,10,11,12^-210,12^-150)/Cl)
endfont;
%***************************************************************************
beginfont("EN:Flutolanil")
@@ -220,10 +220,9 @@
endfont
%**************************************************************************
beginfont("EN:Gibberellin A3");
- MCf(<12,?6`1.3,3=?5,9=?7,12\^160`1.6,&8,
- 4\^155~zf`1.2,O,55,//O^180`1,&2~zb,
- 5=dl,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me,
- @(3^-60,9^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,50,//O^180,&14~zb,
+ 2:/COOH,7://Me,13:*/OH,8:/*OH,14:*/Me,@(1^60,4^60)*/H)
endfont;
%**************************************************************************
beginfont("EN:Cholesterol")
@@ -390,5 +389,3 @@
endfont
%***************************************************************************
bye
-*****
-bye
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 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typeset by LaTeX mcf_examples.tex by A.Yamaji 2016.7.10
+% Example of MCF typeset by LaTeX mcf_examples.tex by A.Yamaji 2016.8.06
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[a4paper]{article}
\usepackage{graphicx}
Deleted: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-035.eps
===================================================================
(Binary files differ)
Added: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps 2016-08-06 22:38:49 UTC (rev 41814)
Property changes on: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc-042.eps
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/postscript
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2016.07.10
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2016.08.06
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%------------------------------------------------------------------------
@@ -37,6 +37,13 @@
sw_numberA:=1;
max_bond_width:=0.20;
ratio_chain_ring:=1;
+ MCf(<30,!6,3*,0,!,5*,-30)
+endfont
+%***********************************************************************
+beginfont("EN:Jump and Branch")
+ sw_numberA:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
MCf(<30,!6,3\,!)
endfont
%***********************************************************************
@@ -60,19 +67,29 @@
%***********************************************************************
beginfont("EN:change bond 1")
ratio_chain_ring:=1;
- MCf(<30,!~dm,!~dl,!~dr,!~wf,!~wb,!~zf,!~zb)
+ MCf(<30,!~dm,!~dl,!~dr,!~tm)
endfont
%***********************************************************************
beginfont("EN:change bond 2")
ratio_chain_ring:=1;
- MCf(<30,!5,1=vf,2=vb,3=tm,4=dt,5=wv)
+ MCf(<30,!~wf,!~wb,!~zf,!~zb)
endfont
%***********************************************************************
beginfont("EN:change bond 3")
ratio_chain_ring:=1;
- MCf(<30,!3,!`2,!,$(2,4)dr,@(3~bd`2^-30,5~ov^85`3,3~bz`3^-70)/Me)
+ MCf(<30,!4,1=vf,2=vb,3=dt,4=wv)
endfont
%***********************************************************************
+beginfont("EN:change bond 4")
+ ratio_chain_ring:=1;
+ MCf(<30,!3,!`2,!,@(3~bd`2^-30,5~ov^85`3,3~bz`3^-70)/Me)
+endfont
+%***********************************************************************
+beginfont("EN:change bond 4")
+ ratio_chain_ring:=1;
+ MCf(<30,!7,$(2,4,6)dr)
+endfont
+%***********************************************************************
beginfont("EN:change bond length1")
sw_start_vector:=1;
sw_numberB:=1;
@@ -85,6 +102,12 @@
MCf(<30,!2,``1.2,!4)
endfont
%***********************************************************************
+beginfont("EN:Make brock")
+ sw_start_vector:=1;
+ sw_numberB:=1;
+ MCf(<30,!2,{,``1.2,!2,},!2)
+endfont
+%***********************************************************************
beginfont("EN:change ring length")
sw_start_vector:=1;
MCf(?6,4\,?6`1.2,5=?6,11=?6)
@@ -107,12 +130,18 @@
MCd(.7,1)(.5,0)(?6,4\,?6)
endfont
%***********************************************************************
-beginfont("EN:change atom brock address")
- MCd(.7,1)(.5,1)(?6,4\,|,?6,2:O,||,2:N)
+beginfont("EN:change atom brock address 1")
+ MCd(.7,1)(.5,1)(?6,4\,|,?6,2:O)
sw_numberA:=1;
MCd(.7,.5)(.5,0)(?6,4\,?6)
endfont
%***********************************************************************
+beginfont("EN:change atom brock address 2")
+ MCd(.7,1)(.5,1)(?6,4\,|,?6,||,2:N)
+ sw_numberA:=1;
+ MCd(.7,.5)(.5,0)(?6,4\,?6)
+endfont
+%***********************************************************************
beginfont("EN:change atom absolute address")
MCd(.7,1)(.5,1)(?6,4\,?6,#2:N)
sw_numberA:=1;
@@ -125,12 +154,16 @@
MCd(.7,1)(.5,0)(?6,4\,?6)
endfont
%***********************************************************************
-beginfont("EN:fused ring 1")
- sw_start_vector:=1;
+beginfont("EN:fused ring")
sw_numberB:=1;
- MCf(<30,?6,3=?5,$(3)dt,$(7,8,9,10)bd)
+ MCf(<30,?6,3=?6,$(3)dt,$(7,8,9,10,11)bd)
endfont
%***********************************************************************
+beginfont("EN:fused large 6 ring")
+ sw_numberB:=1;
+ MCf(<30,?6,3=?6[13],$(3)dt,$(7,8,9,10,11)bd)
+endfont
+%***********************************************************************
beginfont("EN:fused ring 1")
sw_start_vector:=1;
sw_numberB:=1;
@@ -146,11 +179,16 @@
%***********************************************************************
beginfont("EN:fused ring 3")
sw_numberB:=1;
- MCd(1,.55)(0 ,0)(?6,$(3,10)?6,(16,4)=?6[3],$(16,4)dt,$(17,18,19)bd)
- MCd(1,.5)(.5,1)(?6,$(3,10)?6,(16,4)=?5[2],$(16,4)dt,$(17,18)bd)
- MCd(1,.60)(1 ,0)(?6,$(3,10,15)?6,(21,4)=?6[2],$(21,4)dt,$(22,23)bd)
+ MCd(1,.6)(0,1)(?6,$(3,10)?6,(16,4)=?6[3],$(16,4)dt,$(17,18,19)bd)
+ MCd(1,.6)(1,0)(?6,$(3,10)?6,(16,4)=?5[2],$(16,4)dt,$(17,18)bd)
endfont
%***********************************************************************
+beginfont("EN:fused ring 4")
+ max_bond_width:=0.15;
+ sw_numberB:=1;
+ MCf(<-30,?6,$(3,10,15)?6,(21,4)=?6[2],$(21,4)dt,$(22,23)bd)
+endfont
+%***********************************************************************
beginfont("EN:Spiro ring ")
sw_numberA:=1;
numberA_end:=7;
@@ -498,10 +536,6 @@
endfont
%***********************************************************************
%% Change infomation separater
-beginfont("EN:Warfarin","CAS:81-81-2","FM:C19H16O4","MW:308.33")
-MCf(<30,Ph,3=?6,8=dl,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!)
-endfont
-%***********************************************************************
beginfont("EN:Ampicillin","CAS:69-53-4","FM:C16H19N3O4S","MW:349.40")
MCf(<45,
?4,2:N,2=?5,-1:S,
@@ -518,7 +552,25 @@
-1\^17,/*Me,!4,/Me,!,
)
endfont
+%***********************************************************************
+beginfont("EN:Warfarin","CAS:81-81-2","FM:C19H16O4","MW:308.33")
+ MCf(
+ <30,Ph,3=?6,8=dl,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!
+ )
+endfont
%***************************************************************************
+beginfont("EN:Limonin")
+ 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)/Me,@(1^60,5^180,16^60)/*H,
+ 14\*,|,?5,$(1,4)dl,3:O)
+endfont
+%***************************************************************************
+beginfont("EN:Sesamine")
+ MCf(<54,?5,1=?5,@(4,7)O,@(1^-54,2^54)*/H,
+ #5*\^-12,Ph,|,-3=?5,@(-1,-3)O,#8*\^-12,Ph,|,-3=?5,@(-1,-3)O)
+endfont
+%***************************************************************************
beginfont("EN:Colchicine","CAS:477-27-0","FM:C21H23NO6","MW:385.41")
MCf(<30,Ph,@(1,2,6)/OMe,|,-4=?7,
|,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OH,
@@ -533,12 +585,9 @@
endfont
%***********************************************************************
beginfont("EN:Gibberellin A3","CAS:77-06-5","FM:C19H22O6","MW:346.37");
- MCf(
- <12,?6`1.3,3=?5,9=?7,12\^160`1.6,&8,
- 4\^155~zf`1.2,O,55,//O^180`1,&2~zb,
- 5=dl,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me,
- @(3^-60,9^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,50,//O^180,&14~zb,
+ 2:/COOH,7://Me,13:*/OH,8:/*OH,14:*/Me,@(1^60,4^60)*/H)
endfont
%***************************************************************************
beginfont("EN:Quinine","CAS:130-95-0","FM:C20H24N2O2","MW:324.42")
@@ -551,6 +600,12 @@
#1\~zb^-120,|,?7`1.1,6*\^190`1.25,N,/Me,&3~wb,#3\~wv,!,OH)
endfont
%***************************************************************************
+beginfont("EN:Validamycin")
+ MCf(<30,?6,@(5,6)/OH,3\,-60,OH,
+ #4\,O,-60,|,?6,2:O,@(3,4,5,6)/OH,
+ #1\,NH,!,|,?6,2=d,@(4,5,6)/OH,-4\,!,OH)
+endfont
+%***************************************************************************
beginfont("EN:Paclitaxel","CAS:33069-62-4","FM:C47H51NO14","MW:853.91")
MCf(?6,5=d,3*,{,``1,36,45,45,45,45,},
,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,
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 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format manual by Akira Yamaji 2016.07.10
+% Molecular Coding Format manual by Akira Yamaji 2016.08.06
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[a4paper]{article}
\usepackage{graphicx}
@@ -96,7 +96,7 @@
MCf(<45,?4,2:N,2=?5,-1:S, > begin MCF (1)
@(3^45,4^-45)/*H,1://O^15,5:/*COOH^-18, >
@(6^35,6^-35)/Me, >
- 4\^75,NH,!,//O,!,NH,!,Ph) > end MCF
+ 4\^75,NH,!,//O,!,/*NH,!,Ph) > end MCF
endfont > end font
%------------------------------------------------------------------------
beginfont("NO:2","EN:Cholesterol") > begin font(information)
@@ -111,8 +111,8 @@
\end{verbatim}
%------------------------------------------------------------------------
{\bf (Molecular structure output)}\vspace{5mm}\\
-\INFO{F:mcf_man_soc,C:84,NO:1,cMW:349.40462,cFM:C16H19N3O4S,EN:Ampicillin}%
-\INFO{F:mcf_man_soc,C:85,NO:2,cMW:386.6532,cFM:C27H46O,EN:Cholesterol}%
+\INFO{F:mcf_man_soc,C:90,NO:1,cMW:349.40462,cFM:C16H19N3O4S,EN:Ampicillin}%
+\INFO{F:mcf_man_soc,C:91,NO:2,cMW:386.6532,cFM:C27H46O,EN:Cholesterol}%
\newpage
%------------------------------------------------------------------------
\noindent%
@@ -121,15 +121,15 @@
char number, molecular information,etc.
\begin{verbatim}
(sw_auxfix=0)
-F:mcf_man_soc;C:85;cMW:349.40462;cFM:C16H19N3O4S;EN:Ampicillin
-F:mcf_man_soc;C:86;cMW:386.6532;cFM:C27H46O;EN:Cholesterol
+F:mcf_man_soc;C:90;cMW:349.40462;cFM:C16H19N3O4S;EN:Ampicillin
+F:mcf_man_soc;C:91;cMW:386.6532;cFM:C27H46O;EN:Cholesterol
.....................................................
.....................................................
(sw_auxfix=1)
F;C;cMW;cFM;EN
-mcf_man_soc;85;349.40462;C16H19N3O4S;Ampicillin
-mcf_man_soc;86;386.6532;C27H46O;Cholesterol
+mcf_man_soc;90;349.40462;C16H19N3O4S;Ampicillin
+mcf_man_soc;91;386.6532;C27H46O;Cholesterol
......................................
......................................
@@ -173,8 +173,8 @@
%--------------------------------------------------------------------
\begin{document}
\unitlength=1mm%
-\INFO{F:mcf_man_soc,C:85,NO:1,cMW:349.40462,cFM:C16H19N3O4S,EN:Ampicillin}%
-\INFO{F:mcf_man_soc,C:86,NO:2,cMW:386.6532,cFM:C27H46O,EN:Cholesterol}%
+\INFO{F:mcf_man_soc,C:90,NO:1,cMW:349.40462,cFM:C16H19N3O4S,EN:Ampicillin}%
+\INFO{F:mcf_man_soc,C:91,NO:2,cMW:386.6532,cFM:C27H46O,EN:Cholesterol}%
\end{document}
%--------------------------------------------------------------------
\end{verbatim}\vspace{5mm}%
@@ -213,11 +213,9 @@
\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Jump to atom and branch bond}
\begin{verbatim}
-3* : Jump to A3
-3\ : 3*,0
+n* : Jump to An
- <30,!6,3*,0,!
- <30,!6,3\, !
+ <30,!6,3*,0,!,5*,-30
** An(-999<=n<=4095): atom number
\end{verbatim}
@@ -226,6 +224,18 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Jump to atom and branch bond}
+\begin{verbatim}
+3\ : 3*,0
+
+ <30,!6,3\,!
+
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Connect atom}
\begin{verbatim}
&n : Connect to An
@@ -267,12 +277,12 @@
\MCFtitle{Change bond type (1)}
\begin{verbatim}
a~type : ~~type,a
-dm:double middle,
-dl:double left side, dr:double right side,
-wf:wedge forward, wb:wedge backward,
-zf:wedge dotted, zb:wedge dotted backward
+dm : double middle
+dl : double left side
+dr : double right side
+tm : triple
- <30,!~dm,!~dl,!~dr,!~wf,!~wb,!~zf,!~zb
+ <30,!~dm,!~dl,!~dr,!~tm
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -279,16 +289,30 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Change bond type (1)}
+\begin{verbatim}
+a~type : ~~type,a
+wf : wedge forward
+wb : wedge backward
+zf : wedge dotted
+zb : wedge dotted backward
+
+ <30,!~wf,!~wb,!~zf,!~zb
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Change bond type (2)}
\begin{verbatim}
Bn=bond type : change bond type at Bn
vf : vector forward
vb : vector backward
-tm : triple
dt : dotted
wv : wave
- <30,!6,1=vf,2=vb,3=tm,4=dt,5=bz,5=wv
+ <30,!4,1=vf,2=vb,3=dt,4=wv
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -300,9 +324,8 @@
bd : broad single
bz : broad dotted
ov : over line
-$(2,4)dr : 2=dr,4=dr
-<30,!3,!`2,!,$(2,4)dr,
+<30,!3,!`2,!,
@(3~bd`2^-30,5~ov`3^85,3~bz`3^-70)/Me
** 3~bd^-45`2 : ~~bd,^^-45,'`2,3
@@ -312,9 +335,21 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Change bond type (4)}
+\begin{verbatim}
+$(2,4,6)dr : 2=dr,4=dr,6=dr
+
+<30,!7,$(2,4,6)dr
+
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Change bond length (1)}
\begin{verbatim}
-(!,!n,?n)`length : change length of !,!n,?n
+(!,!n)`length : change length of !,!n
<30,!2,!2`1.2,!2
@@ -336,6 +371,18 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Make block}
+\begin{verbatim}
+{ : start brock
+} : end brock
+
+ <30,!2,{,``1.2,!2,},!2
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Change ring length}
\begin{verbatim}
?n`length : change ring length
@@ -385,12 +432,22 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Change atom (brock address)}
+\MCFtitle{Change atom (brock address 1)}
\begin{verbatim}
| : divide brock
+
+?6,4\,|,?6,2:O
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Change atom (brock address 2)}
+\begin{verbatim}
|| : reset brock adress
-?6,4\,|,?6,2:O,||,2:N
+?6,4\,|,?6,||,2:N
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -425,9 +482,9 @@
\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Fuse ring (attached 1 bond)}
\begin{verbatim}
-?6,3=?5 : fuse ?5 at B3
+?6,3=?6 : fuse ?6 at B3
- ?6,3=?5
+ ?6,3=?6
** Bn(n:-999<=n<=4095): bond number
\end{verbatim}
@@ -436,6 +493,20 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Fuse large ring (attached 1 bond)}
+\begin{verbatim}
+?6,3=?6[13] : fuse ?6[13] at B3
+?6[13]: 6 membered ring scaled 13/10
+
+ ?6,3=?6[13]
+
+** ?m[n] (5<=m<=8,11<=n<=15)
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
\MCFtitle{Fuse multi ring (attached 1 bond)}
\begin{verbatim}
@@ -457,6 +528,8 @@
MCd(1,.7)( 0,0)(<30,?6,3=?6,(11,4)=?6[4])
MCd(1,.6)(.54,1)(<30,?6,3=?6,(11,4)=?5[3])
MCd(1,.6)( 1,0)(<30,?6,3=?6,(11,4)=?4[2])
+
+** ?m[n] (4<=m<=6,n=m-2)
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -463,15 +536,28 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Fuse ring (attached 3,4 bond)}
+\MCFtitle{Fuse ring (attached 3 bond)}
\begin{verbatim}
(16,4)=?6[3] : fuse 3/6 ring to B16..B4
(16,4)=?5[2] : fuse 2/5 ring to B16..B4
+
+MCd(1,.55)(0,0)(?6,$(3,10)?6,(16,4)=?6[3])
+MCd(1,.55)(1,0)(?6,$(3,10)?6,(16,4)=?5[2])
+
+** ?m[n] (5<=m<=6,n=m-3)
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Fuse ring (attached 4 bond)}
+\begin{verbatim}
(21,4)=?6[2] : fuse 2/6 ring to B21..B4
-MCd(1,.55)( 0,0)(?6,$(3,10)?6,(16,4)=?6[3])
-MCd(1,.55)(.5,1)(?6,$(3,10)?6,(16,4)=?5[2])
-MCd(1,.68)(1, 0)(?6,$(3,10,15)?6,(21,4)=?6[2])
+MCf(<-30,?6,$(3,10,15)?6,(21,4)=?6[2])
+
+** ?m[n] (m=6,n=2)
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -672,8 +758,8 @@
\end{minipage}
%%%%\MCFstructure % for Metafont
\makebox(72,3.5)[t]{\frame{\makebox(68,42.3)%
-{\includegraphics{mcf_man_soc-035.eps}}}}% for dvipdfmx
-%%%%{\includegraphics[width=30mm]{mcf_man_soc-035.png}}}}% for pdfLaTeX
+{\includegraphics{mcf_man_soc-042.eps}}}}% for dvipdfmx
+%%%%{\includegraphics[width=30mm]{mcf_man_soc-042.png}}}}% for pdfLaTeX
\advance\fontnum\@ne\relax\advance\tempnum\@ne\relax%
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
@@ -1203,11 +1289,11 @@
\MCFtitle{Change aux information delimiter}
\begin{verbatim}
aux_delimiter:="/";
-beginfont("EN:Warfarin","CAS:81-81-2")
+beginfont("EN:Ampicillin","CAS:69-53-4")
MCf(...) endfont
%% Output to mcf_man_soc-info.aux %%
-F:mcf_man_soc/C:87/EN:Warfarin/CAS:81-81-2
+F:mcf_man_soc/C:90/EN:Ampicillin/CAS:69-53-4
**default aux_delimiter=";"
@@ -1222,11 +1308,11 @@
tag3:="NO"; var3:="inf_NO";
tag4:="EN"; var4:="inf_EN";
sw_auxfix:=1; auxtag_out;
-beginfont("EN:Ampicillin","NO:1") ... endfont
+beginfont("EN:Cholesterol","NO:1") ... endfont
%% Output to mcf_man_soc-info.aux %%
F;C;NO;EN
-mcf_man_soc;88;1;Ampicillin
+mcf_man_soc;91;1;Ampicillin
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -1233,13 +1319,11 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(1) Cholesterol}
+\MCFtitle{Example(1) Warfarin}
\begin{verbatim}
-
- <30,?6,$(-4,-2)?6,-4=?5,7=dl,
- 1:*/OH,@(4,12)*/Me^60,9:*/H^60,
- 10:/*H^180,@(11,-1)/*H^-60,
- -1\^17,/*Me,!4,/Me,!,
+ <30,Ph,3=?6,8=dl,
+ 10:O,7:/OH,9://O,
+ 8\,/Ph`1,60,!,//O,!
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -1246,8 +1330,33 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(2) Colchicine}
+\MCFtitle{Example(2) Limonin}
\begin{verbatim}
+ <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)/Me,
+ @(1^60,5^180,16^60)/*H,
+ 14\*,|,?5,$(1,4)dl,3:O
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Example(3) Sesamine}
+\begin{verbatim}
+ <54,?5,1=?5,@(4,7)O,@(1^-54,2^54)*/H,
+ #5*\^-12,Ph,|,-3=?5,@(-1,-3)O,
+ #8*\^-12,Ph,|,-3=?5,@(-1,-3)O
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Example(4) Colchicine}
+\begin{verbatim}
<30,Ph,@(1,2,6)/OMe,-4=?7,-5=?7,
$(-1,-4,-6)dl,-2://O,-3:/OH,
9\,NH,!,//O,!
@@ -1257,12 +1366,14 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(3) Lycorine}
+\MCFtitle{Example(5) Lycorine}
\begin{verbatim}
-
- <30,Ph,-4=?6,-2=?6,6=?5,(9,12)=?5[3],
- 13=dl,8:N,@(15,17)O,
- 9:/*H^180,10:*/H^60,13:*/OH,14:/*OH
+ <30,Ph,
+ -4=?6,-2=?6,6=?5,(9,12)=?5[3],
+ 13=dl,
+ 8:N,@(15,17)O,
+ 9:/*H^180,10:*/H^60,
+ 13:*/OH,14:/*OH
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -1269,13 +1380,14 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(4) Gibberellin}
+\MCFtitle{Example(6) Gibberellin}
\begin{verbatim}
- <12,?6`1.3,3=?5,9=?7,12\^160`1.6,&8,
- 4\^155~zf`1.2,O,55,//O^180`1,&2~zb,
- 5=dl,11=wf,13=wb,
- 7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me,
- @(3^-60,9^60)*/H
+ <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://Me,13:*/OH,8:/*OH,
+ 14:*/Me,@(1^60,4^60)*/H
\end{verbatim}
\end{minipage}
\MCFstructure
@@ -1282,7 +1394,7 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(5) Quinine}
+\MCFtitle{Example(7) Quinine}
\begin{verbatim}
<30,Ph,3=Ph,7:N,6:/OMe,
10\,*/OH,/H~zf^-60,!,
@@ -1295,7 +1407,7 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(6) Atoropin}
+\MCFtitle{Example(8) Atoropin}
\begin{verbatim}
<-30,O,!,//O,!,!,Ph,
#1\~zb^-120,
@@ -1307,8 +1419,19 @@
\vspace{\gpman}\\
%-----------------------------------------------------------------------------
\begin{minipage}[t][\htman]{90mm}
-\MCFtitle{Example(7) Paclitaxel}
+\MCFtitle{Example(9) Validamycin}
\begin{verbatim}
+ <30,?6,@(5,6)/OH,3\,-60,OH,
+ #4\,O,-60,|,?6,2:O,@(3,4,5,6)/OH,
+ #1\,NH,!,|,?6,2=d,@(4,5,6)/OH,-4\,!,OH
+\end{verbatim}
+\end{minipage}
+\MCFstructure
+\vspace{\gpman}\\
+%-----------------------------------------------------------------------------
+\begin{minipage}[t][\htman]{90mm}
+\MCFtitle{Example(10) Paclitaxel}
+\begin{verbatim}
?6,5=d,3*,{,``1,36,45,45,45,45,},,
-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,
@(4^35,4^-35,6)/Me,@(3^-60,15)*/OH,
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 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2016.4.27
+% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2016.8.06
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{article}
%------------------------------------------------------------------------------
@@ -133,12 +133,9 @@
\begin{mplibcode}
font_wd:=50mm; font_ht:=40mm;
beginfont("NO:4","EN:Gibberellin A3","MW:346.37");
- MCf(<12,
- ?6`1.3,3=?5,9=?7,12\^160`1.6,&8,
- 4\^155~zf`1.2,O,55,//O^180`1,&2~zb,
- 5=dl,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me,
- @(3^-60,9^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://Me,13:*/OH,8:/*OH,14:*/Me,@(1^60,4^60)*/H)
endfont;
\end{mplibcode}
\inputINFO{temp-info.aux}%
Modified: trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf
===================================================================
--- trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf 2016-08-06 22:38:33 UTC (rev 41813)
+++ trunk/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf 2016-08-06 22:38:49 UTC (rev 41814)
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% mcf2graph ver 3.95 Copyright (c) 2013-2016 Akira Yamaji
+% mcf2graph ver 3.96 Copyright (c) 2013-2016 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,
@@ -30,7 +30,7 @@
% Set output checklist : mpost -s ahlength=2 FILENAME
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
tracingstats:=1;
-message " This is mcf2graph ver 3.9 2016.7";
+message " This is mcf2graph ver 3.9 2016.8";
%-------------------------------------------------------------------------------------------------
pair posB[],posA[],pairT,Ls,Le,pairA;
numeric angB[],angA[],br_ang[],sB[],eB[],f_FON[],atom_w[],atom_h[],atom_d[],strA[],stkB[],stkA[],
@@ -252,6 +252,29 @@
PB(_pop,0) if ypart(a)<=0:: PB(_cyc_eB,ypart(a)-c+1) else:: PB(_cyc_eB,ypart(a)) fi
enddef;
%-------------------------------------------------------------------------------------------------
+def fuse_large(expr a)(expr b)(expr c) =
+ if b==5::
+ PB(_jp_bond,a) PB(_push,0) PB(_chg_len,c DIV 10) PB(_mk_bond,72-((c-9) MUL 1.5))
+ PB(_mk_bond,72+(c-9)) PB(_mk_bond,72+(c-9)) PB(_pop,0)
+ if a>=1:: PB(_cyc_eB,0) else:: PB(_cyc_eB,list) fi
+ elseif b==6::
+ PB(_jp_bond,a) PB(_push,0) PB(_chg_len,c DIV 10) PB(_mk_bond,60-(c-8))
+ PB(_mk_bond,60+((c-8) DIV 2)) PB(_mk_bond,60+((c-8) DIV 2)) PB(_mk_bond,60+((c-8) DIV 2))
+ PB(_pop,0) if a>=1:: PB(_cyc_eB,0) else:: PB(_cyc_eB,list) fi
+ elseif b==7::
+ PB(_jp_bond,a) PB(_push,0) PB(_chg_len,c DIV 10) PB(_mk_bond,(360 DIV 7)-(c-8))
+ PB(_mk_bond,360 DIV 7+((c-8) DIV 2.5)) PB(_mk_bond,360 DIV 7+((c-8) DIV 2.5))
+ PB(_mk_bond,360 DIV 7+((c-8) DIV 2.5)) PB(_mk_bond,360 DIV 7+((c-8) DIV 2.5))
+ PB(_pop,0) if a>=1:: PB(_cyc_eB,0) else:: PB(_cyc_eB,list) fi
+ elseif b==8::
+ PB(_jp_bond,a) PB(_push,0) PB(_chg_len,c DIV 10) PB(_mk_bond,(360 DIV 8)-(c-8))
+ PB(_mk_bond,(360 DIV 8)+((c-8) DIV 3)) PB(_mk_bond,(360 DIV 8)+((c-8) DIV 3))
+ PB(_mk_bond,(360 DIV 8)+((c-8) DIV 3)) PB(_mk_bond,(360 DIV 8)+((c-8) DIV 3))
+ PB(_mk_bond,(360 DIV 8)+((c-8) DIV 3))
+ PB(_pop,0) if a>=1:: PB(_cyc_eB,0) else:: PB(_cyc_eB,list) fi
+ fi
+enddef;
+%-------------------------------------------------------------------------------------------------
def PB(expr a,b)= cntBS:=cntBS+1; comMC[ab_num][cntBS]:=a; parMC[ab_num][cntBS]:=b; enddef;
def $$(text t)(expr e) =
begingroup save cntBS; cntBS:=0; ab_num:=ab_num+1;
@@ -261,7 +284,12 @@
elseif (e>=?3)and(e<=?20):: for list==t:: !?(list)(e-?3+3) endfor
elseif e==Ph1:: !?(t)(6) PB(_dl,-2) PB(_dl,-4)
elseif e==Ph2:: !?(t)(6) PB(_dl,-1) PB(_dl,-3) PB(_dl,-5)
- elseif comMC[e][1]==_fuse:: for list==t:: !!?(list)(parMC[e][1])(comMC[e][2]) endfor fi
+ elseif comMC[e][1]==_fuse::
+ if comMC[e][2]<=6:: for list==t:: !!?(list)(parMC[e][1])(comMC[e][2]) endfor
+ elseif (comMC[e][2]>=11)and(comMC[e][2]<=15)::
+ for list==t:: fuse_large(list)(parMC[e][1])(comMC[e][2]) endfor
+ fi
+ fi
elseif color e:: color_list[incr cntC]:=e;
for list==t:: PB(_set_adr,list) PB(_set_colorB,cntC) endfor fi fi
cntMC[ab_num]:=cntBS;
@@ -614,6 +642,7 @@
for i=1 upto 20: ![i]:='({{,(_get_len,0),! for j==2 upto i::,! endfor,}}); endfor
Me:='(); Et:=!; Pr:='(!2); Bu:='(!3);
for i=4,5,6: for j=2 upto i-2: ?[i][j]:='((_fuse,i),(j,0)); endfor endfor
+for i=5,6,7,8: for j=11 upto 15: ?[i][j]:='((_fuse,i),(j,0)); endfor endfor
%-------------------------------------------------------------------------------------------------
H :='("H");C:='("C");N:='("N");O:='("O");F:='("F");S:='("S");P:='("P");I:='("I");
Si:='("{Si}");Al:='("{Al}");Mg:='("{Mg}");Zn:='("{Zn}");As:='("{As}");Cu:='("{Cu}");
More information about the tex-live-commits
mailing list