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

Final rectangles variation.

Browse Source
This commit is contained in:
utak3r 2007-06-23 19:36:44 +00:00
parent 2a3db64f9e
commit 69d8f8b801
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
2.10/Source/varRectangles.pas
View File

@ -31,7 +31,7 @@ uses
type type
TVariationRectangles = class(TBaseVariation) TVariationRectangles = class(TBaseVariation)
private private
FRectanglesX, FRectanglesY, RectanglesXFactor: double; FRectanglesX, FRectanglesY: double;
public public
constructor Create; constructor Create;
@ -110,7 +110,6 @@ begin
case Index Of case Index Of
0: Result := 'rectangles_x'; 0: Result := 'rectangles_x';
1: Result := 'rectangles_y'; 1: Result := 'rectangles_y';
2: Result := 'rectangles_x_factor';
else else
Result := ''; Result := '';
end end
@ -119,7 +118,7 @@ end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
class function TVariationRectangles.GetNrVariables: integer; class function TVariationRectangles.GetNrVariables: integer;
begin begin
Result := 3; Result := 2;
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
@ -133,10 +132,6 @@ begin
FRectanglesY := Value; FRectanglesY := Value;
Result := True; Result := True;
end end
else if Name = 'rectangles_x_factor' then begin
RectanglesXFactor := Value;
Result := True;
end
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
@ -150,10 +145,6 @@ begin
Value := FRectanglesY; Value := FRectanglesY;
Result := True; Result := True;
end end
else if Name = 'rectangles_x_factor' then begin
Value := RectanglesXFactor;
Result := True;
end
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
@ -163,7 +154,6 @@ begin
FRectanglesX := 1.0; FRectanglesX := 1.0;
FRectanglesY := 1.0; FRectanglesY := 1.0;
RectanglesXFactor := 2.0;
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////