summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
blob: b6bc26a3480c051831687d074f8e848b533bcd62 (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
41
42
43
44
45
46
47
48
49
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Molecular Coding Format for mcf_example.tex   by Akira Yamaji  2021.05.05
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;   %%% it must be version 4.64
message "* mcf_exa_soc 2021.05.05";
message "";
%------------------------------------------------------------------------------
fsize:=(35mm,24mm);
max_blength:=4.5mm;
tag1:="J"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW";
%------------------------------------------------------------------------------
%%%%sw_fframe:=1;
%%%% outputformat:="png"; hppp:=vppp:=0.1; outputtemplate:="%j-%3c.png";
%%ext(defaultfont:="uhvr8r"; defaultscale:=.6; label.lrt(inf_EN,(-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
%******************************************************************************
beginfont("f:mcf_data_base","t:EN","v:Adenine")         % select EN=Adenine
  if check(mc)=0: MC(scantokens(mc)) fi
endfont
%******************************************************************************
beginfont("f:mcf_data_base","t:EN","v:Guanine")         % select EN=Guanine
  if check(mc)=0: MC(scantokens(mc)) fi
endfont
%******************************************************************************
beginfont("f:mcf_data_base","t:EN","v:Cytosine")        % select EN=Cytosine
  if check(mc)=0: MC(scantokens(mc)) fi
endfont
%******************************************************************************
beginfont("f:mcf_data_base","t:EN","v:Thymine")         % select EN=Thymine
  if check(mc)=0: MC(scantokens(mc)) fi
endfont
%******************************************************************************
beginfont("f+:mcf_data_base","t:n","v:5")               % 'f+'=keep file open
  if check(mc)=0: MC(scantokens(mc)) fi                 % 'v:5' select No.5
endfont
%******************************************************************************
%%%%forever:                                            % All
for i=6 upto 155:                                       % No.6 - No.155
  beginfont("f+:mcf_data_base","v:*")                   % 'f+'=keep file open
    if check(mc)=0: MC(scantokens(mc)) fi               % 'v:*' no selection
  endfont                                               %
  exitif f_EOF=1;                                       % exit if file end
endfor
%******************************************************************************
fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bye