From 10e09e01b238ad80b81ecddc9b0f915eb23b79fc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 6 Jun 2021 20:49:41 +0000 Subject: mcf2graph (6jun21) git-svn-id: svn://tug.org/texlive/trunk@59490 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_man_soc.mf | 194 ++++++++++----------- 1 file changed, 94 insertions(+), 100 deletions(-) (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf') 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 afefa48dcf0..16100feb75c 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,9 +1,9 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.05.23 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.06.06 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %% it must be version 4.65 +input mcf2graph.mf; %% it must be version 4.66 % ** use data base file 'mcf_data_base.mcf' -message "mcf_man_soc 2021.05.23"; message ""; +message "mcf_man_soc 2021.06.06"; message ""; %------------------------------------------------------------------------ sw_mframe:=0; sw_expand:=0; @@ -135,13 +135,13 @@ blength:=0mm; max_blength:=10mm; ratio_thickness_bond:=0.015; ratio_atom_bond:=0.36; -sw_fframe:=1; +sw_frame:=Outside; fmargin:=(2mm,1mm); %*********************************************************************** beginfont("EN:Chain 1") fsize:=(60mm,17mm); - sw_numberB:=1; - numberB_end:=6; + sw_numbering:=Bond; + numbering_end:=6; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<15,-30,45,-45,60,$300,$0, @@ -159,8 +159,8 @@ endfont %*********************************************************************** beginfont("EN:Chain 2") fsize:=(60mm,17mm); - sw_numberB:=1; - numberB_end:=6; + sw_numbering:=Bond; + numbering_end:=6; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6, @@ -182,7 +182,7 @@ beginfont("EN:Jump and Branch") fsize:=(60mm,16mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberA:=1; + sw_numbering:=Atom; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6,@3,0,!,@5,-30) @@ -191,7 +191,7 @@ endfont beginfont("EN:Jump and Branch") fsize:=(60mm,16mm); fmargin:=(2mm,2mm); - sw_numberA:=1; + sw_numbering:=Atom; sw_trimming:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- @@ -201,9 +201,9 @@ endfont beginfont("EN:branch1") fsize:=(60mm,16mm); fmargin:=(2mm,2mm); - sw_numberA:=1; + sw_numbering:=Atom; sw_trimming:=1; - numberA_end:=10; + numbering_end:=10; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<30,!10,@2,\,!,@4,*\,!,@6,\*,!,@8,\\,!,@10,*\*,!) @@ -213,8 +213,8 @@ beginfont("EN:branch2") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberA:=1; - numberA_end:=7; + sw_numbering:=Atom; + numbering_end:=7; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<30,!6,@2,\~dr,!,@4,\`1.5,-90,@6,15,-60) @@ -224,7 +224,7 @@ beginfont("EN:Connect atom") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberA:=1; + sw_numbering:=Atom; ratio_chain_ring:=1; %---------------------------------------------------------------------- MC(<-30,!6,@3,\,!3,&6~bd,@9,&4~bz) @@ -234,7 +234,7 @@ beginfont("EN:ring") fsize:=(60mm,20mm); sw_trimming:=1; fmargin:=(2mm,3mm); - sw_numberB:=1; + sw_numbering:=Bond; %---------------------------------------------------------------------- MC(?6) endfont @@ -243,12 +243,12 @@ beginfont("EN:rotate 1") fsize:=(60mm,20mm); fmargin:=(2mm,3mm); sw_trimming:=1; - sw_numberB:=1; + sw_numbering:=Bond; ratio_chain_ring:=1; - numberB_end:=7; + numbering_end:=7; defaultscale:=0.5; labeloffset:=2bp; - MC(#1,0,0,<90,0,<-90,0,<$315,0,<$90,0,<$0,0,{1,2,3,4,5,6,7}=vf, + MC(#1,0,0,<90,0,<-90,0,<$315,0,<$90,0,<$0,0,{1--7}=vf, {3,4^180}:/_~dt) add( drawarrow B8/*.7{B8left}..{B3left}B3/*.7; label.urt("90",B8/*.7); @@ -335,13 +335,13 @@ endfont %*********************************************************************** beginfont("EN:change bond length1") fsize:=(75mm,10mm); - sw_numberB:=1; + sw_numbering:=Bond; MC(<-30,!2,!4`1.2,!2) endfont %*********************************************************************** beginfont("EN:change bond length2") fsize:=(75mm,10mm); - sw_numberB:=1; + sw_numbering:=Bond; MC(<-30,!2,#1.2,!4,##,!2) endfont %*********************************************************************** @@ -349,7 +349,7 @@ beginfont("EN:change ring length") fsize:=(60mm,20mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberB:=1; + sw_numbering:=Bond; MC(?6,@4,\,?6`1.2) endfont %*********************************************************************** @@ -361,16 +361,17 @@ 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) + msize:=(0.48,1); + MCat(0,0.5)(<30,!5,2:O,{3--5}:N) + sw_numbering:=Atom; + MCat(1,0.5)(<30,!5,2:O,{3--5}:N) 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; + sw_numbering:=Atom; msize:=(1,.88); MCat(1,.5)(?6,@4,\,?6) endfont @@ -379,7 +380,7 @@ 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; + sw_numbering:=Atom; msize:=(1,.88); MCat(1,.5)(?6,@4,\,?6) endfont @@ -388,7 +389,7 @@ beginfont("EN:change atom absolute address") fsize:=(70mm,15mm); fmargin:=(3mm,1.5mm); MCat(0,.5)(?6,@4,\,?6,$2:N) - sw_numberA:=1; + sw_numbering:=Atom; msize:=(1,.88); MCat(1,.5)(?6,@4,\,?6) endfont @@ -397,7 +398,7 @@ beginfont("EN:change atom relative adress") fsize:=(70mm,15mm); fmargin:=(3mm,1.5mm); MCat(0,.5)(?6,@4,\,?6,-2:N) - sw_numberA:=3; + sw_numbering:=Atom+Inverse; msize:=(1,.88); MCat(1,.5)(?6,@4,\,?6) endfont @@ -412,32 +413,32 @@ 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) + sw_numbering:=Bond; + MC(<30,?6,3=?6,3=dt,{7--11}=bd) endfont %----------------------------------------------------------------------- beginfont("EN:change ring length") fsize:=(60mm,25mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberB:=1; + sw_numbering:=Bond; MC(?6,@4,\,?6`1.2,5=?6,11=?6, - {14,15,16,17,18,19,20,21,22,23}=bd,{5,11}=dt) + {14--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_numbering:=Bond; sw_trimming:=1; - MC(<30,?6,3=?6[13],3=dt,{7,8,9,10,11}=bd) + MC(<30,?6,3=?6[13],3=dt,{7--11}=bd) endfont %----------------------------------------------------------------------- beginfont("EN:fuse multi ring") fsize:=(70mm,20mm); fmargin:=(2mm,2mm); - sw_numberB:=1; + sw_numbering:=Bond; sw_trimming:=1; MC(<30,?6,{-3,-4,-4,-2,-2,-4,-4}=?6,{4,8,13,20,25,28,33}=dt) endfont @@ -445,12 +446,12 @@ endfont beginfont("EN:fused ring 2") fsize:=(75mm,20mm); fmargin:=(2mm,2mm); - sw_numberB:=1; + sw_numbering:=Bond; msize:=(1,.9); - MCat( 0,.5)(<30,?6,3=?6,(11,4)=?6[4],{11,4}=dt,{12,13,14,15}=bd) + MCat( 0,.5)(<30,?6,3=?6,(11,4)=?6[4],{11,4}=dt,{12--15}=bd) add(defaultscale:=0.4; label("(1)",p0);) msize:=(1,.9); - MCat(.5,.5)(<30,?6,3=?6,(11,4)=?5[3],{11,4}=dt,{12,13,14}=bd) + MCat(.5,.5)(<30,?6,3=?6,(11,4)=?5[3],{11,4}=dt,{12--14}=bd) add(defaultscale:=0.4; label("(2)",p0);) msize:=(1,.9); MCat( 1,.5)(<30,?6,3=?6,(11,4)=?4[2],{11,4}=dt,{12,13}=bd) @@ -460,8 +461,8 @@ 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) + sw_numbering:=Bond; + MCat(0,1)(?6,{3,10}=?6,(16,4)=?6[3],{16,4}=dt,{17--19}=bd) add(defaultscale:=0.4; label("(1)",p0);) MCat(1,0)(?6,{3,10}=?6,(16,4)=?5[2],{16,4}=dt,{17,18}=bd) add(defaultscale:=0.4; label("(2)",p0);) @@ -471,7 +472,7 @@ beginfont("EN:fused ring 4") fsize:=(60mm,22mm); fmargin:=(2mm,2mm); sw_trimming:=1; - sw_numberB:=1; + sw_numbering:=Bond; MC(<-30,?6,{3,10,15}=?6,(21,4)=?6[2],{21,4}=dt,{22,23}=bd) endfont %*********************************************************************** @@ -479,8 +480,8 @@ beginfont("EN:Spiro ring ") sw_trimming:=1; fsize:=(60mm,18mm); fmargin:=(2mm,3mm); - sw_numberA:=1; - numberA_end:=7; + sw_numbering:=Atom; + numbering_end:=7; ratio_chain_ring:=1; MC(<30,!6,@4,?5) endfont @@ -513,9 +514,9 @@ endfont beginfont("EN:group 3") fsize:=(80mm,18mm); fmargin:=(2mm,2mm); - sw_numberA:=1; + sw_numbering:=Atom; sw_trimming:=1; - numberA_end:=17; + numbering_end:=17; MC(<30,!16,2:/_,4:/!,6:/!2,10:/iPr,14:/tBu,16:/Ph^-60) endfont %*********************************************************************** @@ -523,14 +524,14 @@ beginfont("EN:group 4") fsize:=(60mm,18mm); sw_trimming:=1; fmargin:=(2mm,2mm); - sw_numberA:=1; numberA_end:=9; + sw_numbering:=Atom; numbering_end:=9; MC(<30,!8`1,{2~wf,4~zf,6^-30,8^$120}:/_) endfont %*********************************************************************** beginfont("EN:group 5") fsize:=(60mm,18mm); sw_trimming:=1; - sw_numberA:=1; numberA_end:=8; + sw_numbering:=Atom; numbering_end:=8; MC(<-30,!7`1,3:/_`2^30,5:/!2>lr,7:/!2>rl) endfont %*********************************************************************** @@ -607,6 +608,13 @@ beginfont("EN:Move position") ) endfont %*********************************************************************** +beginfont("EN:Serial number") + fsize:=(75mm,14mm); + max_blength:=8mm; + sw_numbering:=Atom; numbering_end:=15; + MC(<30,!14,{2,6--10,14}:/_~bd`0.5) +endfont +%*********************************************************************** beginfont("EN:Change color") fsize:=(50mm,20mm); max_blength:=8mm; @@ -635,7 +643,7 @@ beginfont("EN:mangle") endfont %*********************************************************************** beginfont("EN:blength=0") - sw_fframe:=3; + sw_frame:=Bothside; fsize:=(40mm,15mm); MC(<30,Ph) ext(pickup pencircle scaled 0.2pt; @@ -647,7 +655,7 @@ beginfont("EN:blength=0") endfont %----------------------------------------------------------------------- beginfont("EN:01") - sw_fframe:=3; + sw_frame:=Bothside; fsize:=(40mm,15mm); blength:=8mm; MC(<30,Ph) @@ -673,8 +681,7 @@ beginfont("EN:blength>1") endfont %*********************************************************************** beginfont("EN:msize=(1)") - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fsize:=(40mm,15mm); msize:=(1,1); MC(<30,Ph) @@ -687,8 +694,7 @@ beginfont("EN:msize=(1)") endfont %------------------------------------------------------ beginfont("EN:msize=(0.25,1)") - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fsize:=(40mm,15mm); msize:=(0.25,1); MC(<30,Ph) @@ -701,8 +707,7 @@ beginfont("EN:msize=(0.25,1)") endfont %------------------------------------------------------ beginfont("EN:msize=(11mm,11mm)") - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fsize:=(40mm,15mm); msize:=(11mm,11mm); MC(<30,Ph) @@ -715,8 +720,7 @@ beginfont("EN:msize=(11mm,11mm)") endfont %*********************************************************************** beginfont("EN:mposition") - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(0.5,0.5); @@ -724,8 +728,7 @@ beginfont("EN:mposition") endfont %----------------------------------------------------- beginfont("EN:mposition") - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(1,0); @@ -733,7 +736,7 @@ beginfont("EN:mposition") endfont %----------------------------------------------------- beginfont("EN:mposition") - sw_mframe:=1; + sw_frame:=sw_frame+Mol; fsize:=(40mm,15mm); msize:=(1,0.8); mposition:=(10mm,4mm); @@ -749,7 +752,7 @@ endfont %*********************************************************************** beginfont("EN:Font size") fsize:=(40mm,12mm); - sw_fframe:=1; + sw_frame:=Outside; MC(<30,Ph) ext(pickup pencircle scaled 0.2pt; for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor @@ -761,8 +764,7 @@ endfont %*********************************************************************** beginfont("EN:fmargin") fsize:=(40mm,12mm); - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; fmargin:=(10mm,1mm); MC(<30,Ph) ext(pickup pencircle scaled 0.2pt; @@ -833,7 +835,7 @@ endfont %*********************************************************************** beginfont("EN:max_blength") fsize:=(60mm,25mm); - sw_mframe:=1; + sw_frame:=sw_frame+Mol; max_blength:=6mm; MCat(0, .5)(<30,Ph) max_blength:=8mm; @@ -924,7 +926,7 @@ endfont %*********************************************************************** beginfont("EN:ratio_atomgap_atom") fsize:=(70mm,12mm); - sw_aframe:=1; + sw_frame:=sw_frame+Atom; ratio_atomgap_atom:=0.00; MCat(0, .5)(<30,!2`0.5,2:O) ratio_atomgap_atom:=0.050; %<<== default @@ -968,36 +970,34 @@ beginfont("EN:ratio_hashgap_bond") ) endfont %*********************************************************************** -beginfont("EN:Switwch numberingA") +beginfont("EN:Switwch numbering atom") 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) + numbering_start:=3; numbering_end:=8; + sw_numbering:=Atom; MCat(.5,.9)(<-30,!9) + sw_numbering:=Atom+Brock; MCat(.5,.5)(<-30,!9) + sw_numbering:=Atom+Inverse; MCat(.5,.1)(<-30,!9) endfont %*********************************************************************** -beginfont("EN:Switwch numberingB") +beginfont("EN:Switwch numbering bond") 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) + numbering_start:=3; numbering_end:=8; + sw_numbering:=Bond; MCat(.5,.9)(<-30,!9) + sw_numbering:=Bond+Brock; MCat(.5,.5)(<-30,!9) + sw_numbering:=Bond+Inverse; MCat(.5,.1)(<-30,!9) endfont %*********************************************************************** beginfont("EN:Switwch trimming") fsize:=(60mm,20mm); - sw_fframe:=3; - sw_mframe:=1; + sw_frame:=Bothside+Mol; 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_frame:=Bothside+Mol; sw_trimming:=1; msize:=(1,.7); MCat(.2,.3)(Ph) @@ -1011,50 +1011,50 @@ beginfont("EN:Switwch Expand") MCat(1, .5)(<30,Ph,4:/COOH,3:/NH2) endfont %*********************************************************************** -beginfont("EN:Switwch group off") +beginfont("EN:Switwch abbreviate group") fsize:=(60mm,12mm); MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) - sw_group_off:=1; + sw_abbreviate:=Group; MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) endfont %*********************************************************************** -beginfont("EN:Switwch bondtype off") +beginfont("EN:Switwch abbreviate bondtype") fsize:=(60mm,12mm); MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) - sw_single:=1; + sw_abbreviate:=Bond; MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) endfont %*********************************************************************** beginfont("EN:Switwch font frame 1") fsize:=(30mm,10mm); fmargin:=(5mm,1.5mm); - sw_fframe:=1; + sw_frame:=Outside; MC(<30,Ph) endfont beginfont("EN:Switwch font frame 2") fsize:=(30mm,10mm); fmargin:=(5mm,1.5mm); - sw_fframe:=2; + sw_frame:=Inside; MC(<30,Ph) endfont beginfont("EN:Switwch font frame 3") fsize:=(30mm,10mm); fmargin:=(5mm,1.5mm); - sw_fframe:=3; + sw_frame:=Bothside; MC(<30,Ph) endfont %*********************************************************************** beginfont("EN:Switwch molecular frame") - sw_fframe:=1; + sw_frame:=Outside; fsize:=(40mm,11mm); msize:=(1,1); - sw_mframe:=1; + sw_frame:=sw_frame+Mol; MC(<30,Ph) endfont %*********************************************************************** beginfont("EN:Switwch atom frame") fsize:=(60mm,10mm); - sw_aframe:=1; + sw_frame:=sw_frame+Atom; MC(<30,COOH,!,COOH) endfont %*********************************************************************** @@ -1091,8 +1091,7 @@ ratio_thickness_bond:=save_ratio; beginfont("EN:MC() ") fmargin:=(0.5mm,0.5mm); fsize:=(40mm,15mm); - sw_fframe:=1; - sw_mframe:=1; + sw_frame:=Outside+Mol; MC(<30,Ph,4:/Cl,3:/F) endfont %----------------------------------------------------------------------- @@ -1101,7 +1100,7 @@ beginfont("EN:MCat()") fsize:=(60mm,40mm); fmargin:=(3mm,3mm); blength:=0.07; - sw_fframe:=1; + sw_frame:=Outside; mangle:=0; for i=1 step -0.5 until 0: for j=0 step 0.33 until 1: @@ -1129,7 +1128,7 @@ endfont %*********************************************************************** beginfont("EN:add() 1") fsize:=(70mm,40mm); - sw_aframe:=sw_mframe:=1; + sw_frame:=sw_frame+Atom+Mol; max_blength:=10mm; msize:=(.91,.9); MCat(.5,.85)(<30,?6,{2,5}:O) @@ -1309,7 +1308,6 @@ beginfont("EN:Quinine","MW:324.42", if check(mc)=0: MC(scantokens(mc)) fi endfont %*************************************************************************** -sw_calc:=1; ext(defaultfont:="uhvr8r"; defaultscale:=.75; label.urt("NO = "&decimal(char_num),(0.01w,0.55h)); label.urt("EN = "&inf_EN ,(0.01w,0.52h)); @@ -1327,8 +1325,6 @@ ext(defaultfont:="uhvr8r"; defaultscale:=.75; (0.01w,0.25h)); label.urt("ratio_chain_ring = "&decimal(ratio_chain_ring), (0.01w,0.22h)); - label.urt("sw_fframe = "&decimal(sw_fframe),(0.01w,0.19h)); - label.urt("sw_aframe = "&decimal(sw_aframe),(0.01w,0.16h)); label.urt("sw_trimming = "&decimal(sw_trimming),(0.01w,0.13h)); label.urt("mc1= "&mc1,(0.01w,0.09h)); label.urt("mc2= "&mc2,(0.01w,0.06h)); @@ -1340,7 +1336,6 @@ beginfont("EN:Ampicillin","MW:349.405", ": 3^45:/*H,1://O^15,5:/*COOH^-18,6:??,", ": @4,*\^15,NH,!,//O,!,/*NH2,!,Ph" ) - sw_output:=None; fsize:=(72mm,85mm); blength:=6mm; if check(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi @@ -1350,7 +1345,6 @@ beginfont("EN:Cholesterol","MW:386.65", ": <30,?6,{-4,-2}=?6,-4=?5,7=dl, ", ": 10:/*H^180,11:/*H^-60,17:/*H^-54, ", ": 1:*/OH,{4,12}:*/_^60,@-1,18,/*_,-60,!3,?!") - sw_output:=None; fsize:=(72mm,85mm); blength:=5.5mm; if check(mc)=0: MCat(0.5,0.95)(scantokens(mc)) fi -- cgit v1.2.3