Domoticz

Code: Select all

-- script_device_test.lua

commandArray = {}

local maximumDimmerLevel = 22

if devicechanged["script_device_test"] == 'On' then
	for i = 1, 100 do
		newDimmerLevel, decimal = math.modf(((math.floor((math.pow(i, 2)/100) +0.5)) * (maximumDimmerLevel/100))+0.5)
		print(i .. " = " .. newDimmerLevel)
	end
end
return commandArray

Code: Select all

-- script_device_aqua_lights.lua
-------------------------------------
--    Author: BakSeeDa
-------------------------------------

-- User configuration START
-- This script assumes that You have 4 LED Strips attached to each RGBW controller device,
-- named on the form 'Your Device LED Strip 1', 'Your Device LED Strip 2' etc ... 
local	aquaLights = {'375L'} -- The aquarium lights device names you've used in your system
local minimumDimmerLevel = 1
local maximumDimmerLevel = 22
-- User configuration END
-- Do not change anything below this line

commandArray = {}
local logPre = 'script_device_aqua_lights'

local newDimmerLevel
local aquaLightsCount -- Internal counter varying from 0 to 100
local aquaLightsDirection -- Has a value of 'increase', 'decrease' or 'idle'
local aquaLightsLastDimLevel -- The last set dim level, used to avoid setting the same value twice

function sendLEDCommand(ledName, newVal)
	-- This function checks the current value before setting a new value
	-- Needs more checking. It doesn't always seem that the last set value can be read ... Why?
	local curval = tonumber(otherdevices_svalues[ledName])
	if (newVal ~= curval) then
		commandArray[ledName] = 'Set Level ' .. newVal
		--print(curval .. ' Setting ' .. ledName .. ' to value ' .. newVal)
	end
end

function setAquaLight(ledName, ledBrightness, aquaLightsCount, belowMinDimLevel)
	local testValue, decimal
	testValue, decimal = math.modf(belowMinDimLevel/4+0.5)
	if (aquaLightsCount <= 0) then
		for i=1,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, 0) end
	elseif (aquaLightsCount <= testValue) then
		for i=1,1 do sendLEDCommand(ledName .. ' LED Strip ' .. i, minimumDimmerLevel) end
		for i=2,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, 0) end
	elseif (aquaLightsCount <= testValue * 2) then
		for i=1,2 do sendLEDCommand(ledName .. ' LED Strip ' .. i, minimumDimmerLevel) end
		for i=3,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, 0) end
	elseif (aquaLightsCount <= testValue * 3) then
		for i=1,3 do sendLEDCommand(ledName .. ' LED Strip ' .. i, minimumDimmerLevel) end
		for i=4,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, 0) end
	elseif (aquaLightsCount <= belowMinDimLevel) then
		for i=1,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, minimumDimmerLevel) end
	else
		for i=1,4 do sendLEDCommand(ledName .. ' LED Strip ' .. i, ledBrightness) end
	end
end
	
if (devicechanged['schAquariumLights']) then
	commandArray['Akvariumbelysning'] = devicechanged['schAquariumLights']
end

if (devicechanged['Akvariumbelysning'] == 'On') then
	commandArray['tmrAquaLights'] = 'On'
	commandArray['Variable:AquaLightsDirection'] = 'increase'
	if (uservariables['AquaLightsDirection'] == 'idle') then
		-- Starting from the lowest level
		commandArray['Variable:AquaLightsCount'] = tostring(0)
	end
end

if (devicechanged['Akvariumbelysning'] == 'Off') then
	commandArray['tmrAquaLights'] = 'On'
	commandArray['Variable:AquaLightsDirection'] = 'decrease'
	if (uservariables['AquaLightsDirection'] == 'idle') then
		-- Starting from the highest level
		commandArray['Variable:AquaLightsCount'] = tostring(100)
	end
end

if (devicechanged['tmrAquaLights'] == 'Off') then

	aquaLightsCount = tonumber(uservariables['AquaLightsCount'])
	aquaLightsDirection = uservariables['AquaLightsDirection']
	aquaLightsLastDimLevel = tonumber(uservariables['AquaLightsLastDimLevel'])

	if (aquaLightsDirection == 'increase') then
		aquaLightsCount = (aquaLightsCount + 1)
	elseif (aquaLightsDirection == 'decrease') then
		aquaLightsCount = (aquaLightsCount - 1)
	end

	if (aquaLightsCount <= 0) or (aquaLightsCount >= 100) then
		aquaLightsDirection = 'idle'
	else
		commandArray['tmrAquaLights'] = 'On'
	end

	-- Calculate brightness of LED linearly to Human eye, take into account the maximum dimmer level
	newDimmerLevel, decimal = math.modf(((math.floor((math.pow(aquaLightsCount, 2)/100) +0.5)) * (maximumDimmerLevel/100))+0.5)
	--newDimmerLevel = math.floor((math.pow(aquaLightsCount, 2)/100) +0.5)

	-- Find out counter value when the perceived light reaches above the value specified in minimumDimmerLevel
	-- Counter values below that will then be used for lighting individual LED Strips at the minimum dim level
	local i, testValue, belowMinDimLevel, onePercentIntervals
	for i = 1, 100 do
		testValue, decimal = math.modf(((math.floor((math.pow(i, 2)/100) +0.5)) * (maximumDimmerLevel/100))+0.5)
		if (testValue > minimumDimmerLevel) then
			belowMinDimLevel = i-1
			break
		end
	end
	
	-- Saving the variables
	commandArray['Variable:AquaLightsCount'] = tostring(aquaLightsCount)
	commandArray['Variable:AquaLightsDirection'] = aquaLightsDirection
	print('\n\naquaLightsCount: ' .. aquaLightsCount .. '\naquaLightsDirection: ' .. aquaLightsDirection .. '\naquaLightsLastDimLevel: ' .. aquaLightsLastDimLevel .. '\nnewDimmerLevel: ' .. newDimmerLevel .. '\n\n')

	if ((newDimmerLevel ~= aquaLightsLastDimLevel) or (aquaLightsCount <= belowMinDimLevel)) then
		--print('\nSetting a new value\n')
		commandArray['Variable:AquaLightsLastDimLevel'] = tostring(newDimmerLevel)
		for k, v in pairs(aquaLights) do setAquaLight(v, newDimmerLevel, aquaLightsCount, belowMinDimLevel) end		
	end

end

return commandArray