From: Peter S. <zu...@us...> - 2006-03-19 17:51:29
|
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 |