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

tried to convert a variation to assembler.

Browse Source 
although compiled code looks MUCH less optimal than this, I haven't noticed any performance increase :-/
This commit is contained in:
zueuk 2005-09-22 16:08:29 +00:00
parent 6f3af378af
commit 573de31ffc
1 changed files with 36 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
2.10/Source/VarEyefish.pas
View File

@ -23,12 +23,45 @@ uses
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
procedure TVariationEyefish.CalcFunction; procedure TVariationEyefish.CalcFunction;
{$if false}
var var
r: double; r: double;
begin begin
r := 2 / (sqrt(FTx^ * FTx^ + FTy^ * FTy^) + 1); r := 2 * vvar / (sqrt(FTx^ * FTx^ + FTy^ * FTy^) + 1);
FPx^ := FPx^ + vvar * r * FTx^; FPx^ := FPx^ + r * FTx^;
FPy^ := FPy^ + vvar * r * FTy^; FPy^ := FPy^ + r * FTy^;
{$else}
asm
fld qword ptr [eax+vvar]
fadd st, st
mov ecx, [eax+FTy]
fld qword ptr [ecx]
mov ecx, [eax+FTx]
fld qword ptr [ecx]
fld st(1)
fmul st, st
fld st(1)
fmul st, st
fadd
fsqrt
fld1
fadd
fdivp st(3), st
fmul st, st(2)
mov ecx, [eax+FPx]
fadd qword ptr [ecx]
fstp qword ptr [ecx]
fmulp
mov ecx, [eax+FPy]
fadd qword ptr [ecx]
fstp qword ptr [ecx]
{$ifend}
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////