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

Nonsense limitation of a minimum 2-transforms flame scrapped. Additionally, "New blank flame" function produces a single-transform flame.

Browse Source
This commit is contained in:
utak3r 2007-06-28 22:54:26 +00:00
parent 6219aee9f9
commit fbee55af5d
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2.10/Source/Editor.pas
View File

@ -969,7 +969,7 @@ begin
if (SelectedTriangle = Transforms) then Dec(SelectedTriangle); if (SelectedTriangle = Transforms) then Dec(SelectedTriangle);
end end
else else
if (Transforms <= 2) then exit if (Transforms <= 1) then exit
else begin else begin
MainForm.UpdateUndo; MainForm.UpdateUndo;
if t = (Transforms - 1) then if t = (Transforms - 1) then
@ -3886,10 +3886,7 @@ begin
for i := 0 to Transforms do cp.xform[i].Clear; for i := 0 to Transforms do cp.xform[i].Clear;
cp.xform[0].vars[0] := 1; cp.xform[0].vars[0] := 1;
cp.xform[0].density := 0.5; cp.xform[0].density := 0.5;
cp.xform[1].vars[0] := 1; cp.xform[1].symmetry := 1;
cp.xform[1].density := 0.5;
cp.xform[1].color := 1;
cp.xform[2].symmetry := 1;
cp.center[0] := 0; cp.center[0] := 0;
cp.center[1] := 0; cp.center[1] := 0;
@ -3897,11 +3894,10 @@ begin
cp.pixels_per_unit := PreviewImage.Width/4; cp.pixels_per_unit := PreviewImage.Width/4;
cp.FAngle := 0; cp.FAngle := 0;
Transforms := 2; Transforms := 1;
SelectedTriangle := 1; SelectedTriangle := 1;
MainTriangles[0] := MainTriangles[-1]; MainTriangles[0] := MainTriangles[-1];
MainTriangles[1] := MainTriangles[-1]; MainTriangles[1] := MainTriangles[-1]; // kinda reset finalxform
MainTriangles[2] := MainTriangles[-1]; // kinda reset finalxform
EnableFinalXform := false; EnableFinalXform := false;
assert(cp.HasFinalXForm = false); assert(cp.HasFinalXForm = false);

5
2.10/Source/Options.dfm
View File

@ -44,7 +44,7 @@ object OptionsForm: TOptionsForm
Top = 8 Top = 8
Width = 451 Width = 451
Height = 265 Height = 265
ActivePage = GeneralPage ActivePage = RandomPage
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
object GeneralPage: TTabSheet object GeneralPage: TTabSheet
@ -728,8 +728,7 @@ object OptionsForm: TOptionsForm
Width = 12 Width = 12
Height = 21 Height = 21
Associate = txtMinXForms Associate = txtMinXForms
Min = 2 Min = 1
Max = 12
Position = 2 Position = 2
TabOrder = 2 TabOrder = 2
end end