summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
blob: 74676e16c8c801ce6357d498ba891047659ababd (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
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