summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mp
blob: 9c1015a8f860c76766428e1d3ce70935927d5f6f (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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% MCF metapost souce file example                 by Akira Yamaji  2023.05.15
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if unknown mcftograph: input mcf2graph; fi  %%% it must be version 5.01
message "* mcf_template 2023.05.14";
message "";
%------------------------------------------------------------------------------
fsize:=(30mm,20mm);
max_blength:=4mm;
%%%%sw_output:=Fig+Info;
%%%%sw_output:=Fig+Calc;
%ext(defaultscale:=.3; label.rt(EN,(0,0));)
%------------------------------------------------------------------------------
%ext(defaultfont:=mpfont; defaultscale:=.3;
%label.rt(EN&" / "&cal_MW&" / "&decimal(num_MW-scantokens(MW)),(0,0));)
%------------------------------------------------------------------------------
%%%%loadm("CAT=biological","MW<200","a:MW");
%%%%loadm("CAT=biological","MW<50.0","a:EN");
%%%%loadm("CAT=biological","MW>=285","MW<=288","a:EN");
%%%%sw_comment:=1; loadm("CAT=biological","MW>=100","MW<=250","a:MW");
%%%%savem("temp.mcf");                    % save to temp.mcf
%%%%loadm("EN<>*");                       % select all
loadm("EXA=1");                           % select EXA=1
%------------------------------------------------------------------------------
for i=1 upto ucount:
  beginfigm
    getm(i);
    putm;
  endfigm
endfor
%******************************************************************************
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bye