mirror of https://github.com/ArduPilot/ardupilot
54 lines
1.1 KiB
Lua
54 lines
1.1 KiB
Lua
|
-- enable use of Lidar on quadplanes only for landing, by changing RNGFN_LANDING
|
||
|
|
|
||
|
|
-- bind a parameter to a variable
|
||
|
|
function bind_param(name)
|
||
|
|
local p = Parameter()
|
||
|
|
assert(p:init(name), string.format('could not find %s parameter', name))
|
||
|
|
return p
|
||
|
|
end
|
||
|
|
|
||
|
|
local RNGFND_LANDING = bind_param("RNGFND_LANDING")
|
||
|
|
|
||
|
|
MODE_QLAND = 20
|
||
|
|
MODE_QRTL = 21
|
||
|
|
MODE_AUTO = 10
|
||
|
|
|
||
|
|
local NAV_LAND = 21
|
||
|
|
local NAV_VTOL_LAND = 85
|
||
|
|
|
||
|
|
function in_landing()
|
||
|
|
local mode = vehicle:get_mode()
|
||
|
|
if mode == MODE_QRTL or mode == MODE_QLAND then
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
if mode == MODE_AUTO then
|
||
|
|
local id = mission:get_current_nav_id()
|
||
|
|
if id == NAV_VTOL_LAND or id == NAV_LAND then
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
end
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
|
||
|
|
-- convert a boolean to an int
|
||
|
|
function bool_to_int(v)
|
||
|
|
return v and 1 or 0
|
||
|
|
end
|
||
|
|
|
||
|
|
function update()
|
||
|
|
local v = bool_to_int(in_landing())
|
||
|
|
if v ~= RNGFND_LANDING:get() then
|
||
|
|
if v == 1 then
|
||
|
|
gcs:send_text(0,"Enabling Lidar")
|
||
|
|
else
|
||
|
|
gcs:send_text(0,"Disabling Lidar")
|
||
|
|
end
|
||
|
|
RNGFND_LANDING:set(v)
|
||
|
|
end
|
||
|
|
|
||
|
|
-- run at 1Hz
|
||
|
|
return update, 1000
|
||
|
|
end
|
||
|
|
|
||
|
|
return update()
|