summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf2graph.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-06-29 03:01:11 +0000
committerNorbert Preining <norbert@preining.info>2021-06-29 03:01:11 +0000
commitbdafc07360a98b693982369cce21a73afef5e3d7 (patch)
tree5965c3d688be3d5848f3b12bf4993dd09f61cc5f /graphics/mcf2graph/mcf2graph.mf
parent36c481b02c4fdfaf33325b9f18834c2357b8eec5 (diff)
CTAN sync 202106290301
Diffstat (limited to 'graphics/mcf2graph/mcf2graph.mf')
-rw-r--r--graphics/mcf2graph/mcf2graph.mf12
1 files changed, 6 insertions, 6 deletions
diff --git a/graphics/mcf2graph/mcf2graph.mf b/graphics/mcf2graph/mcf2graph.mf
index bc0dd5d6b6..33fec242fe 100644
--- a/graphics/mcf2graph/mcf2graph.mf
+++ b/graphics/mcf2graph/mcf2graph.mf
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% mcf2graph ver 4.67 Copyright (c) 2013-2021 Akira Yamaji
+% mcf2graph ver 4.68 Copyright (c) 2013-2021 Akira Yamaji
%
% Permission is hereby granted, free of charge, to any person obtaining a copy of this software
% and associated documentation files (the "Software"), to deal in the Software without restriction,
@@ -37,7 +37,7 @@
% Set to use plain.mp (label,arrow,atom) : mpost -s labeloffset=2 FILENAME
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
tracingstats:=1;
-message "* This is mcf2graph ver 4.67 2021.06.13";
+message "* This is mcf2graph ver 4.68 2021.06.28";
%-------------------------------------------------------------------------------------------------
newinternal cntA,cntB,cntM,minX,minY,maxX,maxY,sftX,sftY,com,par,envT,envB,lenT,lineT,angT,rotT,
crR,nA,nB,nC,nD,nE,nF,nS,nL,nR,nU,nP,xpos,ypos,markA,markB,saveA,saveB,bondL;
@@ -252,7 +252,7 @@ enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def beginfont(text s)=
begingroup
- save ',f_beginchar,f_ext,blen,ext,add,ang_br,n_fw,n_bw,at_colon,at_semicol,temps,t_tag,f_close,
+ save ',f_beginchar,f_ext,blen,ext,add,ang_br,n_fw,n_bw,at_colon,at_semicol,temps,t_tag,
mc,info,file_name_input,bond_cnt,warning_cnt,hideH_cnt,bondC;
numeric at_semicol[];
string info[],mc[],mc,temps,file_name_input,t_tag;
@@ -269,7 +269,7 @@ def beginfont(text s)=
%------------------------------------------------------------------------------------------------
char_num:=char_num+1;
store_par(parameter_list);
- f_ext:=cntM:=mc_row:=inf_num:=f_EOF:=0; f_close:=1;
+ f_ext:=cntM:=mc_row:=inf_num:=f_EOF:=f_close:=0;
for list=s: inf_num:=inf_num+1; info[inf_num]:=list; mc[inf_num]:=""; endfor
%------------------------------------------------------------------------------------------------
for j=1 upto inf_num:
@@ -284,8 +284,8 @@ def beginfont(text s)=
ef at_colon>=1:
s_tag:=substring (0,at_colon-1) of info[j];
s_var:=substring (at_colon,length(info[j])) of info[j];
- if s_tag="f": if f_MP=1: file_name_input:=s_var&".mcf"; fi
- ef s_tag="f+": if f_MP=1: file_name_input:=s_var&".mcf"; f_close:=0; fi
+ if s_tag="f": if f_MP=1: file_name_input:=s_var&".mcf"; f_close:=1; fi
+ ef s_tag="f+": if f_MP=1: file_name_input:=s_var&".mcf"; fi
ef s_tag="t": if f_MP=1: t_tag:=s_var; fi
ef s_tag="v": if f_MP=1: pickup_data_unit(t_tag,s_var); fi
else: if known scantokens("inf_"&s_tag): scantokens("inf_"&s_tag):=s_var; fi