adding yet some other spaces for ... fun?

This commit is contained in:
Raphael Lacroix 2020-05-31 23:24:20 +02:00
parent a99c753ae4
commit da838498bc

View file

@ -198,10 +198,10 @@ procedure td is
TableTime(Event.Num, 1) := Event.Date; -- starting value TableTime(Event.Num, 1) := Event.Date; -- starting value
TableTime(Event.Num, 4) := Event.Date; -- Last value TableTime(Event.Num, 4) := Event.Date; -- Last value
end if; 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 if TableNum(Event.Num) = 0 then
TableTime(Event.Num, 2) := Event.Date; -- we store the value at the first 50 m 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 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 TableTime(Event.Num, 3) := Event.Date; -- we store the arrival's date
end if; end if;