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 | 43 |
1 files changed, 15 insertions, 28 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 7669ddb210e..e36123c5a99 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.04.10 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2016.07.10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mcf2graph.mf; %------------------------------------------------------------------------ @@ -13,19 +13,6 @@ sw_expand:=0; sw_start_vector:=0; %%%%%sw_checklist:=1; %*********************************************************************** -beginfont("NO:1","EN:Chlorophyll a","MW:893.49","FM:C55H72MgN4O5") - font_wd#:=80mm#; - font_ht#:=30mm#; - MCf(<54, - {,``1,?5,3\,54,?5,-2\,54,?5,-2\,54,,?5,-2\,&5, - -1*,24,/*COOMe^15,72,//O,&1,}, - 4\`1.48,Mg,&17,-1*,&11~vb,-1*,&23~vb, - $(2,5,7,9,11,14,16,20,26,27)dl,@(4,11,17,23)N, - @(2,9,15,20~zf)/Me,8:/Et,14\,!~dr, - 21*,-6~wf,!2,//O,!,O,!2,!~dl,|,!13,@(1,5,9,13)/Me, - ) -endfont -%*********************************************************************** beginfont("EN:Chain 1") sw_numberB:=1; numberB_end:=6; @@ -83,7 +70,7 @@ endfont %*********************************************************************** beginfont("EN:change bond 3") ratio_chain_ring:=1; - MCf(<30,!5,1=bz,$(2,4)dr,@(3~bd^-45`2,5~ov^45`2)/Me) + MCf(<30,!3,!`2,!,$(2,4)dr,@(3~bd`2^-30,5~ov^85`3,3~bz`3^-70)/Me) endfont %*********************************************************************** beginfont("EN:change bond length1") @@ -505,25 +492,25 @@ MCf(<30,?6,-4=?5,$(3,8)dl,@(2,6,7,9)N,@(2,6,9)/Me,@(1,5)//O) endfont %*********************************************************************** %% Output additional infomation -beginfont("EN:Tocopherol","CAS:59-02-9") +beginfont("EN:Tocopherol","CAS:59-02-9","FM:C29H50O2","MW:430.71") sw_logout:=1; 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") -MCf(<30,Ph,3=?6,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!) +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") +beginfont("EN:Ampicillin","CAS:69-53-4","FM:C16H19N3O4S","MW:349.40") 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 + 4*\^75,NH,!,//O,!,/*NH2,!,Ph ) endfont %*********************************************************************** -beginfont("EN:Cholesterol") +beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") MCf( <30,?6,$(-4,-2)?6,-4=?5,7=dl, 1:*/OH,@(4,12)*/Me^60,9:*/H^60, @@ -532,20 +519,20 @@ beginfont("EN:Cholesterol") ) endfont %*************************************************************************** -beginfont("EN:Colchicine") +beginfont("EN:Colchicine","CAS:477-27-0","FM:C21H23NO6","MW:385.41") MCf(<30,Ph,@(1,2,6)/OMe,|,-4=?7, - |,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OMe, + |,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OH, #9\,NH,!,//O,!) endfont %*************************************************************************** -beginfont("EN:Lycorine") +beginfont("EN:Lycorine","CAS:476-28-8","FM:C16H17NO4","MW:287.31") 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"); +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, @@ -554,17 +541,17 @@ beginfont("EN:Gibberellin A3"); ) endfont %*************************************************************************** -beginfont("EN:Quinine") +beginfont("EN:Quinine","CAS:130-95-0","FM:C20H24N2O2","MW:324.42") 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") +beginfont("EN:Atoropin","CAS:51-55-8","FM:C17H23NO3","MW:289.37") 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") +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,||, @(4^35,4^-35,6)/Me,@(3^-60,15)*/OH,8:/*H^-60,9:*/Me^60,10://O, |