summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf')
-rw-r--r--Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf99
1 files changed, 77 insertions, 22 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
index e36123c5a99..8dcf33c778e 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
@@ -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 @@ beginfont("EN:Jump and Branch")
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,17 +67,27 @@ endfont
%***********************************************************************
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")
@@ -85,6 +102,12 @@ beginfont("EN:change bond length2")
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,8 +130,14 @@ beginfont("EN:change atom 3")
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
@@ -125,10 +154,14 @@ beginfont("EN:change atom relative adress")
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")
@@ -146,9 +179,14 @@ endfont
%***********************************************************************
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 ")
@@ -498,10 +536,6 @@ MCf(<30,Ph,3=?6,7:O,@(1,2,5)/Me,8:/*Me^60,6:/OH,8\,|,!12,@(4,8)/*Me,12:/Me)
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,6 +552,24 @@ beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65")
-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,
@@ -533,12 +585,9 @@ beginfont("EN:Lycorine","CAS:476-28-8","FM:C16H17NO4","MW:287.31")
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 @@ beginfont("EN:Atoropin","CAS:51-55-8","FM:C17H23NO3","MW:289.37")
#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,},
&#5,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,