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
50
51
52
53
54
55
56
57
58
59
60
61
62
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.04.04
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf; %%% it must be version 4.62
message "* mcf_exa_soc 2021.04.04";
message "";
%------------------------------------------------------------------------------
fsize:=(35mm,24mm);
max_blength:=4.5mm;
%------------------------------------------------------------------------------
%%%%sw_aux_out:=1;
%%%%sw_fframe:=1;
%%%%sw_aframe:=1;
%%%%sw_mframe:=1;
%%%%sw_expand:=1;
tag1:="J"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW";
%%%%tag5:="mi";
%%%%tag6:="w1";
%%%%tag7:="h1";
%%%% sw_rep_out:=1;
%%%% sw_mol_out:=1;
%%%% atomfont:="uhvb8r";
%%%% atomfont:="cmtt8";
%%%% atomfont:="cmvtt10";
%%%% outputformat:="png"; hppp:=vppp:=0.1; outputtemplate:="%j-%3c.png";
%------------------------------------------------------------------------------
%%%% ext(nA:=10mm; pickup pencircle scaled 0.1pt;
%%%% draw(0,0)--(w,0)--(w,h)--(0,h)--cycle;
%%%% for i=nA step nA until w: draw(i,0)--(i,h); endfor
%%%% for i=nA step nA until h: draw(0,i)--(w,i); endfor );
%------------------------------------------------------------------------------
%%ext(defaultfont:="uhvr8r"; defaultscale:=.6; label.lrt(inf_EN,(-2bp,1.5bp));)
%******************************************************************************
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
%******************************************************************************
sw_file_open:=1; % keep file open
%******************************************************************************
beginfont("f:mcf_data_base","t:n","v:5") % v:5 select No.5
if check(mc)=0: MC(scantokens(mc)) fi
endfont
%******************************************************************************
for i=6 upto 155: % No.6 - No.155
beginfont("f:mcf_data_base","t:n","v:0") % v:0 no selection
if check(mc)=0: MC(scantokens(mc)) fi
endfont
endfor
%******************************************************************************
bye
|