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

version 2.05 beta

Browse Source
This commit is contained in:
zueuk
2006-10-29 16:39:27 +00:00
parent c132463c76
commit ae773f206a
4 changed files with 40 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
2.10/Source/varpdj.pas
View File

@ -5,6 +5,8 @@ interface
uses
BaseVariation, XFormMan;
{$define _ASM_}
type
TVariationPDJ = class(TBaseVariation)
private
@ -34,9 +36,38 @@ uses
///////////////////////////////////////////////////////////////////////////////
procedure TVariationPDJ.CalcFunction;
{$ifndef _ASM_}
begin
FPx^ := FPx^ + vvar * (sin(FA * FTy^) - cos(FB * FTx^));
FPy^ := FPy^ + vvar * (sin(FC * FTx^) - cos(FD * FTy^));
{$else}
asm
fld qword ptr [eax + vvar]
mov edx, [eax + FTx]
fld qword ptr [edx + 8] // FTy
fld qword ptr [edx] // FTx
fld st(1)
fmul qword ptr [eax + Fa]
fsin
fld st(1)
fmul qword ptr [eax + Fb]
fcos
fsubp st(1), st
fmul st, st(3)
fadd qword ptr [edx + 16] // FPx
fstp qword ptr [edx + 16]
fmul qword ptr [eax + Fc]
fsin
fxch st(1)
fmul qword ptr [eax + Fd]
fcos
fsubp st(1), st
fmulp
fadd qword ptr [edx + 24] // FPy
fstp qword ptr [edx + 24]
{$endif}
end;
///////////////////////////////////////////////////////////////////////////////