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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.10/Source/Adjust.dfm
View File

@ -546,6 +546,7 @@ object AdjustForm: TAdjustForm
Height = 21 Height = 21
Hint = 'Click for menu' Hint = 'Click for menu'
Caption = 'Rotate' Caption = 'Rotate'
Flat = True
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = btnMenuClick OnClick = btnMenuClick

9
2.10/Source/Fullscreen.pas
View File

@ -70,9 +70,12 @@ begin
StartTime := Now; StartTime := Now;
t := now; t := now;
Remainder := 1; Remainder := 1;
if Assigned(Renderer) then Renderer.Terminate; if Assigned(Renderer) then begin
if Assigned(Renderer) then Renderer.WaitFor; Renderer.Terminate;
assert(not assigned(renderer)); Renderer.WaitFor;
Application.ProcessMessages;//Renderer.Free;
end;
assert(not assigned(renderer), 'Render thread is still running!?');
if not Assigned(Renderer) then if not Assigned(Renderer) then
begin begin
Renderer := TRenderThread.Create; Renderer := TRenderThread.Create;

6
2.10/Source/Main.dfm
View File

@ -195,7 +195,7 @@ object MainForm: TMainForm
object btnDefine: TToolButton object btnDefine: TToolButton
Left = 348 Left = 348
Top = 0 Top = 0
Hint = 'Edit Script (F8)|Open the Script Editor' Hint = 'Edit Script|Open the Script Editor'
Caption = 'btnDefine' Caption = 'btnDefine'
ImageIndex = 42 ImageIndex = 42
OnClick = mnuEditScriptClick OnClick = mnuEditScriptClick
@ -203,7 +203,7 @@ object MainForm: TMainForm
object btnRun: TToolButton object btnRun: TToolButton
Left = 371 Left = 371
Top = 0 Top = 0
Hint = 'Run Script|Run Script' Hint = 'Run Script (F9)|Run Script'
Caption = 'Run' Caption = 'Run'
ImageIndex = 43 ImageIndex = 43
OnClick = btnRunClick OnClick = btnRunClick
@ -211,7 +211,7 @@ object MainForm: TMainForm
object btnStop: TToolButton object btnStop: TToolButton
Left = 394 Left = 394
Top = 0 Top = 0
Hint = 'Stop Script|Stop Script' Hint = 'Stop Script (F10)|Stop Script'
Caption = 'Stop' Caption = 'Stop'
ImageIndex = 36 ImageIndex = 36
OnClick = mnuStopClick OnClick = mnuStopClick

17
2.10/Source/XForm.pas
View File

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