more assembler - more speed...(?)

must test... and we really need some profiler :)
2005-11-06 10:47:13 +00:00
parent b4104e8185
commit 9abbe9b52e
15 changed files with 379 additions and 238 deletions
--- a/2.10/Source/VarEyefish.pas
+++ b/2.10/Source/VarEyefish.pas
@ -27,7 +27,7 @@ procedure TVariationEyefish.CalcFunction;
 var
  r: double;
 begin
-  r := 2 * vvar / (sqrt(FTx^ * FTx^ + FTy^ * FTy^) + 1);
+  r := 2 * vvar / (sqrt(sqr(FTx^) + sqr(FTy^)) + 1);
  FPx^ := FPx^ + r * FTx^;
  FPy^ := FPy^ + r * FTy^;
 {$else}