mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Zoom out fixed

Browse Source 
the bounds are a litle bit larger
This commit is contained in:
ronaldhordijk 2005-06-27 18:12:28 +00:00
parent 43b3267fae
commit 86c58ec2ec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2.10/Source/ControlPoint.pas
View File

@ -1074,7 +1074,7 @@ begin
center[0] := (minx + maxx) / 2;
center[1] := (miny + maxy) / 2;
if ((maxx - minx) > 0.001) and ((maxy - miny) > 0.001) then
pixels_per_unit := 0.7 * Min(width / (maxx - minx), Height / (maxy - miny))
pixels_per_unit := 0.65 * Min(width / (maxx - minx), Height / (maxy - miny))
else
pixels_per_unit := 10;
except on E: EMathError do
@ -1674,8 +1674,8 @@ begin
center[0] := center[0] + cos(FAngle) * dx - sin(FAngle) * dy;
center[1] := center[1] + sin(FAngle) * dx + cos(FAngle) * dy ;
Scale := Scale * Min( Width/(abs(r.Right - r.Left) + 1), Height/(abs(r.Bottom - r.Top) + 1)) ;
Zoom := Log2(1/Scale);
Scale := Scale / Min( Width/(abs(r.Right - r.Left) + 1), Height/(abs(r.Bottom - r.Top) + 1)) ;
Zoom := Log2(Scale);
end;
///////////////////////////////////////////////////////////////////////////////