summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mcf2graph/mcf_exa_soc.mf')
-rw-r--r--graphics/mcf2graph/mcf_exa_soc.mf50
1 files changed, 19 insertions, 31 deletions
diff --git a/graphics/mcf2graph/mcf_exa_soc.mf b/graphics/mcf2graph/mcf_exa_soc.mf
index 74676e16c8..581833d27b 100644
--- a/graphics/mcf2graph/mcf_exa_soc.mf
+++ b/graphics/mcf2graph/mcf_exa_soc.mf
@@ -1,62 +1,50 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.04.04
+% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.04.18
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %%% it must be version 4.62
-message "* mcf_exa_soc 2021.04.04";
+input mcf2graph.mf; %%% it must be version 4.63
+message "* mcf_exa_soc 2021.04.18";
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));)
+%------------------------------------------------------------------------------
+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
+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
+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
+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
+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
+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
%******************************************************************************
-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
+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:0' no selection
+ endfont %
+ exitif f_EOF=1; % exit if file end
endfor
%******************************************************************************
+fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bye