%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2020.07.26 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mcf2graph.mf; %% it must be version 4.50 or later %------------------------------------------------------------------------ sw_mframe:=0; sw_expand:=0; %%%%sw_aux_out:=0; %%%%sw_rep_out:=1; %ext(defaultscale:=.5; label.bot(decimal(char_num)&":"&inf_EN,(.5w,0));) %*********************************************************************** fsize:=(40mm,25mm); blength:=6mm; %*********************************************************************** beginfont("EN:Glycine") MC(<30,NH2,!2,COOH) endfont %*********************************************************************** beginfont("EN:L-Alanine") MC(<30,NH2,!~wb,/_,!,COOH) endfont %*********************************************************************** beginfont("EN:L-Valine") MC(<30,NH2,!~wb,/iPr,!,COOH) endfont %*********************************************************************** beginfont("EN:L-Leucine") MC(<30,NH2,!~wb,!,COOH,2:\,!,/_,!) endfont %*********************************************************************** beginfont("EN:L-Isoleucine") MC(<30,NH2,!~wb,!,COOH,2:\,/*_,!2) endfont %*********************************************************************** beginfont("EN:L-Serine") MC(<30,NH2,!~wb,!,COOH,2:/!OH) endfont %*********************************************************************** beginfont("EN:L-Threonine") MC(<30,NH2,!~wb,!,COOH,2:\,/_,!~wf,OH) endfont %*********************************************************************** beginfont("EN:L-Cysteine") MC(<30,NH2,!~wb,!,COOH,2:/!SH) endfont %*********************************************************************** beginfont("EN:L-Methionine") MC(<30,NH2,!~wb,!,COOH,2:\,!2,SMe) endfont %*********************************************************************** beginfont("EN:L-Phenylalanine") MC(<30,NH2,!~wb,!,COOH,2:/!Ph) endfont %*********************************************************************** beginfont("EN:L-Tyrosine") MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,-3:/OH) endfont %*********************************************************************** beginfont("EN:L-Triptophan") MC(<30,NH2,!~wb,!,COOH,2:\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH) endfont %*********************************************************************** beginfont("EN:L-Prorine") MC(<18,?5,3:NH,4:*/COOH) endfont %*********************************************************************** beginfont("EN:L-Glutamine") MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!,//O,!,NH2) endfont %*********************************************************************** beginfont("EN:L-Asparagine") MC(<30,NH2,!~wb,!,COOH,2:\,!,//O,!,NH2) endfont %*********************************************************************** beginfont("EN:L-Aspartic acid") MC(<30,NH2,!~wb,/!COOH,!,COOH) endfont %*********************************************************************** beginfont("EN:L-Glutamic acid") MC(<30,NH2,!~wb,!,COOH,2:\,!2,COOH) endfont %*********************************************************************** beginfont("EN:L-Lysine") MC(<30,NH2,!~wb,!,COOH,2:\,!4,NH2) endfont %*********************************************************************** beginfont("EN:L-Arginine") MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!2,NH,!,//NH,!,NH2) endfont %*********************************************************************** beginfont("EN:L-Hystidine") MC(<30,NH2,!~wb,!,COOH,2:\,!,|,?5,{1,3}=dl,3:N,5:NH) endfont %*********************************************************************** beginfont("EN:L-DOPA") MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,{-3,-4}:/OH) endfont %*********************************************************************** beginfont("EN:Ornithine") MC(<30,NH2,!~wb,!,COOH,2:\,!3,NH2) endfont %*********************************************************************** beginfont("EN:Citrulline") MC(<30,NH2,!~wb,!,COOH,2:\,!3,NH,!,//O,!,NH2) endfont %*********************************************************************** beginfont("EN:GABA") MC(<30,NH2,!4,COOH) endfont %*********************************************************************** beginfont("EN:amino Levulinic acid") MC(<30,NH2,!2,//O,!3,COOH) endfont %*********************************************************************** beginfont("EN:4-amino benzoic acid") MC(<30,Ph,1:/NH2,4:/COOH) endfont %*********************************************************************** beginfont("EN:L-Carboxyl glutamic acid") MC(<30,NH2,!~wb,!,COOH,2:\,!,/COOH,!,COOH) endfont %*********************************************************************** beginfont("EN:L-Hydroxy Prorine") MC(<18,?5,1:/OH,3:NH,4:*/COOH) endfont %*********************************************************************** %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fsize:=(60mm,35mm); blength:=0mm; max_blength:=10mm; ratio_thickness_bond:=0.015; ratio_atom_bond:=0.36; sw_fframe:=1; fmargin:=(2mm,1mm); %*********************************************************************** beginfont("EN:Chain 1") fsize:=(60mm,18mm); sw_numberB:=1; numberB_end:=6; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<10,-30,45,-45,30,-30,60, {1^-75,2^67.5,3^-60,4^75,5^-75,6^60}:/_~dt ) add( defaultscale:=0.5; labeloffset:=2bp; drawarrow B7/*.7{B7right}..{B1right}B1/*.7; label.ulft("-30",B7/*.7); drawarrow B8/*.7{B8left}..{B2left}B2/*.7; label.llft("45",B8/*.7); drawarrow B9/*.7{B9right}..{B3right}B3/*.7; label.ulft("-45",B9/*.7); drawarrow B10/*.7{B10left}..{B4left}B4/*.7; label.llft("30",B10/*.7); drawarrow B11/*.7{B11right}..{B5right}B5/*.7; label.ulft("-30",B11/*.7); drawarrow B12/*.7{B12left}..{B6left}B6/*.7; label.llft("60",B12/*.7); ) endfont %*********************************************************************** beginfont("EN:Chain 2") fsize:=(60mm,18mm); sw_numberB:=1; numberB_end:=6; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6, {1^-120,2^60,3^-60,4^60,5^-60,6^60}:/_~dt ) add( defaultscale:=0.5; labeloffset:=2bp; drawarrow B7/*.7{B7right}..{B1right}B1/*.7; label.ulft("-60",B7/*.7); drawarrow B8/*.7{B8left}..{B2left}B2/*.7; label.llft("60",B8/*.7); drawarrow B9/*.7{B7right}..{B3right}B3/*.7; label.ulft("-60",B9/*.7); drawarrow B10/*.7{B10left}..{B4left}B4/*.7; label.llft("60",B10/*.7); drawarrow B11/*.7{B11right}..{B5right}B5/*.7; label.ulft("-60",B11/*.7); drawarrow B12/*.7{B12left}..{B6left}B6/*.7; label.llft("60",B12/*.7); ) endfont %*********************************************************************** beginfont("EN:Jump and Branch") fsize:=(60mm,18mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberA:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6,3:@,0,!,5:@,-30) endfont %*********************************************************************** beginfont("EN:Jump and Branch") fsize:=(60mm,18mm); fmargin:=(2mm,2mm); sw_numberA:=1; sw_trimming:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6,3:\,!) endfont %*********************************************************************** beginfont("EN:branch1") fsize:=(60mm,18mm); fmargin:=(2mm,2mm); sw_numberA:=1; sw_trimming:=1; numberA_end:=10; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<30,!10,2:\,!,4:*\,!,6:\*,!,8:\\,!,10:*\*,!) endfont %*********************************************************************** beginfont("EN:branch2") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberA:=1; numberA_end:=7; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<30,!6,2:\~dr,!,4:\`1.5,-90,6:@,15,-60) endfont %*********************************************************************** beginfont("EN:Connect atom") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberA:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6,3:\,!3,6:#~bd,9@#4~bz) endfont %*********************************************************************** beginfont("EN:ring") fsize:=(60mm,20mm); sw_trimming:=1; fmargin:=(2mm,3mm); sw_numberB:=1; %---------------------------------------------------------------------- MC(?6) endfont %*********************************************************************** beginfont("EN:rotate 1") fsize:=(60mm,20mm); fmargin:=(2mm,3mm); sw_trimming:=1; sw_numberB:=1; ratio_chain_ring:=1; numberB_end:=5; defaultscale:=0.5; labeloffset:=2bp; MC(``1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf, {3,4^180}:/_~dt) add( drawarrow B6/*.7{B6left}..{B3left}B3/*.7; label.urt("90",B6/*.7); drawarrow B7/*.7{B7right}..{B4right}B4/*.7; label.urt("-90",B7/*.7); ) endfont %*********************************************************************** beginfont("EN:change bond 1") fsize:=(70mm,12mm); fmargin:=(2mm,3mm); blength:=8mm; sw_trimming:=1; ratio_chain_ring:=1; MC(<-30,!~dm,!,!~dl,!,!~dr,!~db,!~db,!,!~tm) endfont %*********************************************************************** beginfont("EN:change bond 2") fsize:=(60mm,12mm); fmargin:=(2mm,3mm); blength:=9.5mm; sw_trimming:=1; ratio_chain_ring:=1; MC(<-30,!~wf,!,!~wb,!,!~zf,!,!~zb) endfont %*********************************************************************** beginfont("EN:change bond 3") fsize:=(70mm,12mm); fmargin:=(2mm,3mm); blength:=10mm; sw_trimming:=1; ratio_chain_ring:=1; MC(<-30,!~vf,!,!~vb) endfont %*********************************************************************** beginfont("EN:change bond 3") fsize:=(70mm,12mm); fmargin:=(2mm,3mm); blength:=9mm; sw_trimming:=1; ratio_chain_ring:=1; MC(<-30,!7,1=dt,3=wv,5=bd,7=bz) endfont %*********************************************************************** beginfont("EN:change bond 4") fsize:=(60mm,12mm); fmargin:=(2mm,3mm); blength:=9mm; sw_trimming:=1; ratio_chain_ring:=1; MC(<30,!7,{2,4,6}=dr) endfont %*********************************************************************** beginfont("EN:over line") sw_trimming:=1; fsize:=(60mm,20mm); ratio_chain_ring:=1; MC(<30,!8,!,60,90`8,{2~si_,4~wf_,6~wb_,8~bd_}:/_`2) endfont %*********************************************************************** beginfont("EN:change bond length1") fsize:=(60mm,12mm); sw_numberB:=1; MC(<-30,!2,!2`1.2,!2) endfont %*********************************************************************** beginfont("EN:change bond length2") fsize:=(60mm,12mm); sw_numberB:=1; MC(<-30,!2,``1.2,!4) endfont %*********************************************************************** beginfont("EN:change ring length") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberB:=1; MC(?6,4:\,?6`1.2) endfont %*********************************************************************** beginfont("EN:Insert atom") sw_trimming:=1; fsize:=(70mm,12mm); MC(<-30,!2,O,!2,N,!2) endfont %*********************************************************************** beginfont("EN:change atom") fsize:=(70mm,10mm); MCat(0,0.5)(<30,!4,2:O,{3,4}:N) sw_numberA:=1; MCat(1,0.5)(<30,!4,2:O,{3,4}:N) endfont %*********************************************************************** beginfont("EN:change atom brock address 1") fsize:=(70mm,15mm); MCat(0,.5)(?6,4:\,|,?6,2:O) sw_numberA:=1; msize:=(1,.88); MCat(1,.5)(?6,4:\,?6) endfont %*********************************************************************** beginfont("EN:change atom brock address 2") fsize:=(70mm,15mm); MCat(0,.5)(?6,4:\,|,?6,||,2:N) sw_numberA:=1; msize:=(1,.88); MCat(1,.5)(?6,4:\,?6) endfont %*********************************************************************** beginfont("EN:change atom absolute address") fsize:=(70mm,15mm); MCat(0,.5)(?6,4:\,?6,$2:N) sw_numberA:=1; msize:=(1,.88); MCat(1,.5)(?6,4:\,?6) endfont %*********************************************************************** beginfont("EN:change atom relative adress") fsize:=(70mm,15mm); MCat(0,.5)(?6,4:\,?6,-2:N) sw_numberA:=3; msize:=(1,.88); MCat(1,.5)(?6,4:\,?6) endfont %*********************************************************************** beginfont("EN:Charged atom") sw_trimming:=1; fsize:=(60mm,15mm); MC(<-30,!2,N[1],!2,O[-1],!2,&"-",!2,N,&"+"^180,!) endfont %*********************************************************************** beginfont("EN:fused ring") fsize:=(60mm,18mm); fmargin:=(2mm,1.5mm); sw_trimming:=1; sw_numberB:=1; MC(<30,?6,3=?6,3=dt,{7,8,9,10,11}=bd) endfont %----------------------------------------------------------------------- beginfont("EN:change ring length") fsize:=(60mm,25mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberB:=1; MC(?6,4:\,?6`1.2,5=?6,11=?6, {14,15,16,17,18,19,20,21,22,23}=bd,{5,11}=dt) endfont %----------------------------------------------------------------------- beginfont("EN:fused large 6 ring") fsize:=(60mm,18mm); fmargin:=(2mm,1.5mm); margin_top_bottom:=1.5mm; sw_numberB:=1; sw_trimming:=1; MC(<30,?6,3=?6[13],3=dt,{7,8,9,10,11}=bd) endfont %----------------------------------------------------------------------- beginfont("EN:fuse multi ring") fsize:=(70mm,20mm); 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) endfont %*********************************************************************** beginfont("EN:fused ring 2") fsize:=(75mm,20mm); sw_numberB:=1; MCat( 0,.5)(<30,?6,3=?6,(11,4)=?6[4],{11,4}=dt,{12,13,14,15}=bd) msize:=(1,.9); MCat(.5,.5)(<30,?6,3=?6,(11,4)=?5[3],{11,4}=dt,{12,13,14}=bd) msize:=(1,.9); MCat( 1,.5)(<30,?6,3=?6,(11,4)=?4[2],{11,4}=dt,{12,13}=bd) endfont %*********************************************************************** beginfont("EN:fused ring 3") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_numberB:=1; MCat(0,1)(?6,{3,10}=?6,(16,4)=?6[3],{16,4}=dt,{17,18,19}=bd) MCat(1,0)(?6,{3,10}=?6,(16,4)=?5[2],{16,4}=dt,{17,18}=bd) endfont %*********************************************************************** beginfont("EN:fused ring 4") fsize:=(60mm,22mm); fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberB:=1; MC(<-30,?6,{3,10,15}=?6,(21,4)=?6[2],{21,4}=dt,{22,23}=bd) endfont %*********************************************************************** beginfont("EN:Spiro ring ") sw_trimming:=1; fsize:=(60mm,18mm); fmargin:=(2mm,3mm); sw_numberA:=1; numberA_end:=7; ratio_chain_ring:=1; MC(<30,!6,4:@,?5) endfont %*********************************************************************** beginfont("EN:group 1") fsize:=(60mm,25mm); sw_trimming:=1; MC(<-30,!,/_,!,/!,!3,/!2,!,/iPr,!3,/tBu,!,/Ph^-30,!) endfont %*********************************************************************** beginfont("EN:group 2") fsize:=(70mm,15mm); sw_trimming:=1; MC(<30,!`1,//O,!2`1,/*H,!2`1,*/H,!2`1,*/*H,!2`1,**?3,!`1) endfont %*********************************************************************** beginfont("EN:group 3") fsize:=(60mm,18mm); sw_trimming:=1; MC(<-30,``1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!) endfont %*********************************************************************** beginfont("EN:group 3") fsize:=(70mm,18mm); fmargin:=(2mm,2mm); sw_numberA:=1; sw_trimming:=1; numberA_end:=17; MC(<30,!16,2:/_,4:/!,6:/!2,10:/iPr,14:/tBu,16:/Ph^-60) endfont %*********************************************************************** beginfont("EN:group 4") fsize:=(60mm,18mm); sw_trimming:=1; fmargin:=(2mm,2mm); sw_numberA:=1; numberA_end:=7; MC(<30,!6`1,{2~wf,4~zf,6^-30}:/_) endfont %*********************************************************************** beginfont("EN:group 5") fsize:=(60mm,18mm); sw_trimming:=1; sw_numberA:=1; numberA_end:=8; MC(<-30,!7`1,3:/_`2^30,5:/!2>lr,7:/!2>rl) endfont %*********************************************************************** beginfont("EN:chain strech direction mode 1") fsize:=(60mm,45mm); sw_trimming:=1; ratio_chain_ring:=1; MC( ?4,{3^-90,3^-30,3^90}:/'(!3,"{hz}")>hz, {1^-60,1,1^60}:/'(!3,"{vt}")>vt ) endfont %*********************************************************************** beginfont("EN:chain strech direction mode 2") fsize:=(60mm,23mm); sw_trimming:=1; ratio_chain_ring:=1; MC( <-30,!6,{3^-30,3,3^30}:/'(!,!,!,"{lr}")>lr, {5^-30,5,5^30}:/'(!,!,!,"{rl}")>rl ) endfont %*********************************************************************** beginfont("EN:chain strech direction mode 3") fsize:=(40mm,25mm); sw_trimming:=1; ratio_chain_ring:=1; MC(<30,!6,6>45:/!3) endfont %*********************************************************************** beginfont("EN:chain strech direction mode 4") fsize:=(60mm,25mm); sw_trimming:=1; ratio_chain_ring:=1; MC(<30,!6,6>'(90,-90,90,-90,90):/!5) endfont %*********************************************************************** beginfont("EN:change atom and group") fsize:=(60mm,15mm); sw_trimming:=1; MC(<-30,!2,NH,!2,SO,!2,SOO,!) endfont %*********************************************************************** beginfont("EN:Make brock") fsize:=(60mm,15mm); % sw_trimming:=1; sw_numberB:=1; MC(<-30,!2,|=1.2,!4,=|,!2) endfont %*********************************************************************** beginfont("EN:User definition") fsize:=(60mm,20mm); sw_trimming:=1; iBuOH:='(!,/_,!,OH); MC(<30,?6,{4,6}:/iBuOH) endfont %*********************************************************************** beginfont("EN:Inline definition") fsize:=(60mm,20mm); fmargin:=(2mm,1mm); sw_trimming:=1; MC(<30,!8,{2,6}:/'(!,/_,!,OH)) endfont %*********************************************************************** beginfont("EN:mangle") fsize:=(50mm,15mm); blength:=6mm; mangle:=0; MCat(0.2,0.5)(Ph) add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);) mangle:=30; MCat(0.8,0.5)(Ph) add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);) endfont %*********************************************************************** beginfont("EN:blength=0") sw_fframe:=3; fsize:=(40mm,15mm); MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %----------------------------------------------------------------------- beginfont("EN:01") sw_fframe:=3; fsize:=(40mm,15mm); blength:=8mm; MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %*********************************************************************** beginfont("EN:msize=(1)") sw_fframe:=3; sw_mframe:=1; fsize:=(40mm,15mm); msize:=(1,1); MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %------------------------------------------------------ beginfont("EN:msize=(0.25,1)") sw_fframe:=3; sw_mframe:=1; fsize:=(40mm,15mm); msize:=(0.25,1); MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %------------------------------------------------------ beginfont("EN:msize=(11mm,11mm)") sw_fframe:=3; sw_mframe:=1; fsize:=(40mm,15mm); msize:=(11mm,11mm); MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %*********************************************************************** beginfont("EN:mposition") sw_fframe:=3; sw_mframe:=1; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(0.5,0.5); MC(<30,Ph) endfont %----------------------------------------------------- beginfont("EN:mposition") sw_fframe:=3; sw_mframe:=1; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(1,0); MC(<30,Ph) endfont %----------------------------------------------------- beginfont("EN:mposition") sw_mframe:=1; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(10mm,4mm); MC(<30,Ph) 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 for i=0 upto w/cm: draw (i*cm,0)--(i*cm,-.8mm); endfor for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %*********************************************************************** beginfont("EN:Font size") fsize:=(40mm,15mm); sw_fframe:=1; MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor ) endfont %*********************************************************************** beginfont("EN:fmargin") fsize:=(40mm,15mm); sw_fframe:=3; sw_mframe:=1; fmargin:=(10mm,3mm); MC(<30,Ph) 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 for i=0 upto h/cm: draw (0,i*cm)--(-.8mm,i*cm); endfor drawdot p0 withpen pencircle scaled 3pt; ) 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 %*********************************************************************** beginfont("EN:offset_bond_gap") fsize:=(60mm,15mm); offset_bond_gap:=0.0pt; MCat(0.08, .5)(<30,Ph) offset_bond_gap:=0.3pt; %<<== default MCat(.50, .5)(<30,Ph) offset_bond_gap:=1.0pt; MCat(0.92, .5)(<30,Ph) endfont %*********************************************************************** beginfont("EN:offset_atom") fsize:=(60mm,15mm); offset_atom:=0.0pt; MCat(0.08, .5)(<30,?6,3:O) offset_atom:=0.8pt; %<<== default MCat(.5, .5)(<30,?6,3:O) offset_atom:=2.0pt; MCat(0.92, .5)(<30,?6,3:O) endfont %*********************************************************************** beginfont("EN:offset_wedge") fsize:=(60mm,15mm); offset_wedge:=0.0pt; MCat(0.08, .5)(<30,?6,5:*/_) offset_wedge:=0.4pt; %<<== default MCat( .5, .5)(<30,?6,5:*/_) offset_wedge:=1.0pt; MCat(0.92, .5)(<30,?6,5:*/_) endfont %*********************************************************************** beginfont("EN:max_blength") fsize:=(60mm,25mm); sw_mframe:=1; max_blength:=6mm; MCat(0, .5)(<30,Ph) max_blength:=8mm; MCat(.4,.5)(<30,Ph) max_blength:=20mm; %<<== default MCat(1, .5)(<30,Ph) endfont %*********************************************************************** beginfont("EN:ratio_thickness_bond") fsize:=(60mm,15mm); ratio_thickness_bond:=0.005; MCat(0.08, .5)(<30,Ph) ratio_thickness_bond:=0.015; %<<== default MCat(.5, .5)(<30,Ph) ratio_thickness_bond:=0.03; MCat(0.92, .5)(<30,Ph) endfont %*********************************************************************** beginfont("EN:ratio_char_bond") fsize:=(60mm,15mm); ratio_char_bond:=1.0; 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) endfont %*********************************************************************** beginfont("EN:ratio_bondgap_bond") fsize:=(60mm,15mm); ratio_bondgap_bond:=0.10; MCat(0.08, .5)(<30,Ph) ratio_bondgap_bond:=0.15; %<<== default MCat(.5, .5)(<30,Ph) ratio_bondgap_bond:=0.20; MCat(0.92, .5)(<30,Ph) endfont %*********************************************************************** beginfont("EN:ratio_atom_bond") fsize:=(60mm,15mm); ratio_atom_bond:=0.25; MCat(0.08, .5)(<30,?6,3:O) ratio_atom_bond:=0.33; %<<== default MCat(.5, .5)(<30,?6,3:O) ratio_atom_bond:=0.45; MCat(0.92, .5)(<30,?6,3:O) endfont %*********************************************************************** beginfont("EN:ratio_wedge_bond") fsize:=(60mm,15mm); ratio_wedge_bond:=0.1; MCat(0.08, .5)(<30,?6,5:*/_) ratio_wedge_bond:=0.12; %<<== default MCat(.5, .5)(<30,?6,5:*/_) ratio_wedge_bond:=0.2;; MCat(0.92, .5)(<30,?6,5:*/_) endfont %*********************************************************************** beginfont("EN:ratio_atomgap_atom") fsize:=(60mm,15mm); sw_aframe:=1; ratio_atomgap_atom:=0.00; MCat(0, .5)(<30,!2,2:O) ratio_atomgap_atom:=0.050; %<<== default MCat(.5,.5)(<30,!2,2:O) ratio_atomgap_atom:=0.12; MCat(1, .5)(<30,!2,2:O) endfont %*********************************************************************** beginfont("EN:ratio_chain_ring") fsize:=(70mm,15mm); ratio_chain_ring:= 0.4; MCat(0, .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:/!) endfont %*********************************************************************** beginfont("EN:ratio_zebragap_bond") fsize:=(60mm,15mm); ratio_zebragap_bond:=0.06; MCat(0.08, .5)(<30,!2,2:/*_`1) ratio_zebragap_bond:=0.12; %<<== default MCat( .5, .5)(<30,!2,2:/*_`1) ratio_zebragap_bond:=0.20; MCat(0.92, .5)(<30,!2,2:/*_`1) endfont %*********************************************************************** beginfont("EN:Switwch numberingA") fsize:=(60mm,20mm); ratio_chain_ring:=1; numberA_start:=3; numberA_end:=8; sw_numberA:=1; MCat(.5,.9)(<-30,!9) sw_numberA:=2; MCat(.5,.5)(<-30,!9) sw_numberA:=3; MCat(.5,.1)(<-30,!9) endfont %*********************************************************************** beginfont("EN:Switwch numberingB") fsize:=(60mm,20mm); ratio_chain_ring:=1; numberB_start:=3; numberB_end:=8; sw_numberB:=1; MCat(.5,.9)(<-30,!9) sw_numberB:=2; MCat(.5,.5)(<-30,!9) sw_numberB:=3; MCat(.5,.1)(<-30,!9) endfont %*********************************************************************** beginfont("EN:Switwch trimming") fsize:=(60mm,20mm); sw_fframe:=3; sw_mframe:=1; msize:=(1,.7); MCat(.2,.3)(Ph) MCat(.8,.7)(Ph) endfont %----------------------------------------------------------------------- beginfont("EN:Switwch trimming") fsize:=(60mm,20mm); sw_fframe:=3; sw_mframe:=1; sw_trimming:=1; msize:=(1,.7); MCat(.2,.3)(Ph) MCat(.8,.7)(Ph) endfont %*********************************************************************** beginfont("EN:Switwch Expand") fsize:=(60mm,20mm); MCat(0, .5)(<30,Ph,4:/COOH,3:/NH2) sw_expand:=1; MCat(1, .5)(<30,Ph,4:/COOH,3:/NH2) endfont %*********************************************************************** beginfont("EN:Switwch group off") fsize:=(60mm,15mm); MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) sw_group_off:=1; MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) endfont %*********************************************************************** beginfont("EN:Switwch bondtype off") fsize:=(60mm,15mm); MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) sw_single:=1; MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) endfont %*********************************************************************** beginfont("EN:Switwch font frame 1") fsize:=(40mm,12mm); fmargin:=(5mm,2mm); sw_fframe:=1; MC(<30,Ph) endfont beginfont("EN:Switwch font frame 2") fsize:=(40mm,12mm); fmargin:=(5mm,2mm); sw_fframe:=2; MC(<30,Ph) endfont beginfont("EN:Switwch font frame 3") fsize:=(40mm,12mm); fmargin:=(5mm,2mm); sw_fframe:=3; MC(<30,Ph) endfont %*********************************************************************** beginfont("EN:Switwch molecular frame") sw_fframe:=1; fsize:=(40mm,15mm); msize:=(1,1); sw_mframe:=1; MC(<30,Ph) endfont %*********************************************************************** beginfont("EN:Switwch atom frame") fsize:=(60mm,15mm); sw_aframe:=1; MC(<30,COOH,!,COOH) endfont %*********************************************************************** beginfont("EN:Local setting 1") fsize:=(15mm,12mm); MC(Ph) endfont beginfont("EN:Local setting 2") fsize:=(15mm,12mm); ratio_thickness_bond:=0.05; MC(Ph) endfont beginfont("EN:Local setting 3") fsize:=(15mm,12mm); MC(Ph) endfont %*********************************************************************** save_ratio:=ratio_thickness_bond; beginfont("EN:Global setting 1") fsize:=(15mm,12mm); MC(Ph) endfont ratio_thickness_bond:=0.05; beginfont("EN:Global setting 2") fsize:=(15mm,12mm); MC(Ph) endfont beginfont("EN:Global setting 3") fsize:=(15mm,12mm); MC(Ph) endfont ratio_thickness_bond:=save_ratio; %*********************************************************************** beginfont("EN:MC() ") fmargin:=(0.5mm,0.5mm); fsize:=(40mm,15mm); sw_fframe:=1; sw_mframe:=1; MC(<30,Ph,4:/Cl,3:/F) endfont %----------------------------------------------------------------------- beginfont("EN:MCat()") defaultsize:=5bp; fsize:=(75mm,75mm); fmargin:=(3mm,3mm); blength:=0.07; sw_fframe:=1; mangle:=0; for i=1 step -0.25 until 0: for j=0 step 0.25 until 1: MCat(j,i)(Ph,4:N) add( drawarrow((A1+A1up**aw)..A1); label(decimal(mangle),p0+(0.5w,0.5h)); ) mangle:=mangle+15; endfor endfor endfont %*********************************************************************** beginfont("EN:add() 1") fsize:=(70mm,43mm); sw_aframe:=sw_mframe:=1; max_blength:=12mm; msize:=(.91,.9); MCat(.5,.85)(<30,?6,{2,5}:O) add( defaultscale:=.8; labeloffset:=.3aw; dotlabel.lft("p0",p0); dotlabel.rt( "p0+(w,h)",p0+(w,h)); dotlabel.ulft("A1",A1); drawarrow A1..A1+(l,0)<