summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-09-14 21:53:39 +0000
committerKarl Berry <karl@freefriends.org>2015-09-14 21:53:39 +0000
commitac4c34e7f36adcd9f1b3ecd0179ddbd29daafcce (patch)
tree1160e584640d0d521f4c2fa649c27a94c60f2f39 /Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
parentcff80758b2cb544e0baf284598f9dcb1df8de2ab (diff)
mcf2graph (14sep15)
git-svn-id: svn://tug.org/texlive/trunk@38374 c570f23f-e606-0410-a88d-b1316a301751
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.mf159
1 files changed, 93 insertions, 66 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 2c0ab56fa5e..2b6f04c698a 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 2015.8.28
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2015.9.12
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%-----------------------------------------------------------------------
@@ -14,15 +14,17 @@ sw_start_vector:=0;
%%%%%sw_checklist:=1;
%***********************************************************************
beginfont("EN:Chain")
-sw_numberB:=1;
- ratio_cr:=1;
+ sw_numberB:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
sw_start_vector:=1;
MCf(^^30,-60,60,-60,60,-60,60)
endfont
%***********************************************************************
beginfont("EN:Chain")
sw_numberB:=1;
- ratio_cr:=1;
+ max_bond_width:=0.20;
+ ratio_chain_ring:=1;
sw_start_vector:=1;
MCf(^^30,!,!,!,!,!,!)
endfont
@@ -39,12 +41,12 @@ beginfont("EN:rotate 1")
endfont
%***********************************************************************
beginfont("EN:change bond 1")
- ratio_cr:=1;
+ ratio_chain_ring:=1;
MCf(^^30,!~dm,!~dl,!~dr,!~wf,!~wb,!~zf,!~zb)
endfont
%***********************************************************************
beginfont("EN:change bond 2")
- ratio_cr:=1;
+ ratio_chain_ring:=1;
MCf(^^30,!9,1=vf,2=vb,3=tm,4=dt,5=wv,@(7~bd^-45`2,9~ov^45`2)/Me)
endfont
%***********************************************************************
@@ -62,7 +64,6 @@ endfont
%***********************************************************************
beginfont("EN:change bond length3")
sw_start_vector:=1;
- sw_numberB:=1;
MCf(^^30,?6,3\,?6`1.2,4=??6)
endfont
%***********************************************************************
@@ -72,110 +73,119 @@ beginfont("EN:change atom 1")
endfont
%***********************************************************************
beginfont("EN:change atom 2")
- sw_start_vector:=1;
- MCf(^^30,!6,2:O,@(3,5)N)
+ MCd(1,1)(.5,.8)(^^30,!6,2:O,@(3,5)N)
+ sw_numberA:=1;
+ MCd(1,1)(.5,.2)(^^30,!6,2:O,@(3,5)N)
endfont
%***********************************************************************
beginfont("EN:change atom 3")
- sw_start_vector:=1;
- MCf(?6,4\,?6,2:N)
+ 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")
- sw_start_vector:=1;
- MCf(?6,4\,??6,2:N)
+ MCd(.5,.5)(.5,.9)(?6,4\,?6,2:N)
+ sw_numberA:=2;
+ numberA_start:=7;
+ MCd(.5,.5)(.5,.1)(?6,4\,?6)
endfont
%***********************************************************************
beginfont("EN:change atom 5")
- sw_start_vector:=1;
- MCf(?6,4\,?6,#2:N)
+ 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 6")
- sw_start_vector:=1;
- MCf(?6,4\,?6,-2:N)
+ MCd(.5,.5)(.5,.9)(?6,4\,?6,-2:N)
+ sw_numberA:=3;
+ MCd(.5,.5)(.5,.1)(?6,4\,?6)
endfont
%***********************************************************************
beginfont("EN:fused ring 1")
sw_start_vector:=1;
sw_numberB:=1;
+ numberB_end:=6;
MCf(^^30,?6,3=?5)
endfont
%***********************************************************************
beginfont("EN:fused ring 1")
sw_start_vector:=1;
sw_numberB:=1;
- MCf(^^30,?6,$(3,3,3)?6)
+ MCf(^^30,?6,$(3,3)?6)
endfont
%***********************************************************************
beginfont("EN:fused ring 2")
- sw_start_vector:=1;
- sw_numberB:=1;
- MCf(^^30,?6,$(3,9,14)??6)
+ sw_numberB:=1;
+ numberB_end:=11;
+ MCd(1,.7)(0,0)(^^30,?6,$(3)??6,(11,4)=??6[4])
+ MCd(1,.6)(.5,1)(^^30,?6,$(3)??6,(11,4)=??5[3])
+ MCd(1,.6)(1,0)(^^30,?6,$(3)??6,(11,4)=??4[2])
endfont
%***********************************************************************
beginfont("EN:fused ring 3")
- sw_start_vector:=1;
- sw_numberB:=1;
- MCf(^^30,?6,$(3,9)??6,(11,4)=??6[4],(16,17)=??6[3],(20,5)=??4[2])
-endfont
-%***********************************************************************
-beginfont("EN:fused ring 4")
- sw_start_vector:=1;
sw_numberB:=1;
- MCf(^^30,?6,$(3,9)??6,(11,4)=??6[4],(20,5)=??5[3],(16,17)=??5[2])
+ numberB_end:=16;
+ MCd(1,.55)(0,0)(?6,$(3,10)??6,(16,4)=??6[3])
+ MCd(1,.55)(.43,1)(?6,$(3,10)??6,(16,4)=??5[2])
+ numberB_end:=21;
+ MCd(1,.53)(1,0)(^^30,?6,$(2,10,15)??6,(21,3)=??6[2])
endfont
%***********************************************************************
beginfont("EN:Spiro ring ")
- sw_start_vector:=1;
- ratio_cr:=1;
+ sw_numberA:=1;
+ numberA_end:=7;
+ ratio_chain_ring:=1;
MCf(^^30,!6,4*,?5)
endfont
%***********************************************************************
beginfont("EN:branch")
- sw_numberB:=1;
- sw_start_vector:=1;
- MCf(^^30,!3,/!2,!3)
+ sw_numberA:=1;
+ max_bond_width:=0.30;
+ ratio_chain_ring:=1;
+ MCf(^^-30,!8,2\,!,4*\,!,6\*,!,8\\,!)
endfont
%***********************************************************************
-beginfont("EN:branch")
- sw_numberB:=1;
- sw_start_vector:=1;
- MCf(^^30,!6,4\,!2)
+beginfont("EN:branch3")
+ sw_numberA:=1;
+ max_bond_width:=0.30;
+ ratio_chain_ring:=1;
+ MCf(^^-30,!6,2\~dr,!,4\`1.5,!,6\^15,-60)
endfont
%***********************************************************************
beginfont("EN:substituent 1")
- sw_start_vector:=1;
- MCf(^^30,!,//O,!,/*H,!,*/H,!,/?3,!,**?3,!)
+ MCf(^^30,!,/Me,!,/Et,!3,/Pr,!,/iPr,!3,/tBu,!,/Ph^-30,!)
endfont
%***********************************************************************
beginfont("EN:substituent 2")
sw_start_vector:=1;
- MCf(^^30,!,/Me,!,/Et,!3,/Pr,!,/iPr,!3,/tBu,!)
+ MCf(^^30,!,//O,!,/*H,!,*/H,!,/?3,!,**?3,!)
endfont
%***********************************************************************
beginfont("EN:substituent 3")
sw_start_vector:=1;
- MCf(^^30,!10,2:/Me,3:/Et,6:/Pr,7:/iPr,10:/tBu)
+ MCf(^^30,!`1,/Me~zf`2^30,!`1,/Me~zf`2^30,!2`1,*/Pr>lr,!2`1,*/Pr>rl,!`1)
+endfont
+%***********************************************************************
+beginfont("EN:substituent 3")
+ sw_numberA:=1;
+ numberA_end:=_skeletonA_end;
+ MCf(^^30,!11,2:/Me,3:/Et,6:/Pr,7:/iPr,10:/tBu,11:/Ph^-30)
endfont
%***********************************************************************
beginfont("EN:substituent 4")
- sw_start_vector:=1;
+ sw_numberA:=1; numberA_end:=_skeletonA_end;
MCf(^^30,?6,@(3`2^30,3~wf,4~zf,6~wf^-30,6~zf^30)/H)
endfont
%***********************************************************************
beginfont("EN:substituent 5")
- sw_start_vector:=1;
- MCf(^^30,!7`1,@(2,3)/*Me`2^30,5:*/Pr>lr,7:*/Pr>rl
-)
-endfont
-%***********************************************************************
-beginfont("EN:change atom and substituent")
- sw_start_vector:=1;
- MCf(^^30,!3,NH,!,SOO,!3)
+ sw_numberA:=1; numberA_end:=_skeletonA_end;
+ 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`1.5,1^60)/'(!2,"{>vt}")>vt
@@ -183,6 +193,7 @@ beginfont("EN:chain strech direction mode 1")
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
@@ -190,12 +201,18 @@ beginfont("EN:chain strech direction mode 2")
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))/'(!,!,!,"{>'(90,-90,90)}")
)
endfont
%***********************************************************************
+beginfont("EN:change atom and substituent")
+ sw_start_vector:=1;
+ MCf(^^30,!3,NH,!,SOO,!3)
+endfont
+%***********************************************************************
beginfont("EN:Change color")
sw_start_vector:=1;
MCf(^^30,Ph,@(2,5)N,2:red,5:blue,3=green)
@@ -258,7 +275,7 @@ 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,
+ 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
)
@@ -388,7 +405,7 @@ beginfont("EN:margin_left_right")
MCd(1,1)(0.5, .9)(^^30,CH3,!0,!17,CH3)
margin_left_right:=0.4mm;
MCd(1,1)(0.5, .5)(^^30,CH3,!0,!17,CH3)
- margin_left_right:=2mm;
+ margin_left_right:=5mm;
MCd(1,1)(0.5, .1)(^^30,CH3,!0,!17,CH3)
endfont
%***********************************************************************
@@ -398,27 +415,37 @@ beginfont("EN:margin_top_bottom")
MCd(1,1)(0.1, .5)(^^30,Ph,2:/OH,5:/NH2)
margin_top_bottom:=0.4mm;
MCd(1,1)(0.5, .5)(^^30,Ph,2:/OH,5:/NH2)
- margin_top_bottom:=2mm;
+ margin_top_bottom:=5mm;
MCd(1,1)(0.9, .5)(^^30,Ph,2:/OH,5:/NH2)
endfont
%***********************************************************************
beginfont("EN:Switwch start vector")
sw_start_vector:=0;
- MCd(1,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 0, .5)(^^30,Ph,4:/Cl,3:/F)
sw_start_vector:=1;
- MCd(1,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 1, .5)(^^30,Ph,4:/Cl,3:/F)
endfont
%***********************************************************************
beginfont("EN:Switwch numberingA")
+ ratio_chain_ring:=1;
+ numberA_start:=3; numberA_end:=8;
sw_numberA:=1;
- sw_start_vector:=1;
- MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et)
+ MCd(1,1)(.5,.9)(^^30,!9)
+ sw_numberA:=2;
+ MCd(1,1)(.5,.5)(^^30,!9)
+ sw_numberA:=3;
+ MCd(1,1)(.5,.1)(^^30,!9)
endfont
%***********************************************************************
beginfont("EN:Switwch numberingB")
+ ratio_chain_ring:=1;
+ numberB_start:=3; numberB_end:=8;
sw_numberB:=1;
- sw_start_vector:=1;
- MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et)
+ MCd(1,1)(.5,.9)(^^30,!9)
+ sw_numberB:=2;
+ MCd(1,1)(.5,.5)(^^30,!9)
+ sw_numberB:=3;
+ MCd(1,1)(.5,.1)(^^30,!9)
endfont
%***********************************************************************
beginfont("EN:Switwch font frame")
@@ -427,9 +454,9 @@ beginfont("EN:Switwch font frame")
endfont
%***********************************************************************
beginfont("EN:Switwch molecular frame")
- MCd(1,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 0, .5)(^^30,Ph,4:/Cl,3:/F)
sw_mol_frame:=1;
- MCd(1,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 1, .5)(^^30,Ph,4:/Cl,3:/F)
endfont
%***********************************************************************
beginfont("EN:Switwch atom frame")
@@ -438,15 +465,15 @@ beginfont("EN:Switwch atom frame")
endfont
%***********************************************************************
beginfont("EN:Switwch Solid ratio")
- MCd(1,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 0, .5)(^^30,Ph,4:/Cl,3:/F)
sw_solid:=1; ratio_bond_width:=0.08;
- MCd(1,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F)
+ MCd(1,.7)( 1, .5)(^^30,Ph,4:/Cl,3:/F)
endfont
%***********************************************************************
beginfont("EN:Switwch Expand")
- MCd(1,.6)(0, 0)(^^30,Ph,4:/COOH,3:/NH2)
+ MCd(1,.6)(0, .5)(^^30,Ph,4:/COOH,3:/NH2)
sw_expand:=1;
- MCd(1,.6)(1, 1)(^^30,Ph,4:/COOH,3:/NH2)
+ MCd(1,.6)(1, .5)(^^30,Ph,4:/COOH,3:/NH2)
endfont
%***********************************************************************
beginfont("EN:MCd()")