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

optimized it a bit

Browse Source
This commit is contained in:
zueuk 2005-09-15 16:43:23 +00:00
parent 63991a1bd3
commit 6876a3f80a
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/Source/VarEyefish.pas
View File

@ -24,13 +24,11 @@ uses
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
procedure TVariationEyefish.CalcFunction; procedure TVariationEyefish.CalcFunction;
var var
Flength, r: double; r: double;
begin begin
Flength := sqrt(FTx^ * FTx^ + FTy^ * FTy^); r := 2 / (sqrt(FTx^ * FTx^ + FTy^ * FTy^) + 1);
FPx^ := FPx^ + vvar * r * FTx^;
r := 2 * Flength / (Flength + 1); FPy^ := FPy^ + vvar * r * FTy^;
FPx^ := FPx^ + vvar * r * FTx^ / Flength;
FPy^ := FPy^ + vvar * r * FTy^ / Flength;
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////