From 3945eca85e3870fc80fed7a416a3981d67633ee0 Mon Sep 17 00:00:00 2001 From: utak3r Date: Sat, 4 Jun 2005 12:35:09 +0000 Subject: [PATCH] Fixed a bug causing floating point errors on various editing tasks. --- 2.10/Changes.txt | 1 + 2.10/Source/Render64.pas | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/2.10/Changes.txt b/2.10/Changes.txt index 55fa280..98f5dc5 100644 --- a/2.10/Changes.txt +++ b/2.10/Changes.txt @@ -5,6 +5,7 @@ B1116907 Values Editing events + FR1183940 Added triangle rotation functions in the editors popup menu. + Added gradient drawing in a tooltip form in the gradient browser window. + Editor window now has controls for precise moving and rotating triangles. +Fixed a bug causing floating point errors on big unzooming and other editing tasks. 2.02g + Delphi2005 Project diff --git a/2.10/Source/Render64.pas b/2.10/Source/Render64.pas index 806412d..8f128b6 100644 --- a/2.10/Source/Render64.pas +++ b/2.10/Source/Render64.pas @@ -404,8 +404,11 @@ begin if FStop then Exit; - if (i and $F = 0) then - Progress(i / nrbatches); + if ((i and $F) = 0) then + if nrbatches > 0 then + Progress(i / nrbatches) + else + Progress(0); // generate points {$IFDEF TESTVARIANT}