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

some small fixes

Browse Source
This commit is contained in:
zueuk
2006-03-19 17:51:26 +00:00
parent da3a948247
commit 892a380d0a
4 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
2.10/Source/XForm.pas
View File

@ -371,8 +371,8 @@ end;
procedure TXForm.DoPostTransform;
{$ifndef _ASM_}
begin
x := p00 * FPx + p10 * FPy + p20;
y := p01 * FPx + p11 * FPy + p21;
FPx := p00 * FPx + p10 * FPy + p20;
FPy := p01 * FPx + p11 * FPy + p21;
{$else}
asm
fld qword ptr [eax + FPy]
@ -873,15 +873,22 @@ asm
fld1
faddp
fdivp st(1), st
xor eax, eax // hmm...
add eax, $02 // hmmm....
call System.@RandInt // hmmmm.....
mov eax, 2
call System.@RandInt
shr eax, 1
jnc @skip
fldpi
faddp
@skip:
{
push eax
fild dword ptr [esp]
add esp, 4
fldpi
fmulp
faddp
}
fsincos
fld qword ptr [ebx + FTx]
fmul st, st