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.mf80
1 files changed, 41 insertions, 39 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 d9fd8811323..f0b051ade6b 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2019.03.10
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2019.05.11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %% it must be version 4.40 or later
+input mcf2graph.mf; %% it must be version 4.41 or later
%------------------------------------------------------------------------
sw_mframe:=0;
sw_expand:=0;
@@ -11,6 +11,8 @@ sw_expand:=0;
%***********************************************************************
fsize:=(35mm,25mm);
blength:=6mm;
+%-------------------------------------------------------------------------
+%ext(defaultscale:=.5; label.bot(decimal(char_num)&":"&inf_EN,(.5w,0));)
%***********************************************************************
beginfont("EN:Glycine")
MC(<30,NH2,!0,!,COOH)
@@ -109,7 +111,7 @@ beginfont("EN:Chain 1")
MC(<10,-30,45,-45,30,-30,60,
{1^-75,2^67.5,3^-60,4^75,5^-75,6^60}:/_~dt
)
- ext(
+ add(
defaultscale:=0.5;
labeloffset:=2bp;
drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B1dir-90)}.7[B1s,B1e];
@@ -136,7 +138,7 @@ beginfont("EN:Chain 2")
MC(<30,!6,
{1^-60,2^60,3^-60,4^60,5^-60,6^60}:/_~dt
)
- ext(
+ add(
defaultscale:=0.5;
labeloffset:=2bp;
drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B1dir-90)}.7[B1s,B1e];
@@ -226,7 +228,7 @@ beginfont("EN:rotate 1")
labeloffset:=2bp;
MC(``1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf,
{3,4^180}:/_~dt)
- ext(
+ add(
drawarrow .7[B6s,B6e]{dir(B6dir+90)}..{dir(B3dir+90)}.7[B3s,B3e];
label.urt("90",.7[B6s,B6e]);
drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B4dir-90)}.7[B4s,B4e];
@@ -508,10 +510,10 @@ beginfont("EN:Change color,font")
defaultsize:=10bp;
fmargin:=(3mm,1mm);
MCat(0.25,0)(<30,Ph,{2,5}:N,3:/NH2,2:red,5:blue,3=green)
- ext(label.lft("(draw)",p0+(0,.9h));)
+ add(label.lft("(draw)",p0+(0,.9h));)
atomfont:="cmr8";
MCat(1,0)(<30,Ph,{2,5}:N,3:/NH2)
- ext(label.lft("(cmr8)",p0+(0,.9h));)
+ add(label.lft("(cmr8)",p0+(0,.9h));)
endfont
%***********************************************************************
beginfont("EN:Make brock")
@@ -552,17 +554,17 @@ beginfont("EN:mangle")
blength:=6mm;
mangle:=0;
MCat(0.2,0.5)(Ph)
- ext(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);)
+ add(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);)
mangle:=30;
MCat(0.8,0.5)(Ph)
- ext(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);)
+ add(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);)
endfont
%***********************************************************************
beginfont("EN:blength=0")
sw_fframe:=3;
fsize:=(40mm,15mm);
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -575,7 +577,7 @@ beginfont("EN:0<blength=<1")
fsize:=(40mm,15mm);
blength:=0.1;
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -588,7 +590,7 @@ beginfont("EN:blength>1")
fsize:=(40mm,15mm);
blength:=8mm;
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -602,7 +604,7 @@ beginfont("EN:msize=(1)")
fsize:=(40mm,15mm);
msize:=(1,1);
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -616,7 +618,7 @@ beginfont("EN:msize=(0.25,1)")
fsize:=(40mm,15mm);
msize:=(0.25,1);
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -630,7 +632,7 @@ beginfont("EN:msize=(11mm,11mm)")
fsize:=(40mm,15mm);
msize:=(11mm,11mm);
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -662,7 +664,7 @@ beginfont("EN:mposition")
msize:=(1,0.8);
mposition:=(10mm,4mm);
MC(<30,Ph)
- EXT(drawdot p1 withpen pencircle scaled 3pt;
+ ext(drawdot p1 withpen pencircle scaled 3pt;
pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -675,7 +677,7 @@ beginfont("EN:Font size")
fsize:=(40mm,15mm);
sw_fframe:=1;
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -689,7 +691,7 @@ beginfont("EN:fmargin")
sw_mframe:=1;
fmargin:=(10mm,3mm);
MC(<30,Ph)
- EXT(pickup pencircle scaled 0.2pt;
+ ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor
@@ -964,7 +966,7 @@ beginfont("EN:MCat()")
for i=1 step -0.25 until 0:
for j=0 step 0.25 until 1:
MCat(j,i)(Ph,4:N)
- ext(
+ add(
drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);
label(decimal(mangle),p0+(0.5w,0.5h));
)
@@ -973,23 +975,39 @@ beginfont("EN:MCat()")
endfor
endfont
%***********************************************************************
-beginfont("EN:EXT()")
+beginfont("EN:add()")
+ fsize:=(50mm,20mm);
+ msize:=(1,0.7); MCat(0,0.5)(<30,?6,3=dl,4:/CH3)
+ add(
+ label.top("+",A7);
+ drawarrow B3{dir(B3dir-90)}..
+ {dir(B7dir+90)}0.4[B7s,B7e];
+ )
+ msize:=(1,0.7); MCat(1,0.5)(<30,?6,4://CH3)
+ add(
+ labeloffset:=0bp;
+ label.lrt("+",A3);
+ )
+ ext(drawdblarrow (0.4w,0.5h)..(0.55w,0.5h);)
+endfont
+%***********************************************************************
+beginfont("EN:ext()")
fsize:=(70mm,30mm);
blength:=0.065;
sw_label_emu:=1;
%
MCat(0.1,0.5)(<-210,60`1,60`1,60`1,{1,3}=dl,1:/R1,4:/R2^-60)
- ext(
+ add(
defaultscale:=0.6;
label.bot("Diene",p0+(0.5w,0));
)
MCat(0.4,0.5)(<-30,-60`1,1=dl,1:/R3,2:/R4^60)
- ext(
+ add(
defaultscale:=0.6;
label.bot("Dienophile",p0+(0.5w,0));
)
MCat(0.9,0.5)(<30,?6,6=dl,2:/R2,3:/R4,4:/R3,5:/R1)
- EXT(
+ ext(
drawarrow (0.52w,0.5h)..(0.6w,0.5h);
defaultscale:=0.7;
label("+",(0.25w,0.5h));
@@ -997,22 +1015,6 @@ beginfont("EN:EXT()")
label.bot("Diels-Alder Reaction",(0.5w,h));
)
endfont
-%***********************************************************************
-beginfont("EN:ext()")
- fsize:=(50mm,20mm);
- msize:=(1,0.7); MCat(0,0.5)(<30,?6,3=dl,4:/CH3)
- ext(
- label.top("+",A7);
- drawarrow B3{dir(B3dir-90)}..
- {dir(B7dir+90)}0.4[B7s,B7e];
- )
- msize:=(1,0.7); MCat(1,0.5)(<30,?6,4://CH3)
- ext(
- labeloffset:=0bp;
- label.lrt("+",A3);
- )
- EXT(drawdblarrow (0.4w,0.5h)..(0.55w,0.5h);)
-endfont
sw_trimming:=1;
%***************************************************************************
beginfont("EN:Acetamiprid","MW:222.676")