From 15a2fb25585e6b54fb25df1e9cf220716261c7c9 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Fri, 16 Sep 2005 10:30:13 +0000
Subject: [PATCH] some minor optimizations

---
 2.10/Source/XForm.pas   | 3 ++-
 2.10/Source/varblob.pas | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/2.10/Source/XForm.pas b/2.10/Source/XForm.pas
index 9e86ad6..6be072a 100644
--- a/2.10/Source/XForm.pas
+++ b/2.10/Source/XForm.pas
@@ -452,7 +452,8 @@ var
   dx, dy: double;
   sinr, cosr: extended;
 begin
-  dx := exp(FTx)/ 2.718281828459045;
+  dx := exp(FTx - 1); // exp(FTx)/ 2.718281828459045;
+  // --Z-- (e^x)/e = e^(x-1), isn't it?!
   dy := PI * FTy;
   SinCos(dy, sinr, cosr);
   FPx := FPx + vars[18] * cosr * dx;
diff --git a/2.10/Source/varblob.pas b/2.10/Source/varblob.pas
index 0d81c70..36a8b79 100644
--- a/2.10/Source/varblob.pas
+++ b/2.10/Source/varblob.pas
@@ -88,8 +88,8 @@ begin
     FHigh := Value;
     Result := True;
   end else if Name = 'blob_waves' then begin
-    Value := Round(Value);
-    FWaves := Value;
+    //???????????? what for?: // Value := Round(Value);
+    FWaves := Round(Value);
     Result := True;
   end
 end;