diff --git a/2.10/Source/varRectangles.pas b/2.10/Source/varRectangles.pas index d3c2ade..21ff202 100644 --- a/2.10/Source/varRectangles.pas +++ b/2.10/Source/varRectangles.pas @@ -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; ///////////////////////////////////////////////////////////////////////////////