%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.06.13 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mcf2graph.mf; %%% it must be version 4.67 message "* mcf_exa_soc 2021.06.13"; 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: beginfont("f+:mcf_data_base","t:EXA","v:1") % 'f+'=keep file open %%%%%%%%%% beginfont("f+:mcf_data_base","v:*") % select all if f_EOF=0: if check(mc)=0: MC(scantokens(mc)) fi fi % 'v:1' select EXA=1 endfont % exitif f_EOF=1; % exit if file end endfor %****************************************************************************** fi %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% bye