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.mf79
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,!)