Removed day 14 debugging code

This commit is contained in:
Stefan Müller 2023-12-18 21:14:35 +01:00 committed by Stefan Müller
parent 95de6f1f7b
commit 2902689d07
1 changed files with 0 additions and 59 deletions

View File

@ -80,8 +80,6 @@ type
procedure TiltWest; procedure TiltWest;
procedure TiltSouth; procedure TiltSouth;
procedure TiltEast; procedure TiltEast;
procedure WriteLnFormation;
procedure WriteLnIntervals;
end; end;
{ TParabolicReflectorDish } { TParabolicReflectorDish }
@ -330,63 +328,6 @@ begin
Tilt(FRowIntervals, FFormation.Rows, FFormation.Columns, False); Tilt(FRowIntervals, FFormation.Rows, FFormation.Columns, False);
end; end;
procedure TPlatform.WriteLnFormation;
var
i, j: Integer;
begin
WriteLn;
WriteLn('Formation:');
WriteLn(' Columns:');
for i := 0 to FFormation.FColumns.Count - 1 do
begin
Write(' ', i, ': ');
for j := 0 to FFormation.FColumns[i].Count - 1 do
begin
Write(FFormation.FColumns[i][j], ' ');
end;
WriteLn;
end;
WriteLn(' Rows:');
for i := 0 to FFormation.FRows.Count - 1 do
begin
Write(' ', i, ': ');
for j := 0 to FFormation.FRows[i].Count - 1 do
begin
Write(FFormation.FRows[i][j], ' ');
end;
WriteLn;
end;
WriteLn(' Weight: ', FFormation.CalcWeight);
end;
procedure TPlatform.WriteLnIntervals;
var
i, j: Integer;
begin
WriteLn;
WriteLn('Intervals:');
WriteLn(' Columns:');
for i := 0 to FColumnIntervals.Count - 1 do
begin
Write(' ', i, ': ');
for j := 0 to FColumnIntervals[i].Count - 1 do
begin
Write(FColumnIntervals[i][j].Start, '-', FColumnIntervals[i][j].Stop, ' ');
end;
WriteLn;
end;
WriteLn(' Rows:');
for i := 0 to FRowIntervals.Count - 1 do
begin
Write(' ', i, ': ');
for j := 0 to FRowIntervals[i].Count - 1 do
begin
Write(FRowIntervals[i][j].Start, '-', FRowIntervals[i][j].Stop, ' ');
end;
WriteLn;
end;
end;
{ TParabolicReflectorDish } { TParabolicReflectorDish }
constructor TParabolicReflectorDish.Create; constructor TParabolicReflectorDish.Create;