diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf | 50 |
1 files changed, 19 insertions, 31 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf index 74676e16c8c..581833d27b7 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf +++ b/Master/texmf-dist/doc/metapost/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 |