summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
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.mf43
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,},
&#5,-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,