diff options
author | Karl Berry <karl@freefriends.org> | 2015-09-14 21:53:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-09-14 21:53:39 +0000 |
commit | ac4c34e7f36adcd9f1b3ecd0179ddbd29daafcce (patch) | |
tree | 1160e584640d0d521f4c2fa649c27a94c60f2f39 /Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf | |
parent | cff80758b2cb544e0baf284598f9dcb1df8de2ab (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.mf | 159 |
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()") |