diff options
Diffstat (limited to 'graphics/mcf2graph/mcf_man_soc.mf')
-rw-r--r-- | graphics/mcf2graph/mcf_man_soc.mf | 316 |
1 files changed, 217 insertions, 99 deletions
diff --git a/graphics/mcf2graph/mcf_man_soc.mf b/graphics/mcf2graph/mcf_man_soc.mf index 04ed57fe0c..74652a2e7b 100644 --- a/graphics/mcf2graph/mcf_man_soc.mf +++ b/graphics/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 |