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 | 79 |
1 files changed, 61 insertions, 18 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 0cace2ff00d..bf9e92058d3 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,13 +1,13 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2017.01.15 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2017.01.29 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %% it must be version 4.08 or later +input mcf2graph.mf; %% it must be version 4.09 or later %------------------------------------------------------------------------ sw_auxout:=0; sw_mol_frame:=0; sw_expand:=0; sw_solid:=2; -%%%%%sw_checklist:=1; +%%%%%sw_report:=1; %*********************************************************************** font_wd#:=35mm#; font_ht#:=25mm#; @@ -786,9 +786,9 @@ beginfont("EN:Switwch molecular frame") endfont %*********************************************************************** beginfont("EN:Switwch atom frame") - font_ht#:=15mm#; + font_ht#:=12mm#; sw_atom_frame:=1; - MCf(<30,Ph,1:/Cl,4:/COOH,3:/OH) + MCf(<30,COOH,!0,COOH) endfont %*********************************************************************** beginfont("EN:MCd()") @@ -818,25 +818,40 @@ beginfont("EN:MCf() vt") endfont %*********************************************************************** beginfont("EN:EXT()") - font_ht#:=26mm#; + margin_left_right:=margin_top_bottom:=3mm; + font_wd#:=70mm#; + font_ht#:=35mm#; bond_len#:=8mm#; sw_font_frame:=3; - sw_mol_frame:=1; MCd(1,0.8)(0.1,0.5)(<30,Ph,2:/OH,5:/OH) MCd(1,0.8)(0.9,0.5)(<30,?6,$(3,6)dl,@(2,5)//O) - EXT(draw ((0,0)--(25mm,0)--(21mm,2mm)) shifted (0.3w,0.5h); - drawdot p0 withpen pencircle scaled 2mm; - drawdot p1 withpen pensquare scaled 2mm; - drawdot p2 withpen pensquare scaled 2mm;) + EXT( + draw ((0,0)--(25mm,0)--(21mm,2mm)) shifted (0.3w,0.52h); + draw ((4mm,-2mm)--(0,0)--(25mm,0)) shifted (0.3w,0.48h); + draw fullcircle scaled 3mm shifted p0; + drawdot p1 withpen pencircle scaled 2mm; + drawdot p2 withpen pensquare scaled 2mm; + use_font(5pt#); + puts((0.4w,0.6h))("Oxidation"); + puts((0.4w,0.35h))("Reduction"); + ) endfont %*********************************************************************** beginfont("EN:ext()") - font_wd#:=60mm#; - font_ht#:=20mm#; - bond_len#:=10mm#; - MCf(<30,Ph,4:/Cl,3:/F) - ext(draw p0--(p0+(wd,0))--(p0+(wd,ht)); - draw_vector(p6,a6-180,l); + margin_left_right:=margin_top_bottom:=3mm; + font_wd#:=70mm#; + font_ht#:=25mm#; + sw_solid:=0; + MCd(1,0.9)(0.1,0.5)(<30,Ph,3:/F,4:/Cl) + ext( + drawdot p0 withpen pencircle scaled 2mm; + draw p0--(p0+(wd,0))--(p0+(wd,ht)); + ) + MCd(1,0.9)(0.9,0.5)(<30,Ph,3:/F,4:/Cl) + ext( + draw_vector(p6,a6-180,l); + drawdot p0 withpen pensquare scaled 2mm; + draw p0--(p0+(wd,0))--(p0+(wd,ht)); ) endfont %*********************************************************************** @@ -911,7 +926,35 @@ beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") -1\^18,/*_,-60,!3,/_,!, ) endfont -%*********************************************************************** +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%*************************************************************************** +beginfont("EN:Acetamiprid","MW:222.676") + font_ht#:=20mm#; + MCf(<30,Ph,2:N,1:/Cl,4\,!,N,/_,!,/_,!!,N,!,CN) +endfont +%*************************************************************************** +beginfont("EN:Fenitrothion","MW:277.231") + font_ht#:=20mm#; + MCf(<30,!,O,!,P,//S,/O!^160,!,O,!,|,Ph,3:/_,4:/NO2) +endfont +%*************************************************************************** +beginfont("EN:Permethrin","MW:391.288") + font_ht#:=25mm#; + MCf(<-30,?3,2^-35:*/_,2^35:/*_,1\,!!,/Cl,!,Cl, + 3\,//O,!,O,!2,|,Ph,3\,O,-60,Ph) +endfont +%*************************************************************************** +beginfont("EN:Endosulfan","MW:406.904"); + font_ht#:=25mm#; + MCf(<26,?7,7=?6[13],11*,208~wf`1.45,&8~wb,10=d,@(3,5)O,4:S,4://O, + @(8,9,10,11,12^-210,12^-150)/Cl) +endfont; +%*************************************************************************** +beginfont("EN:Luciferin","MW:280.33") + MCf(<30,Ph,3=?5,8\,?5,$(9,16)d, + @(9,14)N,@(7,11)S,1:/OH,-2:*/COOH) +endfont +%*************************************************************************** beginfont("EN:Warfarin","CAS:81-81-2","FM:C19H16O4","MW:308.33") font_ht#:=25mm#; MCf(<30,Ph,3=?6,8=dl,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!) |