DALI DT8 Dimmer

[Snoolik]

Some functions for Type 8 temperature control

Code:

function getCurrentTc(gateway, addr)
   code = 2 -- parameter code to get current Tc
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return tc
end

function getCoolestTcLimit(gateway, addr)
   code = 128 -- parameter code to get coolest Tc limit
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return tc
end

function getCoolestTcLimitPhys(gateway, addr)
   code = 129 -- parameter code to get coolest Tc physical limit
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return tc
end

function getWarmestTcLimit(gateway, addr)
   code = 130 -- parameter code to get warmest Tc limit
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return tc
end

function getWarmestTcLimitPhys(gateway, addr)
   code = 131 -- parameter code to get warmest Tc physical limit
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return tc
end

function setWarmestTcLimit(gateway, addr, tc)
   code = 1 -- parameter code to set warmest Tc limit
   res, err = dalicmd(gateway, 'setdtr2', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr2 error: ' .. err end
   mirek = math.floor(1000000 / tc)
   dtr0 = bit.band(mirek, 0xff)
   dtr1 = bit.rshift(bit.band(mirek, 0xff00), 8)
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = dtr0 })
   if err then return nil, 'setdtr2 error: ' .. err end
   res, err = dalicmd(gateway, 'setdtr1', { addrtype = 'short', address = addr, value = dtr1 })
   if err then return nil, 'setdtr2 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'storecolortemplimit', { addrtype = 'short', address = addr })
   if err then return nil, 'storecolortemplimit error: ' .. err end
   res, err = dalicmd(gateway, 'storecolortemplimit', { addrtype = 'short', address = addr })
   return res, err
end

function setCoolestTcLimit(gateway, addr, tc)
   code = 0 -- parameter code to set coolest Tc limit
   res, err = dalicmd(gateway, 'setdtr2', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr2 error: ' .. err end
   mirek = math.floor(1000000 / tc)
   dtr0 = bit.band(mirek, 0xff)
   dtr1 = bit.rshift(bit.band(mirek, 0xff00), 8)
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = dtr0 })
   if err then return nil, 'setdtr2 error: ' .. err end
   res, err = dalicmd(gateway, 'setdtr1', { addrtype = 'short', address = addr, value = dtr1 })
   if err then return nil, 'setdtr2 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'storecolortemplimit', { addrtype = 'short', address = addr })
   if err then return nil, 'storecolortemplimit error: ' .. err end
   res, err = dalicmd(gateway, 'storecolortemplimit', { addrtype = 'short', address = addr })
   return res, err
end

function saveSceneTc(gateway, addr, tc, arc_level, scene)
   -- Save scene with saved Tc and Arc level
   mirek = math.floor(1000000/tc)
   dtr0 = bit.band(mirek, 0xff)
   dtr1 = bit.rshift(bit.band(mirek, 0xff00), 8)
   res, err = dalicmd(gateway, 'setdtr1', { addrtype = 'short', address = addr, value = dtr1 })
   if err then return nil, 'setdtr1 tc error: ' .. err end
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = dtr0 })
   if err then return nil, 'setdtr0 tc error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'setcolortemp', { addrtype = 'short', address = addr })
   if err then return nil, 'setcolortemp error: ' .. err end
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = arc_level })
   if err then return nil, 'setdtr0 arc_level error: ' .. err end
   res, err = dalicmd(gateway, 'storescene', { addrtype = 'short', address = addr, value = scene })
   if err then return nil, 'storescene error: ' .. err end
   res, err = dalicmd(gateway, 'storescene', { addrtype = 'short', address = addr, value = scene })
   if err then return nil, 'storescene error: ' .. err end
   return res, err
end

function getSupportedColorTypeFeatures(gateway, addr)
   -- Get supported color type features
   -- Return pattern:
   -- If successful:
   -- xy - 0/1, unsupported/supported
   -- tc - 0/1, unsupported/supported
   -- direct - 0-5, how much channels support direct control
   -- rgbwaf - 0-5, how much rgbwaf channels
   -- else: nil, Command name with error
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorfeatures', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorfeatures error: ' .. err end
   res = res:byte()
   xy = bit.band(res, 0x01)
   tc = bit.rshift(bit.band(res, 0x02), 1)
   direct = bit.rshift(bit.band(res, 0x1c), 2)
   rgbwaf = bit.rshift(bit.band(res, 0xe0), 5)
   return xy, tc, direct, rgbwaf
end

function getSceneTc(gateway, addr, scene)
   res, err = dalicmd(gateway, 'queryscene', { addrtype = 'short', address = addr, value = scene })
   if err then return nil, 'queryscene error: ' .. err end
   arc_level = res:byte()
   code = 226 -- parameter code to get scene Tc
   res, err = dalicmd(gateway, 'setdtr0', { addrtype = 'short', address = addr, value = code })
   if err then return nil, 'setdtr0 error: ' .. err end
   res, err = dalicmd(gateway, 'enabledevicetype', { addrtype = 'short', address = addr, value = 8 })
   if err then return nil, 'enabledevicetype error: ' .. err end
   res, err = dalicmd(gateway, 'querycolorvalue', { addrtype = 'short', address = addr })
   if err then return nil, 'querycolorvalue error: ' .. err end
   hb = res:byte()
   res, err = dalicmd(gateway, 'querydtr0', { addrtype = 'short', address = addr })
   if err then return nil, 'querydtr0 error: ' .. err end
   lb = res:byte()
   mirek = bit.lshift(hb, 8) + lb
   tc = 1000000 / mirek
   return arc_level, tc
end