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.mf224
1 files changed, 152 insertions, 72 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 67f9a314c70..f8c5c68f772 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.01.16
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2016.02.11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%------------------------------------------------------------------------
@@ -21,6 +21,46 @@ beginfont("EN:Chain")
MCf(<30,-60,60,-60,60,-60,60)
endfont
%***********************************************************************
+beginfont("EN:Chain")
+ sw_numberB:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
+ sw_start_vector:=1;
+ MCf(<30,!,!,!,!,!,!)
+endfont
+%***********************************************************************
+beginfont("EN:Chain")
+ sw_numberB:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
+ sw_start_vector:=1;
+ MCf(<30,!6)
+endfont
+%***********************************************************************
+beginfont("EN:Jump")
+ sw_numberA:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
+ sw_start_vector:=1;
+ MCf(<30,!6,3*,0,!)
+endfont
+%***********************************************************************
+beginfont("EN:Branch")
+ sw_numberA:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
+ sw_start_vector:=1;
+ MCf(<30,!6,3\,!)
+endfont
+%***********************************************************************
+beginfont("EN:Connect")
+ sw_numberA:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
+ sw_start_vector:=1;
+ MCf(<30,!6,3*,0,!,&5)
+endfont
+%***********************************************************************
beginfont("EN:ring")
sw_numberB:=1;
sw_start_vector:=1;
@@ -77,7 +117,13 @@ beginfont("EN:change atom 3")
endfont
%***********************************************************************
beginfont("EN:change atom 4")
- MCd(.5,.5)(.5,.9)(?6,4\,|,?6,2:N,||,@(2,6)O)
+ MCd(.5,.5)(.5,.9)(?6,4\,|,?6,2:N)
+ sw_numberA:=1;
+ MCd(.5,.5)(.5,.1)(?6,4\,?6)
+endfont
+%***********************************************************************
+beginfont("EN:change atom 4")
+ MCd(.5,.5)(.5,.9)(?6,4\,|,?6,||,2:N)
sw_numberA:=1;
MCd(.5,.5)(.5,.1)(?6,4\,?6)
endfont
@@ -131,15 +177,17 @@ beginfont("EN:Spiro ring ")
MCf(<30,!6,4*,?5)
endfont
%***********************************************************************
-beginfont("EN:branch")
+beginfont("EN:branch1")
sw_numberA:=1;
+ numberA_end:=9;
max_bond_width:=0.30;
ratio_chain_ring:=1;
MCf(<-30,!8,2\,!,4*\,!,6\*,!,8\\,!)
endfont
%***********************************************************************
-beginfont("EN:branch3")
+beginfont("EN:branch2")
sw_numberA:=1;
+ numberA_end:=7;
max_bond_width:=0.30;
ratio_chain_ring:=1;
MCf(<-30,!6,2\~dr,!,4\`1.5,!,6\^15,-60)
@@ -161,41 +209,41 @@ endfont
%***********************************************************************
beginfont("EN:substituent 3")
sw_numberA:=1;
- numberA_end:=_skeletonA_end;
+ numberA_end:=12;
MCf(<30,!11,2:/Me,3:/Et,6:/Pr,7:/iPr,10:/tBu,11:/Ph^-30)
endfont
%***********************************************************************
beginfont("EN:substituent 4")
- sw_numberA:=1; numberA_end:=_skeletonA_end;
+ sw_numberA:=1; numberA_end:=6;
MCf(<30,?6,@(3`2^30,3~wf,4~zf,6~wf^-30,6~zf^30)/H)
endfont
%***********************************************************************
beginfont("EN:substituent 5")
- sw_numberA:=1; numberA_end:=_skeletonA_end;
+ sw_numberA:=1; numberA_end:=8;
MCf(<30,!7`1,@(2,3)/*Me`2^30,5:*/Pr>lr,7:*/Pr>rl)
endfont
%***********************************************************************
beginfont("EN:chain strech direction mode 1")
ratio_chain_ring:=1;
MCf(
- ?4,@(3^-90,3^-30,3^90)/'(!3,"{>hz}")>hz,
- @(1^-60,1`2,1^60)/'(!2,"{>vt}")>vt
+ ?4,@(3^-90,3^-30,3^90)/'(!3,"{hz}")>hz,
+ @(1^-60,1`2,1^60)/'(!2,"{vt}")>vt
)
endfont
%***********************************************************************
beginfont("EN:chain strech direction mode 2")
ratio_chain_ring:=1;
MCf(
- <30,!6,@(3^-30,3,3^30)/'(!,!,!,"{>lr}")>lr,
- @(5^-30,5,5^30)/'(!,!,!,"{>rl}")>rl
+ <30,!6,@(3^-30,3,3^30)/'(!,!,!,"{lr}")>lr,
+ @(5^-30,5,5^30)/'(!,!,!,"{rl}")>rl
)
endfont
%***********************************************************************
beginfont("EN:chain strech direction mode 3")
ratio_chain_ring:=1;
sw_start_vector:=1;
- MCf(<-30,!6,@(6>45)/'(!3,"{>45}"),
- @(3>'(90,-90,90))/'(!3,"{>'(90,-90,90)}")
+ MCf(<-30,!6,@(6>45)/'(!3,"{45}"),
+ @(3>'(90,-90,90))/'(!3,"{'(90,-90,90)}")
)
endfont
%***********************************************************************
@@ -226,52 +274,6 @@ beginfont("EN:Inline definition")
MCf(<30,!3,/'(!,/Me,!,OH),!3)
endfont
%***********************************************************************
-beginfont("EN:Ampicillin")
- MCf(<45,
- ?4,2:N,2=?5,-1:S,
- @(3^45,4^-45)/*H,1://O^15,5:/*COOH^-18,@(6^35,6^-35)/Me,
- 4\^75,NH,!,//O,!,NH,!,Ph
- )
-endfont
-%***********************************************************************
-beginfont("EN:Cholesterol")
- MCf(
- <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,!,
- )
-endfont
-%***********************************************************************
-beginfont("EN:alfa-Tocopherol")
- MCf(<30,
- Ph,3=?6,7:O,@(1,2,5)/Me,8:/*Me^60,6:/OH,
- 8\,|,!12,@(4,8)/*Me,12:/Me
- )
-endfont
-%***********************************************************************
-beginfont("EN:Caffeine")
- MCf(<30,
- ?6,-4=?5,$(3,8)dl,@(2,6,7,9)N,@(2,6,9)/Me,@(1,5)//O
- )
-endfont
-%***********************************************************************
-beginfont("EN:Lycorine")
- MCf(<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
- )
-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
- )
-endfont
-%***********************************************************************
beginfont("EN:Font size")
font_wd#:=30mm#;%
font_ht#:=20mm#;%
@@ -410,13 +412,6 @@ beginfont("EN:margin_top_bottom")
MCd(1,1)(0.9, .5)(<30,Ph,2:/OH,5:/NH2)
endfont
%***********************************************************************
-beginfont("EN:Switwch start vector")
- sw_start_vector:=0;
- MCd(1,.6)( 0, .5)(<30,Ph,4:/Cl,3:/F)
- sw_start_vector:=1;
- MCd(1,.6)( 1, .5)(<30,Ph,4:/Cl,3:/F)
-endfont
-%***********************************************************************
beginfont("EN:Switwch numberingA")
ratio_chain_ring:=1;
numberA_start:=3; numberA_end:=8;
@@ -433,6 +428,23 @@ beginfont("EN:Switwch numberingB")
sw_numberB:=3; MCd(1,1)(.5,.1)(<30,!9)
endfont
%***********************************************************************
+beginfont("EN:Switwch substituent off")
+ MCd(1,.6)( 0, .5)(<30,Ph,4:/Cl,3:/F)
+ sw_subst_off:=1;
+ MCd(1,.6)( 1, .5)(<30,Ph,4:/Cl,3:/F)
+endfont
+%***********************************************************************
+beginfont("EN:Switwch bondtype off")
+ MCd(1,.6)( 0, .5)(<30,Ph,4:/Cl,3:/F)
+ sw_bond_single:=1;
+ MCd(1,.6)( 1, .5)(<30,Ph,4:/Cl,3:/F)
+endfont
+%***********************************************************************
+beginfont("EN:Switwch start vector")
+ sw_start_vector:=1;
+ MCf(<30,Ph,4:/Cl,3:/F)
+endfont
+%***********************************************************************
beginfont("EN:Switwch font frame")
sw_font_frame:=1;
MCf(<30,Ph,4:/Cl,3:/F)
@@ -477,15 +489,15 @@ endfont
%***********************************************************************
beginfont("EN:Local setting")
sw_mol_frame:=1;
- MCd(1,.5)(0.0,0.5)(<30,Ph,@(2)N) endfont
-beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph,@(2,4)N) endfont
-beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph,@(2,4,6)N) endfont
+ MCd(1,.5)(0.0,0.5)(<30,Ph) endfont
+beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph) endfont
+beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph) endfont
%***********************************************************************
sw_mol_frame:=1;
beginfont("EN:Global setting")
- MCd(1,.5)(0.0,0.5)(<30,Ph,@(2)N) endfont
-beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph,@(2,4)N) endfont
-beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph,@(2,4,6)N) endfont
+ MCd(1,.5)(0.0,0.5)(<30,Ph) endfont
+beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph) endfont
+beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph) endfont
sw_mol_frame:=0;
%***********************************************************************
%% Output molecular infomation
@@ -500,4 +512,72 @@ sw_logout:=1;
MCf(<30,?6,-4=?5,$(3,8)dl,@(2,6,7,9)N,@(2,6,9)/Me,@(1,5)//O)
endfont
%***********************************************************************
+beginfont("EN:Ampicillin")
+ MCf(<45,
+ ?4,2:N,2=?5,-1:S,
+ @(3^45,4^-45)/*H,1://O^15,5:/*COOH^-18,@(6^35,6^-35)/Me,
+ 4\^75,NH,!,//O,!,NH,!,Ph
+ )
+endfont
+%***********************************************************************
+beginfont("EN:Cholesterol")
+ MCf(
+ <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,!,
+ )
+endfont
+%***********************************************************************
+beginfont("EN:alfa-Tocopherol")
+ MCf(<30,
+ Ph,3=?6,7:O,@(1,2,5)/Me,8:/*Me^60,6:/OH,
+ 8\,|,!12,@(4,8)/*Me,12:/Me
+ )
+endfont
+%***************************************************************************
+beginfont("EN:Colchicine")
+ MCf(<30,Ph,@(1,2,6)/OMe,|,-4=?7,
+ |,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OMe,
+ #9\,NH,!,//O,!)
+endfont
+%***************************************************************************
+beginfont("EN:Lycorine")
+ MCf(<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
+ )
+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
+ )
+endfont
+%**************************************************************************
+beginfont("EN:Capsaicin")
+ MCf(<30,Ph,1:/OH,6:/OMe,4\,!,NH,!,//O,|,!8,-3=dr,-1:/Me)
+endfont
+%***************************************************************************
+beginfont("EN:Quinine")
+ MCf(<30,Ph,3=Ph,7:N,6:/OMe,
+ 10\,*/OH,/H~zf^-60,!,|,?6,2:N,1:*/H^60,4*\,!~dr,2*,165~zf,60,&5~zb)
+endfont
+%***************************************************************************
+beginfont("EN:Atoropin")
+ MCf(<-30,O,!,//O,!,!,Ph,
+ #1\~zb^-120,|,?7`1.1,6*\^190`1.25,N,/Me,&3~wb,#3\~wv,!,OH)
+endfont
+%***************************************************************************
+beginfont("EN:Paclitaxel")
+ 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)/Me,@(3^-60,15)*/OH,8:/*H^-60,9:*/Me^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)
+endfont
+%***********************************************************************
bye