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 | 99 |
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,}, ,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||, |