From 72e3773166e677794b9fd143d32841a4a9a72f0a Mon Sep 17 00:00:00 2001
From: =?utf8?q?Nicol=C3=B2=20Navarin?= <nickgentoo@gmail.com>
Date: Thu, 10 Sep 2009 15:43:24 +0200
Subject: [PATCH] Modified track

---
 src/simulator-track.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/simulator-track.adb b/src/simulator-track.adb
index 0b0cefb..f87ea12 100644
--- a/src/simulator-track.adb
+++ b/src/simulator-track.adb
@@ -5,6 +5,7 @@ with Simulator.Car;
 with Simulator;
 with Ada.Calendar;
 use Ada.Calendar;
+with Simulator.TrackGui; use Simulator.TrackGui;
 --with Ada.Real_Time;
 --use Ada.Real_Time;
 --with Ada.Numerics.Generic_Elementary_Functions;
@@ -28,7 +29,7 @@ package body Simulator.Track is
    --STRUTTURE  DATI
    MaxMultiplicity : Positive := 3;
    n_registered : CarId_T :=1;
-   BoxSpeedLimit : Float := 22.2;
+   BoxSpeedLimit : Float := 22.2; -- m/s
    PitStopSector : Positive;
 
    type PitStopRequest_T is array (CarId_T) of Boolean ;
@@ -276,7 +277,7 @@ package body Simulator.Track is
          Free := Free - 1;
          CarLane(my_properties.CarId) := n_lane;
 
-         Put_Line("DEBUG: requeue su Corsie("&Sector_Id'Img&","&n_lane'Img&")");
+         Print("Auto requeue su Corsie("&Sector_Id'Img&","&n_lane'Img&")");
          requeue Corsie(Sector_Id,n_lane).Demand with abort;
          --Corsie(sector_number,n_lane).Demand(my_id);
          end Enter;
-- 
2.11.4.GIT