diff options
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 | 224 |
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,}, + ,-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 |