Removed day 14 debugging code
This commit is contained in:
parent
95de6f1f7b
commit
2902689d07
|
@ -80,8 +80,6 @@ type
|
|||
procedure TiltWest;
|
||||
procedure TiltSouth;
|
||||
procedure TiltEast;
|
||||
procedure WriteLnFormation;
|
||||
procedure WriteLnIntervals;
|
||||
end;
|
||||
|
||||
{ TParabolicReflectorDish }
|
||||
|
@ -330,63 +328,6 @@ begin
|
|||
Tilt(FRowIntervals, FFormation.Rows, FFormation.Columns, False);
|
||||
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 }
|
||||
|
||||
constructor TParabolicReflectorDish.Create;
|
||||
|
|
Loading…
Reference in New Issue