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

fixed flam3 compatibility, etc...

Browse Source
This commit is contained in:
zueuk
2006-04-05 11:46:34 +00:00
parent 25f0756f70
commit 49156a4e10
3 changed files with 93 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/XForm.pas
View File

@ -1550,7 +1550,7 @@ var
r, sinr, cosr: double;
begin
SinCos(random * 2*pi, sinr, cosr);
r := vars[28] * random * (sqr(FTx) + sqr(FTy));
r := vars[28] * random * sqrt(sqr(FTx) + sqr(FTy));
FPx := FPx + r * cosr;
FPy := FPy + r * sinr;
{$else}
@ -1564,7 +1564,7 @@ asm
fld qword ptr [ebx + FTy]
fmul st, st
faddp
//fsqrt
fsqrt
fmulp
call System.@RandExt
fadd st, st