Removed day 14 debugging code
This commit is contained in:
parent
95de6f1f7b
commit
2902689d07
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue