mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Background will remain the same (depending on options)

Browse Source
This commit is contained in:
ronaldhordijk 2005-06-26 06:49:09 +00:00
parent b732ae3b0d
commit d6efa3a794
2 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Main.dfm
View File

@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 514 Height = 534
end end
object ToolBar: TToolBar object ToolBar: TToolBar
Left = 0 Left = 0
@ -261,7 +261,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Top = 28 Top = 28
Width = 160 Width = 160
Height = 514 Height = 534
Align = alLeft Align = alLeft
Columns = < Columns = <
item item
@ -280,7 +280,7 @@ object MainForm: TMainForm
Left = 164 Left = 164
Top = 28 Top = 28
Width = 402 Width = 402
Height = 514 Height = 534
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
@ -303,7 +303,7 @@ object MainForm: TMainForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 542 Top = 562
Width = 566 Width = 566
Height = 19 Height = 19
Panels = < Panels = <

15
2.10/Source/Main.pas
View File

@ -661,10 +661,23 @@ var
r, s, theta, phi: double; r, s, theta, phi: double;
skip: boolean; skip: boolean;
*) *)
var
sourceCP: TControlPoint;
begin begin
if assigned(MainCP) then
sourceCP := MainCP.Clone
else
SourceCP := nil;
if assigned(cp1) then begin
cp1.Free; cp1.Free;
cp1 := nil; cp1 := nil;
cp1 := RandomFlame(MainCP, alg); end;
cp1 := RandomFlame(sourceCP, alg);
if assigned(sourceCP) then
sourceCP.Free;
(* (*
Min := randMinTransforms; Min := randMinTransforms;
Max := randMaxTransforms; Max := randMaxTransforms;