[Apophysis-cvs-commits] 2.10/Source Adjust.dfm,1.16,1.17 Fullscreen.pas,1.4,1.5 Main.dfm,1.29,1.30 XForm.pas,1.26,1.27

[Peter S. <zu...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5666/Source

Modified Files:
	Adjust.dfm Fullscreen.pas Main.dfm XForm.pas 
Log Message:
some small fixes

Index: XForm.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/XForm.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** XForm.pas	18 Mar 2006 18:12:59 -0000	1.26
--- XForm.pas	19 Mar 2006 17:51:26 -0000	1.27
***************
*** 372,377 ****
  {$ifndef _ASM_}
  begin
!   x := p00 * FPx + p10 * FPy + p20;
!   y := p01 * FPx + p11 * FPy + p21;
  {$else}
  asm
--- 372,377 ----
  {$ifndef _ASM_}
  begin
!   FPx := p00 * FPx + p10 * FPy + p20;
!   FPy := p01 * FPx + p11 * FPy + p21;
  {$else}
  asm
***************
*** 874,880 ****
      faddp
      fdivp   st(1), st
!     xor     eax, eax        // hmm...
!     add     eax, $02        // hmmm....
!     call    System.@RandInt // hmmmm.....
      push    eax
      fild    dword ptr [esp]
--- 874,886 ----
      faddp
      fdivp   st(1), st
!     mov     eax, 2
!     call    System.@RandInt
! 
!     shr     eax, 1
!     jnc     @skip
!     fldpi
!     faddp
! @skip:
! {
      push    eax
      fild    dword ptr [esp]
***************
*** 883,886 ****
--- 889,893 ----
      fmulp
      faddp
+ }
      fsincos
      fld     qword ptr [ebx + FTx]

Index: Adjust.dfm
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Adjust.dfm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Adjust.dfm	6 Mar 2006 15:34:53 -0000	1.16
--- Adjust.dfm	19 Mar 2006 17:51:26 -0000	1.17
***************
*** 547,550 ****
--- 547,551 ----
          Hint = 'Click for menu'
          Caption = 'Rotate'
+         Flat = True
          ParentShowHint = False
          ShowHint = True

Index: Main.dfm
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.dfm,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Main.dfm	18 Mar 2006 18:12:59 -0000	1.29
--- Main.dfm	19 Mar 2006 17:51:26 -0000	1.30
***************
*** 196,200 ****
        Left = 348
        Top = 0
!       Hint = 'Edit Script (F8)|Open the Script Editor'
        Caption = 'btnDefine'
        ImageIndex = 42
--- 196,200 ----
        Left = 348
        Top = 0
!       Hint = 'Edit Script|Open the Script Editor'
        Caption = 'btnDefine'
        ImageIndex = 42
***************
*** 204,208 ****
        Left = 371
        Top = 0
!       Hint = 'Run Script|Run Script'
        Caption = 'Run'
        ImageIndex = 43
--- 204,208 ----
        Left = 371
        Top = 0
!       Hint = 'Run Script (F9)|Run Script'
        Caption = 'Run'
        ImageIndex = 43
***************
*** 212,216 ****
        Left = 394
        Top = 0
!       Hint = 'Stop Script|Stop Script'
        Caption = 'Stop'
        ImageIndex = 36
--- 212,216 ----
        Left = 394
        Top = 0
!       Hint = 'Stop Script (F10)|Stop Script'
        Caption = 'Stop'
        ImageIndex = 36

Index: Fullscreen.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Fullscreen.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Fullscreen.pas	6 Mar 2006 15:34:54 -0000	1.4
--- Fullscreen.pas	19 Mar 2006 17:51:26 -0000	1.5
***************
*** 71,77 ****
    t := now;
    Remainder := 1;
!   if Assigned(Renderer) then Renderer.Terminate;
!   if Assigned(Renderer) then Renderer.WaitFor;
!   assert(not assigned(renderer));
    if not Assigned(Renderer) then
    begin
--- 71,80 ----
    t := now;
    Remainder := 1;
!   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