From 2902689d07253bbeaff9ed86fa6548e930876b04 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Mon, 18 Dec 2023 21:14:35 +0100
Subject: [PATCH] Removed day 14 debugging code

---
 solvers/UParabolicReflectorDish.pas | 59 -----------------------------
 1 file changed, 59 deletions(-)

diff --git a/solvers/UParabolicReflectorDish.pas b/solvers/UParabolicReflectorDish.pas
index 9f20c03..4c9b200 100644
--- a/solvers/UParabolicReflectorDish.pas
+++ b/solvers/UParabolicReflectorDish.pas
@@ -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;