summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-05-24 03:01:24 +0000
committerNorbert Preining <norbert@preining.info>2021-05-24 03:01:24 +0000
commit5f0d648973cab5784f4bdb361bbe261b60493432 (patch)
tree8d52d91ad042d654b138e7ce1b7b87b85b837b11 /graphics/mcf2graph/mcf_exa_soc.mf
parentf1261b349e875b842745b63258c3e338cb1fe3bf (diff)
CTAN sync 202105240301
Diffstat (limited to 'graphics/mcf2graph/mcf_exa_soc.mf')
-rw-r--r--graphics/mcf2graph/mcf_exa_soc.mf24
1 files changed, 12 insertions, 12 deletions
diff --git a/graphics/mcf2graph/mcf_exa_soc.mf b/graphics/mcf2graph/mcf_exa_soc.mf
index b6bc26a348..2356e3194e 100644
--- a/graphics/mcf2graph/mcf_exa_soc.mf
+++ b/graphics/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