*** FR-SKY TARANIS *** Mega thread

--[[
 LUA telemetry script for F5J training
 Displays the altitude at engine cut-off, 10s after that, and max reached during the flight
 Displays the work time, engine time and (an approximation of) the glide time

 If the engine is used more that 30s or twice in the same flight, the flight is declared invalid
 (a badflight.wav file can be used to signal this with audio)

 Switch F can be used to signal the end of the flight (and stop the timers)
 Switch H can be used to reset the script (this can only happen after the 10s delay)

 Customization (look for numbers in the code):
 (1) CH1 is used for the throttle
 (2) The value where the throttle is meant to be active (defaults to -1024)
 (3) Switch F is used to end the flight
 (4) Switch H is used to reset the flight
 (5) Language for the sounds (for the texts, change the texts in the drawDashboard() and drawFault() functions)

 ON4MJ
--]]


--
-- Timer class
-- (this is generic, and will have to be modified in 2.0.13+ where the setTimer() bug is fixed)
-- Precondition: timerId is either 0 or 1
--
local function createTimer( timerId, startValue )
 local id = timerId
 local timer = model.getTimer( id )

 local function setTimerWA() -- work-around for the difference in parameters of setTimer() compared to the return of getTimer()
 local t = {
 mode=timer.mode, start=timer.start, value=timer.value, countdownBeep=timer.countdownBeep,
 minuteBeep = timer.minuteBeep and 1 or 0,
 persistent = timer.persistent and 1 or 0
 }
 model.setTimer( id, t )
 end


 local function getVal()
 timer.value = model.getTimer( id ).value
 return timer.value
 end

 local function start()
 timer.mode = 1
 setTimerWA()
 end

 local function stop()
 timer = model.getTimer( id )
 timer.mode = 0
 setTimerWA()
 return timer.value
 end

 local function reset()
 timer.value = timer.start
 setTimerWA()
 end

 local function draw( x, y, att )
 local val = getVal()
 lcd.drawTimer( x, y, val, att )
 return val
 end



 if startValue then
 timer.start = startValue
 reset()
 end

 return {
 start = start,
 stop = stop,
 reset = reset,
 draw = draw,
 getVal = getVal
 }
end


-- F5J stuff

local SOUND_PATH = '/SOUNDS/EN/' -- (5)

local THROTTLE_MIN = -1020 -- (2) (normally -1024)
local THR = getFieldInfo( 'ch1' ).id -- (1)
local ALT = getFieldInfo( 'altitude' ).id
local SF = getFieldInfo( 'sf' ).id -- (3)
local SH = getFieldInfo( 'sh' ).id -- (4)


local alt = 0
local alt10 = 0
local max = 0
local state = 1 -- 1=reset; 2=launch; 3=cutoff; 4=glide; 5=landed; 6=disqualify


local timer1 = createTimer( 0, 600 ) -- flight time
local timer2 = createTimer( 1, 0 ) -- engine time
local time3 = 0


local function vocalEnabled()
 return true
end

local function handleMax()
 local a = getValue( ALT )
 if a > max then
 max = a
 end
 return a
end

local function disqualify()
 if vocalEnabled() then
 playFile( SOUND_PATH .. 'badflight.wav' )
 end
 timer2.stop()
 state = 6
end

local function checkThrottle()
 if getValue( THR ) > THROTTLE_MIN then
 disqualify()
 end
end

local function checkReset()
 if getValue( SH ) > 0 then
 timer2.stop()
 timer1.stop()
 timer2.reset()
 timer1.reset()

 time3 = 0

 alt = 0
 alt10 = 0
 max = 0

 state = 1
 return true
 end
 return false
end

local function checkEnd()
 -- switch F ?
 return (getValue( SF ) > 0)
end




-- state transition functions

local function resetState()
 -- wait for take-off
 if getValue( THR ) > THROTTLE_MIN then
 timer2.start()
 timer1.start()
 state = 2
 end
end

local function launchState()
 -- wait for the motor cut
 if getValue( THR ) <= THROTTLE_MIN then
 timer2.stop()
 alt = getValue( ALT )
 max = alt
 if vocalEnabled() then
 playNumber( alt, 6, 0 )
 end
 state = 3
 elseif timer2.getVal() > 30 then
 disqualify()
 end
end

local function cutoffState()
 local a = handleMax()

 -- wait for the 10s end
 if ((600 - timer1.getVal()) - timer2.getVal()) >= 10 then
 alt10 = a
 if vocalEnabled() then
 playNumber( alt10, 6, 0 )
 end
 state = 4
 else
 checkThrottle()
 end
end

local function glideState()
 handleMax()

 -- wait for the end of flight
 if checkEnd() then
 timer2.stop()
 timer1.stop()
 state = 5
 end

 if not checkReset() then
 checkThrottle()
 end
end

local function landedState()
 -- wait for reset
 checkReset()
end

local function disqualifyState()
 -- wait for reset
 checkReset()
end




local functions = { resetState, launchState, cutoffState, glideState, landedState, disqualifyState }

function background()
 functions[ state ]()
end



local function drawDashboard()
 lcd.drawFilledRectangle( 0, 23, 212, 18, 0 )

 lcd.drawText( 4, 4, "Alt cut:", MIDSIZE )
 lcd.drawNumber( 64, 4, alt, MIDSIZE+LEFT )
 lcd.drawText( lcd.getLastPos(), 4, "m", 0 )

 lcd.drawText( 4, 26, "Alt 10s:", MIDSIZE+INVERS )
 lcd.drawNumber( 64, 26, alt10, MIDSIZE+LEFT+INVERS )
 lcd.drawText( lcd.getLastPos(), 26, "m", INVERS )
 
 lcd.drawText( 4, 48, "Alt max:", MIDSIZE )
 lcd.drawNumber( 64, 48, max, MIDSIZE+LEFT )
 lcd.drawText( lcd.getLastPos(), 48, "m", 0 )
 
 lcd.drawText( 120, 4, "Total:", MIDSIZE )
 timer1.draw( 174, 4, MIDSIZE )

 lcd.drawText( 120, 26, "Engine:", MIDSIZE+INVERS )
 timer2.draw( 174, 26, MIDSIZE+INVERS )

 lcd.drawText( 120, 48, "Glide:", MIDSIZE )
 local t = (600 - timer1.getVal()) - timer2.getVal()
 if t > time3 then
 time3 = t
 end
 lcd.drawTimer( 174, 48, time3, MIDSIZE )
end


local function drawFault()
 lcd.drawRectangle( 4, 4, 204, 56 )
 lcd.drawText( 40, 25, "INVALID FLIGHT", DBLSIZE+BLINK )
end


local function run()
 background()

 if state < 6 then
 drawDashboard()
 else
 drawFault()
 end
end

return {background=background, run=run}

local LS1 = 100
local ALT = 206

--[[
   LUA telemetry script for F5J training
   Displays the altitude at engine cut-off, 10s after that, and max reached during the flight
   Displays the work time, engine time and (an approximation of) the glide time

   If the engine is used more that 30s or twice in the same flight, the flight is declared invalid
   (a badflight.wav file can be used to signal this with audio)

   Switch F is used to signal the end of the flight and stop the timers (up) then reset everything (down)

   Customization (look for numbers in the code):
   (1) CH1 is used for the throttle
   (2) The value where the throttle is meant to be active (defaults to -1024)
   (3) Switch F is used to end (up) then reset (down) the flight
   (4) Language for the sounds (for the texts, change the texts in the drawDashboard() and drawFault() functions)

   ON4MJ
--]]


--
-- Timer class
--   (this is generic, and will have to be modified in 2.0.13+ where the setTimer() bug is fixed)
-- Precondition: timerId is either 0 or 1
--
local function createTimer( timerId, startValue )
   local id = timerId
   local timer = model.getTimer( id )

   local function setTimerWA() -- work-around for the difference in parameters of setTimer() compared to the return of getTimer()
      local t = {
         mode=timer.mode, start=timer.start, value=timer.value, countdownBeep=timer.countdownBeep,
         minuteBeep = timer.minuteBeep and 1 or 0,
         persistent = timer.persistent and 1 or 0
      }
      model.setTimer( id, t )
   end


   local function getVal()
      timer.value = model.getTimer( id ).value
      return timer.value
   end

   local function start()
      timer.mode = 1
      setTimerWA()
   end

   local function stop()
      timer = model.getTimer( id )
      timer.mode = 0
      setTimerWA()
      return timer.value
   end

   local function reset()
      timer.value = timer.start
      setTimerWA()
   end

   local function draw( x, y, att )
      local val = getVal()
      lcd.drawTimer( x, y, val, att )
      return val
   end



   if startValue then
      timer.start = startValue
      reset()
   end

   return {
      start = start,
      stop = stop,
      reset = reset,
      draw = draw,
      getVal = getVal
   }
end


-- F5J stuff

local SOUND_PATH = '/SOUNDS/EN/'      -- (4)

local THROTTLE_MIN = -1020         -- (2) (normally -1024)
local THR = getFieldInfo( 'ch1' ).id       -- (1)
local ALT = getFieldInfo( 'altitude' ).id
local SF = getFieldInfo( 'sf' ).id       -- (3)


local alt = 0
local alt10 = 0
local max = 0
local state = 1 -- 1=reset; 2=launch; 3=cutoff; 4=glide; 5=landed; 6=disqualify


local timer1 = createTimer( 0, 600 )   -- flight time
local timer2 = createTimer( 1, 0 )   -- engine time
local time3 = 0


local function vocalEnabled()
   return true
end

local function handleMax()
   local a = getValue( ALT )
   if a > max then
      max = a
   end
   return a
end

local function disqualify()
   if vocalEnabled() then
      playFile( SOUND_PATH .. 'badflight.wav' )
   end
   timer2.stop()
   timer1.stop()
   state = 6
end

local function checkThrottle()
   if getValue( THR ) > THROTTLE_MIN then
      disqualify()
   end
end

local function checkReset()
   if getValue( SF ) < 0 then
      timer2.stop()
      timer1.stop()
      timer2.reset()
      timer1.reset()

      time3 = 0

      alt = 0
      alt10 = 0
      max = 0

      state = 1
      return true
   end
   return false
end

local function checkEnd()
   return (getValue( SF ) > 0)
end




-- state transition functions

local function resetState()
   -- wait for take-off
   if getValue( THR ) > THROTTLE_MIN then
      timer2.start()
      timer1.start()
      state = 2
   end
end

local function launchState()
   -- wait for the motor cut
   if getValue( THR ) <= THROTTLE_MIN then
      timer2.stop()
      alt = getValue( ALT )
      max = alt
      if vocalEnabled() then
         playNumber( alt, 6, 0 )
      end
      state = 3
   elseif timer2.getVal() > 30 then
      disqualify()
   end
end

local function cutoffState()
   local a = handleMax()

   -- wait for the 10s end
   if ((600 - timer1.getVal()) - timer2.getVal()) >= 10 then
      alt10 = a
      if vocalEnabled() then
         playNumber( alt10, 6, 0 )
      end
      state = 4
   else
      checkThrottle()
   end
end

local function glideState()
   handleMax()

   -- wait for the end of flight
   if checkEnd() then
      timer2.stop()
      timer1.stop()
      state = 5
   else
      checkThrottle()
   end
end

local function landedState()
   -- wait for reset
   checkReset()
end

local function disqualifyState()
   -- wait for end
   if checkEnd() then
      state = 5
   end
end




local functions = { resetState, launchState, cutoffState, glideState, landedState, disqualifyState }

function background()
   functions[ state ]()
end



local function drawDashboard()
   lcd.drawFilledRectangle( 0, 23, 212, 18, 0 )

   lcd.drawText( 4, 4, "Alt cut:", MIDSIZE )
   lcd.drawNumber( 64, 4, alt, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 4, "m", 0 )

   lcd.drawText( 4, 26, "Alt 10s:", MIDSIZE+INVERS )
   lcd.drawNumber( 64, 26, alt10, MIDSIZE+LEFT+INVERS )
   lcd.drawText( lcd.getLastPos(), 26, "m", INVERS )
   
   lcd.drawText( 4, 48, "Alt max:", MIDSIZE )
   lcd.drawNumber( 64, 48, max, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 48, "m", 0 )
   
   lcd.drawText( 120, 4, "Total:", MIDSIZE )
   timer1.draw( 174, 4, MIDSIZE )

   lcd.drawText( 120, 26, "Engine:", MIDSIZE+INVERS )
   timer2.draw( 174, 26, MIDSIZE+INVERS )

   lcd.drawText( 120, 48, "Glide:", MIDSIZE )
   local t = (600 - timer1.getVal()) - timer2.getVal()
   if t > time3 then
      time3 = t
   end
   lcd.drawTimer( 174, 48, time3, MIDSIZE )
end


local function drawFault()
   lcd.drawRectangle( 4, 4, 204, 56 )
   lcd.drawText( 40, 25, "INVALID FLIGHT", DBLSIZE+BLINK )
end


local function run()
   background()

   if state < 6 then
      drawDashboard()
   else
      drawFault()
   end
end

return {background=background, run=run}

local LS9 = getFieldInfo( 'ls9' ).id
local LS10 = getFieldInfo( 'ls10' ).id
local ALT = getFieldInfo( 'altitude' ).id

local alt = 0

local function background()
   if getValue( LS9 ) > 0 then
      alt = getValue( ALT )
   end
   if getValue( LS10 ) == 100 then
      alt = 0
   end
end

local function run()
   background()
   --lcd.drawChannel(20, 4, ALTITUDE, MIDSIZE+PREC1+LEFT)
   lcd.drawNumber(70, 4, alt, MIDSIZE+LEFT)
   lcd.drawText( lcd.getLastPos(), 4, "m", 0 )
end

return {background=background, run=run}

   Customization (look for numbers in the code):
   (1) CH1 is used for the throttle
   (2) The value where the throttle is meant to be active (defaults to -1024)

local THROTTLE_MIN = -1020         -- (2) (normally -1024)
local THR = getFieldInfo( 'ch1' ).id       -- (1)