diff --git a/2.10/Source/Adjust.dfm b/2.10/Source/Adjust.dfm index b293437..d7f0746 100644 --- a/2.10/Source/Adjust.dfm +++ b/2.10/Source/Adjust.dfm @@ -546,6 +546,7 @@ object AdjustForm: TAdjustForm Height = 21 Hint = 'Click for menu' Caption = 'Rotate' + Flat = True ParentShowHint = False ShowHint = True OnClick = btnMenuClick diff --git a/2.10/Source/Fullscreen.pas b/2.10/Source/Fullscreen.pas index 296e53d..da8e69f 100644 --- a/2.10/Source/Fullscreen.pas +++ b/2.10/Source/Fullscreen.pas @@ -70,9 +70,12 @@ begin StartTime := Now; t := now; Remainder := 1; - if Assigned(Renderer) then Renderer.Terminate; - if Assigned(Renderer) then Renderer.WaitFor; - assert(not assigned(renderer)); + if Assigned(Renderer) then begin + Renderer.Terminate; + Renderer.WaitFor; + Application.ProcessMessages;//Renderer.Free; + end; + assert(not assigned(renderer), 'Render thread is still running!?'); if not Assigned(Renderer) then begin Renderer := TRenderThread.Create; diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm index d2c4881..60f8bee 100644 --- a/2.10/Source/Main.dfm +++ b/2.10/Source/Main.dfm @@ -195,7 +195,7 @@ object MainForm: TMainForm object btnDefine: TToolButton Left = 348 Top = 0 - Hint = 'Edit Script (F8)|Open the Script Editor' + Hint = 'Edit Script|Open the Script Editor' Caption = 'btnDefine' ImageIndex = 42 OnClick = mnuEditScriptClick @@ -203,7 +203,7 @@ object MainForm: TMainForm object btnRun: TToolButton Left = 371 Top = 0 - Hint = 'Run Script|Run Script' + Hint = 'Run Script (F9)|Run Script' Caption = 'Run' ImageIndex = 43 OnClick = btnRunClick @@ -211,7 +211,7 @@ object MainForm: TMainForm object btnStop: TToolButton Left = 394 Top = 0 - Hint = 'Stop Script|Stop Script' + Hint = 'Stop Script (F10)|Stop Script' Caption = 'Stop' ImageIndex = 36 OnClick = mnuStopClick diff --git a/2.10/Source/XForm.pas b/2.10/Source/XForm.pas index a6e820e..060d1b8 100644 --- a/2.10/Source/XForm.pas +++ b/2.10/Source/XForm.pas @@ -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