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 | 80 |
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") |