some small fixes

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

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;

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

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