diff options
| author | Karl Berry <karl@freefriends.org> | 2016-05-05 22:15:28 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2016-05-05 22:15:28 +0000 |
| commit | 4a55f10229652978387f3ed0ff6e1de158644a22 (patch) | |
| tree | c01808b96fdf696a04ceebd4edca5769e441ea72 /Master/texmf-dist/metapost | |
| parent | 3155ad2afcd7018662195b194e415a9e14e62d2a (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.mf | 12 |
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"); |