some minor optimizations

2005-09-16 10:30:13 +00:00
parent af28de8e5f
commit 15a2fb2558
2 changed files with 4 additions and 3 deletions
--- 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;