From 32e0f5d0a5abc4f2b6c7341f19b854b5945c3ebd Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 21 Sep 2021 03:02:01 +0000 Subject: CTAN sync 202109210302 --- graphics/mcf2graph/mcf_exa_soc.mf | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) (limited to 'graphics/mcf2graph/mcf_exa_soc.mf') diff --git a/graphics/mcf2graph/mcf_exa_soc.mf b/graphics/mcf2graph/mcf_exa_soc.mf index 5f0d263bbb..b5513ffbf0 100644 --- a/graphics/mcf2graph/mcf_exa_soc.mf +++ b/graphics/mcf2graph/mcf_exa_soc.mf @@ -1,8 +1,8 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.09.05 +% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.09.20 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %%% it must be version 4.71 -message "* mcf_exa_soc 2021.09.05"; +input mcf2graph.mf; %%% it must be version 4.72 +message "* mcf_exa_soc 2021.09.20"; message ""; %------------------------------------------------------------------------------ fsize:=(35mm,24mm); @@ -21,18 +21,19 @@ tag1:="J"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW"; if f_MP=0: input mcf_exa_soc-mf.aux; % (metafont) make aux file before typeset else: % mpost -s ahlength=7 mcf_exa_soc.mf %------------------------------------------------------------------------------ -%%%%%query("Cat=biological","MW<150","s:MW"); -%%%%%query("Cat=biological","MW<150.0","s:EN"); -%%%%%query("MW>=150","MW<=300","s:MW"); -%%%%%query("i:mcf_data_base","o:temp","s:MW","s:EN"); +%%%%query("Cat=biological","MW<200","s:MW"); +%%%%query("Cat=biological","MW<150.0","s:EN"); +%%%%query("MW>=150","MW<=200","s:MW"); %****************************************************************************** +%%%% beginfont("t:EN","v:Caffeine") % select EN=Caffeine forever: -%%%%%%% beginfont("f+:temp","v:*") % use query output -%%%%%%% beginfont("f+:mcf_data_base","v:*") % select all - beginfont("f+:mcf_data_base","t:EXA","v:1") % 'f+'=keep file open - if f_EOF=0: if check(mc)=0: MC(scantokens(mc)) fi fi % 'v:1' select EXA=1 - endfont % - exitif (f_EOF=1)or(f_close=1); % exit if file end +%%%% beginfont("f:mcf_data_base","v+:*") % 'mcf_data_base.mcf'(default) +%%%% beginfont("f:temp","v+:*") % use query output +%%%% beginfont("v+:*") % select all + beginfont("t:EXA","v+:1") % 'v+:1': select EXA=1 + if f_EOF=0: if check(mc)=0: MC(scantokens(mc)) fi fi + endfont + exitif f_EOF=1; % exit if file end endfor %****************************************************************************** fi -- cgit v1.2.3