summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-05-23 20:34:20 +0000
committerKarl Berry <karl@freefriends.org>2021-05-23 20:34:20 +0000
commit270a202f205080a02a29dcdc70cb3980354a2115 (patch)
tree1cbea55d28e51497e7f92e978195c38930b8c5d7 /Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
parentec6c34fd023b90e10ec4260b7dc211fd670957f6 (diff)
mcf2graph (23may21)
git-svn-id: svn://tug.org/texlive/trunk@59314 c570f23f-e606-0410-a88d-b1316a301751
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.mf24
1 files changed, 12 insertions, 12 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 b6bc26a3480..2356e3194e7 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
@@ -1,8 +1,8 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.05.05
+% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.05.23
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %%% it must be version 4.64
-message "* mcf_exa_soc 2021.05.05";
+input mcf2graph.mf; %%% it must be version 4.65
+message "* mcf_exa_soc 2021.05.23";
message "";
%------------------------------------------------------------------------------
fsize:=(35mm,24mm);
@@ -28,20 +28,20 @@ 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
%******************************************************************************
-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
+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: % All
-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:*' no selection
- endfont %
- exitif f_EOF=1; % exit if file end
+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; % exit if file end
endfor
%******************************************************************************
fi