[Apophysis-cvs-commits] 2.10/Source Main.dfm,1.7,1.8 Main.pas,1.7,1.8

[Ronald H. <ron...@us...>]

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

Modified Files:
	Main.dfm Main.pas 
Log Message:
Background will remain the same (depending on options)

Index: Main.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Main.pas	19 Jun 2005 05:47:55 -0000	1.7
--- Main.pas	26 Jun 2005 06:49:09 -0000	1.8
***************
*** 662,669 ****
    skip: boolean;
  *)
  begin
!   cp1.Free;
!   cp1 := nil;
!   cp1 := RandomFlame(MainCP, alg);
  (*
    Min := randMinTransforms;
--- 662,682 ----
    skip: boolean;
  *)
+ var
+   sourceCP: TControlPoint;
  begin
!   if assigned(MainCP) then
!     sourceCP := MainCP.Clone
!   else
!     SourceCP := nil;
! 
!   if assigned(cp1) then begin
!     cp1.Free;
!     cp1 := nil;
!   end;
!   cp1 := RandomFlame(sourceCP, alg);
! 
!   if assigned(sourceCP) then
!     sourceCP.Free;
! 
  (*
    Min := randMinTransforms;

Index: Main.dfm
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.dfm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Main.dfm	23 Jun 2005 18:53:14 -0000	1.7
--- Main.dfm	26 Jun 2005 06:49:09 -0000	1.8
***************
*** 28,32 ****
      Top = 28
      Width = 4
!     Height = 514
    end
    object ToolBar: TToolBar
--- 28,32 ----
      Top = 28
      Width = 4
!     Height = 534
    end
    object ToolBar: TToolBar
***************
*** 262,266 ****
      Top = 28
      Width = 160
!     Height = 514
      Align = alLeft
      Columns = <
--- 262,266 ----
      Top = 28
      Width = 160
!     Height = 534
      Align = alLeft
      Columns = <
***************
*** 281,285 ****
      Top = 28
      Width = 402
!     Height = 514
      Align = alClient
      BevelInner = bvLowered
--- 281,285 ----
      Top = 28
      Width = 402
!     Height = 534
      Align = alClient
      BevelInner = bvLowered
***************
*** 304,308 ****
    object StatusBar: TStatusBar
      Left = 0
!     Top = 542
      Width = 566
      Height = 19
--- 304,308 ----
    object StatusBar: TStatusBar
      Left = 0
!     Top = 562
      Width = 566
      Height = 19