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