From def6b709935cf319c107fa76ee9ba14e12f1e418 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 31 Jan 2021 21:34:33 +0000 Subject: mcf2graph (31jan21) git-svn-id: svn://tug.org/texlive/trunk@57575 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_exa_soc.mf | 65 +++++++++++----------- 1 file changed, 33 insertions(+), 32 deletions(-) (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf') diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf index f91483eb728..bb1984b27ad 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf @@ -1,8 +1,8 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.01.03 +% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.01.31 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %%% it must be version 4.55 or later -message "mcf_exa_soc 2021.01.03"; +input mcf2graph.mf; %%% it must be version 4.56 or later +message "* mcf_exa_soc 2021.01.31"; message ""; %------------------------------------------------------------------------- fsize:=(35mm,24mm); @@ -32,21 +32,22 @@ tag1:="F"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW"; %%%%sw_calc:=1; %%%%ext(defaultfont:="uhvr8r"; defaultscale:=.3; %%%% label.lrt(decimal(char_num)&":"&inf_EN&" MW="&cal_MW -%%%% if inf_MW<>"-": &"("& decimal(num_MW-scantokens(inf_MW))&")" -%%%% else: &"(-)" fi ,(-2bp,1.5bp));) -%*********************************************************************** +%%%% if (inf_MW<>"-")and(cen_MW<40): +%%%% &"("& decimal(num_MW-scantokens(inf_MW))&")" +%%%% else: &"(-)" fi ,(-2bp,1.5bp));) +%*************************************************************************** beginfont("EN:Adenine","MW:135.13") MC(<30,?6,3=?5,{1,3,5,9}=dl,{2,6,9}:N,5:/NH2,7:NH) endfont -%*********************************************************************** +%*************************************************************************** beginfont("EN:Guanine","MW:151.13") MC(<30,?6,3=?5,{1,3,9}=dl,{2,9}:N,{6,7}:NH,5://O,1:/NH2) endfont -%*********************************************************************** +%*************************************************************************** beginfont("EN:Cytosine","MW:111.10") MC(<30,?6,{4,6}=dl,4:N,3://O,2:NH,5:/NH2) endfont -%*********************************************************************** +%*************************************************************************** beginfont("EN:Thymine","MW:126.11") MC(<30,?6,3=dl,{2,6}:NH,{1,5}://O,4:/_) endfont @@ -148,9 +149,8 @@ beginfont("EN:Hexaphenylbenzene","MW:534.6876") endfont %*************************************************************************** beginfont("EN:Kekulene","MW:600.7") - MC(<30,?6,{2,-3,-2,-3,-2,-3,-2,-3,-2,-3}=?6,|=1,4:\,-1:#,-3:\,5:#,=|, - {2,15,55}=dr, - {6,8,10,13,18,20,23,27,29,31,33,37,39,41,43,47,49,51,53,57,60}=dl) + MC(<30,Ph,{3,-2,-3,-2,-3,-2,-3,-2,-3,-2}=?6,(-3,6)=?6[3],-4@#6, + {8,12,14,16,18,22,24,26,28,32,34,36,38,42,44,46,48,52,54,56,58}=dl) endfont %*************************************************************************** beginfont("EN:18-Crown-6","MW:264.32") @@ -158,6 +158,21 @@ beginfont("EN:18-Crown-6","MW:264.32") O,-60,60,60,O,-60,60,60,O,-60,60,1:#) endfont %*************************************************************************** +beginfont("EN:Porphyrin","MW:310.4") +MC(<9,|=1,?5,3:\,54,?5,-2:\,54,?5,-2:\,54,?5,-2:\,5:#,=|, + {1,4,6,8,10,14,16,18,21,23,27}=dl,{4,17}:N,{11,23}:NH) +endfont +%*************************************************************************** +beginfont("EN:Sulflower","MW:448.69") + MC(<67.5,?8,{1,3,5,7}=?5,11:@,30`1.15,12:#,14:@,30`1.15,15:#, + 17:@,30`1.15,18:#,20:@,30`1.15,9:#,{9,12,13,16,17,20,21,24}=dl, + {10,13,16,19,21,22,23,24}:S) +endfont +%*************************************************************************** +beginfont("EN:Arsphenamine x5","MW:915.2") + MC(<18,?5,{1,2,3,4,5}:As,{1,2,3,4,5}:/'(Ph,3:/NH2,4:/OH)) +endfont +%*************************************************************************** beginfont("EN:Melamine","MW:126.12") MC(<30,Ph,{2,4,6}:N,{1,3,5}:/NH2) endfont @@ -178,10 +193,6 @@ beginfont("EN:Vat blue 1","MW:262.27") MC(<30,Ph,3=?5,8:\\,?5,-3=dr,-3=Ph,{7,14}:NH,{9,11}://O) endfont %*************************************************************************** -beginfont("EN:Mordant red 11","MW:240.22") - MC(<30,Ph,3=?6,-3=dr,9=Ph,{7,10}://O,{-1,-2}:/OH) -endfont -%*************************************************************************** beginfont("EN:Atrazine","MW:215.7") MC(<30,Ph,{2,4,6}:N,5:/Cl,1:/NH!2,3:/NH!?!) endfont @@ -200,10 +211,6 @@ MC(<30,?6`1.3,3=?6,6=dl,9=?3,-1:O, {1,2,5,6,12^-210,12^-150}:/Cl) endfont %*************************************************************************** -beginfont("EN:Bromacil","MW:261.119") -MC(<30,?6,6=dl,3:N,1:/Br,{2,4}://O,5:NH,6:/_,3:\,/_,!2) -endfont -%*************************************************************************** beginfont("EN:Acrinathrin","MW:541.45") MC(<-30,?3,2^-35:*/_,2^35:/*Me, 1:\,!~dl,!,//O,!,O,!,/CF3,!,CF3,3:\,//O,!,O,!,/CN,!,Ph,-4:\,O,-60,Ph) @@ -226,10 +233,6 @@ beginfont("EN:Clomazone","MW:239.7") MC(<30,Ph,2:/Cl,3:\,!,|,?5,1:N,2:O,-2^-35:/_,-2^35:/_,-1://O) endfont %*************************************************************************** -beginfont("EN:Ethofenprox","MW:376.5") -MC(<30,Ph,5:\,O,!,Ph,10:\,O,!3,??,!,Ph,-3:/O!2) -endfont -%*************************************************************************** beginfont("EN:Halfenprox","MW:477.4") MC(<30,Ph,6:\,O,!,/F^35,/F^-35,!,Br,3:\,!,??,!,O,!,!,Ph,-2:\,O,60,Ph) endfont @@ -383,7 +386,7 @@ beginfont("EN:Uniconazole-P","MW:291.779") endfont %*************************************************************************** beginfont("EN:Oxadiargyl","MW:341.19") - MC(<30,Ph,{1,3}:/Cl,6:/'(O,!2,!!!),4:\,|,?5,2=dl,{1,2}:N,4:O,5://O,-3:/??!) + MC(<30,Ph,{1,3}:/Cl,6:/'(O,!2,!!!),4:\,|,?5,2=dl,{1,2}:N,4:O,5://O,3:/??!) endfont %*************************************************************************** beginfont("EN:Oxaziclomefone","MW:376.277") @@ -664,12 +667,10 @@ beginfont("EN:Luciferin","MW:280.33") endfont %*************************************************************************** beginfont("EN:Chlorophyll a","MW:893.509") -MC(<54,|=1,?5,{2,5}=dl,4:N,3:\,54~dl,|,?5,{2,4}=dl,5:N, - -2:\,54~dl,|,?5,2=dl,5:N,-2:\~dl,54,|,?5,5=dl,5:N,-2:\~dl,$5:#, - -1:@,24,/*COO!^15,72,//O,$1:#,=|,||, - {2,9,15,20~zf}:/_,8:/!,14:\,!!, - 4:\`1.45,Mg,17:#,-1:@,11~vb:#,-1:@,23~vb:#, - 21:@,-6~wf,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_) +MC(<-36,|=1,?5,3:\,54,?5,-2:\,54,?5,-2:\,54,?5,-2:\,5:#,6:@,22,70,8:#,=|, + {4,6,8,10,14,16,18,21,23,27}=dl,4:\`1.48~vf,Mg,17:#~vb,11@#27,27@#23, + {4,11,17,23}:N,{1~zf,9,15,21}:/_,14:/!,20:/!!,25:/*COO!,26://O, + 2:*\^-6,!2,//O,!,O,!2,!!,|,!13,{1,5,9,13}:/_) endfont %************************************************************************** beginfont("EN:Quercetin","MW:302.24") @@ -745,7 +746,7 @@ beginfont("EN:Pyrethrin I","MW:328.452"); endfont; %*********************************************************************** beginfont("EN:Oseltamivir","MW:312.40") - MC(<30,?6,3=dl,6:*/NH2,1:\*,NH,!,//O,!,2:*\,!,/!,!2,4:\,//O,!,O,!2) + MC(<30,?6,3=dl,6:*/NH2,1:\*,NH,!,//O,!,2:*\,O,!,/!,!2,4:\,//O,!,O,!2) endfont %************************************************************************** beginfont("EN:Paclitaxel","MW:853.918") -- cgit v1.2.3