Removed left-over comments from TStepCounter

This commit is contained in:
Stefan Müller 2023-12-22 15:15:56 +01:00 committed by Stefan Müller
parent 4e28a7a4c2
commit 197e5f81b9
1 changed files with 0 additions and 9 deletions

View File

@ -112,7 +112,6 @@ var
currentStep: Integer; currentStep: Integer;
currentPlots, nextPlots, temp: TPoints; currentPlots, nextPlots, temp: TPoints;
plot, direction, next: TPoint; plot, direction, next: TPoint;
//s: string;
begin begin
FWidth := Length(FLines[0]); FWidth := Length(FLines[0]);
FHeight := FLines.Count; FHeight := FLines.Count;
@ -144,15 +143,7 @@ begin
// Positions where the number of steps are even can be reached with trivial backtracking, so they count. // Positions where the number of steps are even can be reached with trivial backtracking, so they count.
if currentStep mod 2 = 0 then if currentStep mod 2 = 0 then
//begin
Inc(FPart1, currentPlots.Count); Inc(FPart1, currentPlots.Count);
// for plot in currentPlots do
// SetPosition(plot, 'O');
//end;
//for s in FLines do
// WriteLn(s);
//WriteLn;
end; end;
currentPlots.Free; currentPlots.Free;