summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
blob: 5f0d263bbb656a8c3e3ddbc77723a066b5c1c567 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Molecular Coding Format for mcf_example.tex   by Akira Yamaji  2021.09.05
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;   %%% it must be version 4.71
message "* mcf_exa_soc 2021.09.05";
message "";
%------------------------------------------------------------------------------
fsize:=(35mm,24mm);
max_blength:=4mm;
%%%%sw_frame:=Outside;
tag1:="J"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW";
%------------------------------------------------------------------------------
%%%% outputformat:="png"; hppp:=vppp:=0.1; outputtemplate:="%j-%3c.png";
%ext(defaultfont:="uhvr8r"; defaultscale:=.6; label.lrt(inf_EN,(-2bp,1.5bp));)
%sw_output:=Font;
%ext(defaultfont:="uhvr8r"; defaultscale:=.6;
%label.lrt(inf_EN&" MW="&cal_MW
%  &"("&decimal(num_MW-scantokens(inf_MW))&")",(-2bp,1.5bp));
%)
%------------------------------------------------------------------------------
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");
%******************************************************************************
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
endfor
%******************************************************************************
fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bye