%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.08.01 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mcf2graph.mf; %%% it must be version 4.70 message "* mcf_exa_soc 2021.08.01"; 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));) %sw_output:=Font; %ext(defaultfont:="uhvr8r"; defaultscale:=.6; %label.lrt(inf_EN&" MW="&cal_MW % &"("&decimal(num_MW-scantokens(inf_MW))&")",(-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 %------------------------------------------------------------------------------ %%message "counr unit= "&decimal(count_data_unit("mcf_data_base")); %****************************************************************************** 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","v:*") % select all beginfont("f+:mcf_data_base","t:EXA","v:1") % 'f+'=keep file open if f_EOF=0: if check(mc)=0: MC(scantokens(mc)) fi fi % 'v:1' select EXA=1 endfont % exitif (f_EOF=1)or(f_close=1); % exit if file end endfor %****************************************************************************** fi %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% bye