summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-05-05 22:15:28 +0000
committerKarl Berry <karl@freefriends.org>2016-05-05 22:15:28 +0000
commit4a55f10229652978387f3ed0ff6e1de158644a22 (patch)
treec01808b96fdf696a04ceebd4edca5769e441ea72 /Master/texmf-dist/metapost
parent3155ad2afcd7018662195b194e415a9e14e62d2a (diff)
mcf2graph (5may2016)
git-svn-id: svn://tug.org/texlive/trunk@40903 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost')
-rw-r--r--Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf b/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf
index c923e973f3a..16bff0230c9 100644
--- a/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf
+++ b/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% mcf2graph ver 3.91 Copyright (c) 2013-2016 Akira Yamaji
+% mcf2graph ver 3.92 Copyright (c) 2013-2016 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,
@@ -171,9 +171,13 @@ for i=1 upto cntA: xpos:=xpart(posA[i]); ypos:=ypart(posA[i]);
enddef;
%-------------------------------------------------------------------------------------------------
def resize(expr WD,HT)=
- if (len_y/len_x)>(font_ht/font_wd): factor:=(font_ht*HT-2margin_top_bottom)/len_y;
- else: factor:=(font_wd*WD-2margin_left_right)/len_x; fi
- ratio_bond_width:=ratio_bond_width*factor; len_x:=len_x*factor; len_y:=len_y*factor;
+ if (len_y/len_x)>(font_ht/font_wd):
+ factor:=(font_ht*HT-2margin_top_bottom)/len_y;
+ else:
+ factor:=(font_wd*WD-2margin_left_right)/len_x;
+ fi
+ ratio_bond_width:=ratio_bond_width*factor;
+ len_x:=len_x*factor; len_y:=len_y*factor;
enddef;
%-------------------------------------------------------------------------------------------------
for i=1 upto 128: f_FON[i]:=0; endfor asc0:=ASCII("0"); asc9:=ASCII("9");