From da838498bc4cad1edf199396aed13d5175539e18 Mon Sep 17 00:00:00 2001 From: rlacroix Date: Sun, 31 May 2020 23:24:20 +0200 Subject: [PATCH] adding yet some other spaces for ... fun? --- TD_R_LACROIX_ENG_06-01-2020.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/TD_R_LACROIX_ENG_06-01-2020.adb b/TD_R_LACROIX_ENG_06-01-2020.adb index bec8eae..f26ba59 100644 --- a/TD_R_LACROIX_ENG_06-01-2020.adb +++ b/TD_R_LACROIX_ENG_06-01-2020.adb @@ -198,10 +198,10 @@ procedure td is TableTime(Event.Num, 1) := Event.Date; -- starting value TableTime(Event.Num, 4) := Event.Date; -- Last value end if; - elsif (Event.Emetteur = Capteur_Nord and (Event.Date - TableTime(Event.Num,4)>5.0)) then -- it's hard to do 50m in less than 5 seconds + elsif (Event.Emetteur = Capteur_Nord and (Event.Date - TableTime(Event.Num, 4) > 5.0)) then -- it's hard to do 50m in less than 5 seconds if TableNum(Event.Num) = 0 then TableTime(Event.Num, 2) := Event.Date; -- we store the value at the first 50 m - TableNum(Event.Num):=TableNum(Event.Num)+1; -- we increment the numer of runs + TableNum(Event.Num) := TableNum(Event.Num) + 1; -- we increment the numer of runs elsif TableNum(Event.Num) = 15 then -- it means he's finishing his last run TableTime(Event.Num, 3) := Event.Date; -- we store the arrival's date end if;