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.mf316
1 files changed, 217 insertions, 99 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 04ed57fe0c2..74652a2e7b4 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
@@ -1,8 +1,8 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.03.07
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.03.21
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %% it must be version 4.60
-message "mcf_man_soc 2021.03.07"; message "";
+input mcf2graph.mf; %% it must be version 4.61
+message "mcf_man_soc 2021.03.21"; message "";
%------------------------------------------------------------------------
sw_mframe:=0;
sw_expand:=0;
@@ -15,120 +15,120 @@ fsize:=(40mm,25mm);
blength:=6mm;
%***********************************************************************
beginfont("EN:Glycine",":<30,NH2,!2,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Alanine",":<30,NH2,!~wb,/_,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Valine",":<30,NH2,!~wb,/!?!,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Leucine",":<30,NH2,!~wb,/!?!,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Isoleucine",":<30,NH2,!~wb,/'(/*_,!2),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Serine",":<30,NH2,!~wb,/!OH,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Threonine",":<30,NH2,!~wb,/'(/_,!~wf,OH),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Cysteine",":<30,NH2,!~wb,/!SH,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Methionine",":<30,NH2,!~wb,/'(!2,S,!),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Phenylalanine",":<30,NH2,!~wb,/!Ph,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Tyrosine",":<30,NH2,!~wb,/'(!Ph,-3:/OH),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Triptophan",
":<30,NH2,!~wb,!,COOH,@2,\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Prorine",":<18,?5,3:NH,4:*/COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Glutamine",
":<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!,//O,!,NH2")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Asparagine",":<30,NH2,!~wb,/'(!,//O,!,NH2),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Aspartic acid",":<30,NH2,!~wb,/!COOH,!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Glutamic acid",":<30,NH2,!~wb,/'(!2,COOH),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Lysine",":<30,NH2,!~wb,/'(!4,NH2),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Arginine",
":<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!2,NH,!,//NH,!,NH2")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Hystidine",
":<30,NH2,!~wb,!,COOH,@2,\,!,|,?5,{1,3}=dl,3:N,5:NH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-DOPA",":<30,NH2,!~wb,!,COOH,@2,\,!,Ph,{-3,-4}:/OH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:Ornithine",":<30,NH2,!~wb,/'(!3,NH2),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:Citrulline",":<30,NH2,!~wb,/'(!3,NH,!,//O,!,NH2),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:GABA",":<30,NH2,!4,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:amino Levulinic acid",":<30,NH2,!2,//O,!3,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:4-amino benzoic acid",":<30,Ph,1:/NH2,4:/COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Carboxyl glutamic acid",
":<30,NH2,!~wb,/'(!,/COOH,!,COOH),!,COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:L-Hydroxy Prorine",":<18,?5,1:/OH,3:NH,4:*/COOH")
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -261,10 +261,17 @@ endfont
beginfont("EN:change bond 1")
fsize:=(70mm,12mm);
fmargin:=(2mm,3mm);
- blength:=8mm;
- sw_trimming:=1;
+ sw_trimming:=0;
ratio_chain_ring:=1;
MC(<-30,!~dm,!,!~dl,!,!~dr,!~db,!~db,!,!~tm)
+ add(defaultscale:=0.6; labeloffset:=0;
+ label.rt("(dm)",A1+(0,-0.8l));
+ label.rt("(dl)",A3+(0,-0.8l));
+ label.rt("(dr)",A5+(0,-0.8l));
+ label.rt("(db)",A6+(0,-0.3l));
+ label.rt("(db)",A7+(0,-0.8l));
+ label.rt("(tm)",A9+(0,-0.8l));
+ )
endfont
%***********************************************************************
beginfont("EN:change bond 2")
@@ -274,6 +281,12 @@ beginfont("EN:change bond 2")
sw_trimming:=1;
ratio_chain_ring:=1;
MC(<-30,!~wf,!,!~wb,!,!~zf,!,!~zb)
+ add(defaultscale:=0.6; labeloffset:=0;
+ label.rt("(wf)",A1+(0,-0.7l));
+ label.rt("(wb)",A3+(0,-0.7l));
+ label.rt("(zf)",A5+(0,-0.7l));
+ label.rt("(zb)",A7+(0,-0.7l));
+ )
endfont
%***********************************************************************
beginfont("EN:change bond 3")
@@ -283,6 +296,10 @@ beginfont("EN:change bond 3")
sw_trimming:=1;
ratio_chain_ring:=1;
MC(<-30,!~vf,!,!~vb)
+ add(defaultscale:=0.6; labeloffset:=0;
+ label.rt("(vf)",A1+(0,-0.7l));
+ label.rt("(vb)",A3+(0,-0.7l));
+ )
endfont
%***********************************************************************
beginfont("EN:change bond 3")
@@ -292,6 +309,12 @@ beginfont("EN:change bond 3")
sw_trimming:=1;
ratio_chain_ring:=1;
MC(<-30,!7,1=dt,3=wv,5=bd,7=bz)
+ add(defaultscale:=0.6; labeloffset:=0;
+ label.rt("(dt)",A1+(0,-0.7l));
+ label.rt("(wv)",A3+(0,-0.7l));
+ label.rt("(bd)",A5+(0,-0.7l));
+ label.rt("(bz)",A7+(0,-0.7l));
+ )
endfont
%***********************************************************************
beginfont("EN:change bond 4")
@@ -347,6 +370,7 @@ endfont
%***********************************************************************
beginfont("EN:change atom brock address 1")
fsize:=(70mm,15mm);
+ fmargin:=(3mm,1.5mm);
MCat(0,.5)(?6,@4,\,|,?6,2:O)
sw_numberA:=1;
msize:=(1,.88);
@@ -355,6 +379,7 @@ endfont
%***********************************************************************
beginfont("EN:change atom brock address 2")
fsize:=(70mm,15mm);
+ fmargin:=(3mm,1.5mm);
MCat(0,.5)(?6,@4,\,|,?6,||,2:N)
sw_numberA:=1;
msize:=(1,.88);
@@ -363,6 +388,7 @@ endfont
%***********************************************************************
beginfont("EN:change atom absolute address")
fsize:=(70mm,15mm);
+ fmargin:=(3mm,1.5mm);
MCat(0,.5)(?6,@4,\,?6,$2:N)
sw_numberA:=1;
msize:=(1,.88);
@@ -371,6 +397,7 @@ endfont
%***********************************************************************
beginfont("EN:change atom relative adress")
fsize:=(70mm,15mm);
+ fmargin:=(3mm,1.5mm);
MCat(0,.5)(?6,@4,\,?6,-2:N)
sw_numberA:=3;
msize:=(1,.88);
@@ -411,6 +438,7 @@ endfont
%-----------------------------------------------------------------------
beginfont("EN:fuse multi ring")
fsize:=(70mm,20mm);
+ fmargin:=(2mm,2mm);
sw_numberB:=1;
sw_trimming:=1;
MC(<30,?6,{-3,-4,-4,-2,-2,-4,-4}=?6,{4,8,13,20,25,28,33}=dt)
@@ -418,6 +446,7 @@ endfont
%***********************************************************************
beginfont("EN:fused ring 2")
fsize:=(75mm,20mm);
+ fmargin:=(2mm,2mm);
sw_numberB:=1;
msize:=(1,.9);
MCat( 0,.5)(<30,?6,3=?6,(11,4)=?6[4],{11,4}=dt,{12,13,14,15}=bd)
@@ -467,7 +496,14 @@ endfont
beginfont("EN:group 2")
fsize:=(80mm,15mm);
sw_trimming:=1;
- MC(<30,!`1,//O,!2`1,/*H,!2`1,*/H,!2`1,*/*H,!2`1,**?3,!`1)
+ MC(<30,!`1,//O,!2`1,*/H,!2`1,/*H,!2`1,*/*H,!2`1,**?3,!`1)
+ add(defaultscale:=0.75;
+ label("//",A2-(0,0.45l));
+ label("*/",A4-(0,0.45l));
+ label("/*",A6-(0,0.45l));
+ label("*/*",A8-(0,0.45l));
+ label("**",A10-(0,0.45l));
+ )
endfont
%***********************************************************************
beginfont("EN:group 3")
@@ -545,34 +581,50 @@ beginfont("EN:methyl*2,isopropyl,tert-butyl")
endfont
%***********************************************************************
beginfont("EN:User definition")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,13mm);
sw_trimming:=1;
iBuOH:='(!,/_,!,OH);
MC(<30,?6,{4,6}:/iBuOH)
endfont
%***********************************************************************
beginfont("EN:Inline definition")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,13mm);
fmargin:=(2mm,1mm);
sw_trimming:=1;
MC(<30,!8,{2,6}:/'(!,/_,!,OH))
endfont
%***********************************************************************
beginfont("EN:Move position")
- fsize:=(60mm,12mm);
+ fsize:=(70mm,16mm);
fmargin:=(2mm,1mm);
sw_trimming:=1;
MC(<30,?6,@3,\,!3,//O,!,O,n_^60,@(6,1),H,p_^15)
add(drawdot A1 withpen pencircle scaled 2bp;
pickup pencircle scaled 0.1bp;
for i=0 upto 6:
- draw (A1+(l*i,l-2bp))--(l*i,l+2bp);
+ draw (A1+(l*i,l-3bp))--(l*i,l+3bp);
endfor
draw A1--(A1+(0,1l))--A1+(6l,1l);
- draw (A1+(0,1l))--(A1+(-2bp,1l));
+ draw (A1+(0,1l))--(A1+(-3bp,1l));
)
endfont
%***********************************************************************
+beginfont("EN:Change color")
+ fsize:=(50mm,20mm);
+ max_blength:=8mm;
+ MC(
+ <30,Ph,{2,5}:N,3:/NH2,4:/COOH,
+ 2:red,5:blue,3=green
+ )
+endfont
+%***********************************************************************
+beginfont("EN:Change font")
+ fsize:=(50mm,20mm);
+ max_blength:=8mm;
+ atomfont:="cmr8";
+ MC(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
+endfont
+%***********************************************************************
beginfont("EN:mangle")
fsize:=(50mm,15mm);
blength:=6mm;
@@ -698,7 +750,7 @@ beginfont("EN:mposition")
endfont
%***********************************************************************
beginfont("EN:Font size")
- fsize:=(40mm,15mm);
+ fsize:=(40mm,12mm);
sw_fframe:=1;
MC(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
@@ -710,10 +762,10 @@ beginfont("EN:Font size")
endfont
%***********************************************************************
beginfont("EN:fmargin")
- fsize:=(40mm,15mm);
+ fsize:=(40mm,12mm);
sw_fframe:=3;
sw_mframe:=1;
- fmargin:=(10mm,3mm);
+ fmargin:=(10mm,1mm);
MC(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
@@ -725,39 +777,60 @@ beginfont("EN:fmargin")
endfont
%***********************************************************************
beginfont("EN:offset_thickness")
- fsize:=(60mm,15mm);
- offset_thickness:=0.0pt; MCat(0.08,0.5)(<30,Ph)
- offset_thickness:=0.2pt; MCat(.5,0.5)(<30,Ph)
- offset_thickness:=0.5pt; MCat(0.92,0.5)(<30,Ph) endfont
+ fsize:=(60mm,12mm);
+ offset_thickness:=0.0pt; MCat(0.1,0.5)(<30,Ph)
+ offset_thickness:=0.2pt; MCat(0.55,0.5)(<30,Ph)
+ offset_thickness:=0.5pt; MCat(1,0.5)(<30,Ph)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.0pt",(0,1bp));
+ label.urt("0.2pt",(0.36w,1bp));
+ label.urt("0.5pt",(0.7w,1bp));
+ )
+endfont
%***********************************************************************
beginfont("EN:offset_bond_gap")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
offset_bond_gap:=0.0pt;
- MCat(0.08, .5)(<30,Ph)
+ MCat(0.1, .5)(<30,Ph)
offset_bond_gap:=0.3pt; %<<== default
- MCat(.50, .5)(<30,Ph)
+ MCat(.55, .5)(<30,Ph)
offset_bond_gap:=1.0pt;
- MCat(0.92, .5)(<30,Ph)
+ MCat(1, .5)(<30,Ph)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.0pt",(0,1bp));
+ label.urt("0.3pt",(0.36w,1bp));
+ label.urt("1.0pt",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:offset_atom")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
offset_atom:=0.0pt;
- MCat(0.08, .5)(<30,?6,3:O)
+ MCat(0.1, .5)(<30,?6,3:O)
offset_atom:=0.8pt; %<<== default
- MCat(.5, .5)(<30,?6,3:O)
+ MCat(.55, .5)(<30,?6,3:O)
offset_atom:=2.0pt;
- MCat(0.92, .5)(<30,?6,3:O)
+ MCat(1, .5)(<30,?6,3:O)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.0pt",(0,1bp));
+ label.urt("0.8pt",(0.36w,1bp));
+ label.urt("2.0pt",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:offset_wedge")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
offset_wedge:=0.0pt;
- MCat(0.08, .5)(<30,?6,5:*/_)
+ MCat(0.1,0.5)(<30,?6,5:*/_)
offset_wedge:=0.4pt; %<<== default
- MCat( .5, .5)(<30,?6,5:*/_)
+ MCat(0.55,0.5)(<30,?6,5:*/_)
offset_wedge:=1.0pt;
- MCat(0.92, .5)(<30,?6,5:*/_)
+ MCat(1, 0.5)(<30,?6,5:*/_)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.0pt",(0,1bp));
+ label.urt("0.4pt",(0.36w,1bp));
+ label.urt("1.0pt",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:max_blength")
@@ -769,87 +842,132 @@ beginfont("EN:max_blength")
MCat(.4,.5)(<30,Ph)
max_blength:=20mm; %<<== default
MCat(1, .5)(<30,Ph)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("6mm", (0.08w,2bp));
+ label.urt("8mm", (0.40w,2bp));
+ label.urt("20mm",(0.75w,0.45h));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_thickness_bond")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
ratio_thickness_bond:=0.005;
- MCat(0.08, .5)(<30,Ph)
+ MCat(0.1,0.5)(<30,Ph)
ratio_thickness_bond:=0.015; %<<== default
- MCat(.5, .5)(<30,Ph)
+ MCat(.55,0.5)(<30,Ph)
ratio_thickness_bond:=0.03;
- MCat(0.92, .5)(<30,Ph)
+ MCat(1, 0.5)(<30,Ph)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.005",(0,1bp));
+ label.urt("0.015",(0.36w,1bp));
+ label.urt("0.030",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_char_bond")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
ratio_char_bond:=1.0;
- MCat( 0, .5)(<30,?6,6:O,3:NH)
+ MCat(0, .5)(<30,?6,6:O,3:NH)
ratio_char_bond:=1.5; %<<== default
MCat(.5, .5)(<30,?6,6:O,3:NH)
ratio_char_bond:=2.0;
MCat( 1, .5)(<30,?6,6:O,3:NH)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("1.0",(0,1bp));
+ label.urt("1.5",(0.36w,1bp));
+ label.urt("2.0",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_bondgap_bond")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
ratio_bondgap_bond:=0.10;
- MCat(0.08, .5)(<30,Ph)
+ MCat(0.1, .5)(<30,Ph)
ratio_bondgap_bond:=0.15; %<<== default
- MCat(.5, .5)(<30,Ph)
+ MCat(.55, .5)(<30,Ph)
ratio_bondgap_bond:=0.20;
- MCat(0.92, .5)(<30,Ph)
+ MCat(1 , .5)(<30,Ph)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.10",(0,1bp));
+ label.urt("0.15",(0.36w,1bp));
+ label.urt("0.20",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_atom_bond")
- fsize:=(60mm,15mm);
+ fsize:=(60mm,12mm);
ratio_atom_bond:=0.25;
- MCat(0.08, .5)(<30,?6,3:O)
+ MCat(0.1, .5)(<30,?6,3:O)
ratio_atom_bond:=0.33; %<<== default
- MCat(.5, .5)(<30,?6,3:O)
+ MCat(.55, .5)(<30,?6,3:O)
ratio_atom_bond:=0.45;
- MCat(0.92, .5)(<30,?6,3:O)
+ MCat(1, .5)(<30,?6,3:O)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.25",(0,1bp));
+ label.urt("0.33",(0.36w,1bp));
+ label.urt("0.45",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_wedge_bond")
- fsize:=(60mm,15mm);
+ fsize:=(70mm,12mm);
ratio_wedge_bond:=0.1;
- MCat(0.08, .5)(<30,?6,5:*/_)
+ MCat(0.05, .5)(?6,4:*/_)
ratio_wedge_bond:=0.12; %<<== default
- MCat(.5, .5)(<30,?6,5:*/_)
+ MCat(.55, .5)(?6,4:*/_)
ratio_wedge_bond:=0.2;;
- MCat(0.92, .5)(<30,?6,5:*/_)
+ MCat(1 , .5)(?6,4:*/_)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.10",(0,1bp));
+ label.urt("0.12",(0.36w,1bp));
+ label.urt("0.20",(0.7w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_atomgap_atom")
- fsize:=(60mm,15mm);
+ fsize:=(70mm,12mm);
sw_aframe:=1;
ratio_atomgap_atom:=0.00;
- MCat(0, .5)(<30,!2,2:O)
+ MCat(0, .5)(<30,!2`0.5,2:O)
ratio_atomgap_atom:=0.050; %<<== default
- MCat(.5,.5)(<30,!2,2:O)
+ MCat(.5,.5)(<30,!2`0.5,2:O)
ratio_atomgap_atom:=0.12;
- MCat(1, .5)(<30,!2,2:O)
+ MCat(1, .5)(<30,!2`0.5,2:O)
+ ext(defaultscale:=0.75; labeloffset:=1bp;
+ label.urt("0.00",(0.05w,1bp));
+ label.urt("0.05",(0.45w,1bp));
+ label.urt("0.12",(0.85w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_chain_ring")
- fsize:=(70mm,15mm);
+ fsize:=(70mm,12mm);
ratio_chain_ring:= 0.4;
- MCat(0, .5)(<30,?6,4:/!)
+ MCat(0.05, .5)(<30,?6,4:/!)
ratio_chain_ring:= 0.66; %<<== default
MCat(.45, .5)(<30,?6,4:/!)
ratio_chain_ring:= 1;
MCat(1, .5)(<30,?6,4:/!)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.40",(0,1bp));
+ label.urt("0.66",(0.3w,1bp));
+ label.urt("1.0" ,(0.62w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:ratio_hashgap_bond")
- fsize:=(60mm,15mm);
+ fsize:=(70mm,15mm);
ratio_hashgap_bond:=0.06;
- MCat(0.08, .5)(<30,!2,2:/*_`1)
+ MCat(0.08, .5)(<30,!2,2:/*_`1.5)
ratio_hashgap_bond:=0.12; %<<== default
- MCat( .5, .5)(<30,!2,2:/*_`1)
+ MCat( .55, .5)(<30,!2,2:/*_`1.5)
ratio_hashgap_bond:=0.20;
- MCat(0.92, .5)(<30,!2,2:/*_`1)
+ MCat(1, .5)(<30,!2,2:/*_`1.5)
+ ext(defaultscale:=0.6; labeloffset:=1bp;
+ label.urt("0.06",(0,1bp));
+ label.urt("0.12",(0.4w,1bp));
+ label.urt("0.20",(0.77w,1bp));
+ )
endfont
%***********************************************************************
beginfont("EN:Switwch numberingA")
@@ -982,13 +1100,13 @@ endfont
%-----------------------------------------------------------------------
beginfont("EN:MCat()")
defaultsize:=5bp;
- fsize:=(40mm,40mm);
+ fsize:=(60mm,40mm);
fmargin:=(3mm,3mm);
- blength:=0.1;
+ blength:=0.07;
sw_fframe:=1;
mangle:=0;
for i=1 step -0.5 until 0:
- for j=0 step 0.5 until 1:
+ for j=0 step 0.33 until 1:
MCat(j,i)(Ph,4:N)
add(
drawarrow((A1+A1up**aw)..A1);
@@ -1002,13 +1120,13 @@ endfont
beginfont("EN:Pyridine",":<30,Ph,2:N")
sw_trimming:=0;
fsize:=(12mm,12mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%-----------------------------------------------------------------------
beginfont("EN:Pyridine",":<30,Ph,2):N")
sw_trimming:=0;
fsize:=(12mm,12mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:add() 1")
@@ -1137,7 +1255,7 @@ beginfont("EN:Luciferin","MW:280.33",
": {9,14}:N,{7,11}:S,1:/OH,-2:*/COOH ")
%---------------------------------------
fsize:=(50mm,15mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***************************************************************************
beginfont("EN:Colchicine","MW:385.41",
@@ -1147,7 +1265,7 @@ beginfont("EN:Colchicine","MW:385.41",
": @9,\,NH,!,//O,! ")
%---------------------------------------
fsize:=(50mm,20mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***************************************************************************
beginfont("EN:Paclitaxel","MW:853.91",
@@ -1161,7 +1279,7 @@ beginfont("EN:Paclitaxel","MW:853.91",
": @12,\*^-15,O,60,//O,-60 ")
%------------------------------------------------------
fsize:=(50mm,25mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***************************************************************************
beginfont("EN:Lycorine","MW:287.31",
@@ -1171,7 +1289,7 @@ beginfont("EN:Lycorine","MW:287.31",
": 9:/*H^180,10:*/H^60,13:*/OH,14:/*OH ")
%-----------------------------------------
fsize:=(50mm,20mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***********************************************************************
beginfont("EN:Gibberellin A3","MW:346.37",
@@ -1183,7 +1301,7 @@ beginfont("EN:Gibberellin A3","MW:346.37",
": 14:*/_,{1,4}:*/H^60 ")
%----------------------------------------
fsize:=(50mm,18mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***************************************************************************
beginfont("EN:Quinine","MW:324.42",
@@ -1194,7 +1312,7 @@ beginfont("EN:Quinine","MW:324.42",
": @2,165~zf,60,&5~zb ")
%----------------------------------------
fsize:=(50mm,20mm);
- if check_mc(mc)=0: MC(scantokens(mc)) fi
+ if check(mc)=0: MC(scantokens(mc)) fi
endfont
%***************************************************************************
sw_calc:=1;
@@ -1230,7 +1348,7 @@ beginfont("EN:Ampicillin","MW:349.405",
)
fsize:=(72mm,110mm);
blength:=7mm;
- if check_mc(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi
+ if check(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi
endfont
%***************************************************************************
beginfont("EN:Cholesterol","MW:386.65",
@@ -1239,7 +1357,7 @@ beginfont("EN:Cholesterol","MW:386.65",
": 1:*/OH,{4,12}:*/_^60,@-1,18,/*_,-60,!3,?!")
fsize:=(72mm,110mm);
blength:=7mm;
- if check_mc(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi
+ if check(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi
endfont
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bye