Skip to content

Update lue to match with LOVE 11.+ color ranges (0-1) #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
itzKiwiSky wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Update lue to match with LOVE 11.+ color ranges (0-1) #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
252 changes: 126 additions & 126 deletions lue.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,155 +6,155 @@
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

local lue, lueObject = {
hue = 0,
intensity = 0,
speed = 50,
c = {}
}, {}

setmetatable(lue, lue)

--[[ Private ]]--

local function lerp(a, b, k) --smooth transitions
if a == b then
return a
else
if math.abs(a-b) < 0.005 then return b else return a * (1-k) + b * k end
end
end

--by Taehl https://love2d.org/wiki/HSL_color
--where the magic happens
local function HSL(h, s, l, a)
if s<=0 then return l,l,l,a end
h, s, l = (h%255)/256*6, s/255, l/255
local c = (1-math.abs(2*l-1))*s
local x = (1-math.abs(h%2-1))*c
local m,r,g,b = (l-.5*c), 0,0,0
if h < 1 then r,g,b = c,x,0
elseif h < 2 then r,g,b = x,c,0
elseif h < 3 then r,g,b = 0,c,x
elseif h < 4 then r,g,b = 0,x,c
elseif h < 5 then r,g,b = x,0,c
else r,g,b = c,0,x
end return {(r+m)*255, (g+m)*255, (b+m)*255, a}
end

--[[ Public ]]--

function lue:update(dt)
hue = 0,
intensity = 0,
speed = 50,
c = {}
}, {}

setmetatable(lue, lue)

--[[ Private ]]--

self.hue = self.hue + self.speed * dt
if self.hue > 255 then
self.hue = self.hue - 255
elseif self.hue < 0 then
self.hue = self.hue + 255
local function lerp(a, b, k) --smooth transitions
if a == b then
return a
else
if math.abs(a-b) < 0.005 then return b else return a * (1-k) + b * k end
end
end

for k, v in pairs(self.c) do
v:update(dt)
--by Taehl https://love2d.org/wiki/HSL_color
--where the magic happens
local function HSL(h, s, l, a)
if s<=0 then return l,l,l,a end
h, s, l = (h%255)/256*6, s/255, l/255
local c = (1-math.abs(2*l-1))*s
local x = (1-math.abs(h%2-1))*c
local m,r,g,b = (l-.5*c), 0,0,0
if h < 1 then r,g,b = c,x,0
elseif h < 2 then r,g,b = x,c,0
elseif h < 3 then r,g,b = 0,c,x
elseif h < 4 then r,g,b = 0,x,c
elseif h < 5 then r,g,b = x,0,c
else r,g,b = c,0,x
end return {(r+m)*255 / 255, (g+m)*255 / 255, (b+m)*255 / 255, a}
end

end

function lueObject:update(dt)

if self.target then
local type, target = self.target.type, self.target.color
if type == "hue" then
target = lue:getHueColor(unpack(target))
--[[ Public ]]--

function lue:update(dt)

self.hue = self.hue + self.speed * dt
if self.hue > 255 then
self.hue = self.hue - 255
elseif self.hue < 0 then
self.hue = self.hue + 255
end
for i = 1, 4 do
self.color[i] = lerp(self.color[i] or 255, target[i] or 255, self.speed * dt)

for k, v in pairs(self.c) do
v:update(dt)
end
elseif self.hue then
self.color = lue:getHueColor(unpack(self.hue))
end

end

--

function lue:initColor(name, f)
end

if not self.c[name] then self.c[name] = lue:newColor(f) end
function lueObject:update(dt)

if self.target then
local type, target = self.target.type, self.target.color
if type == "hue" then
target = lue:getHueColor(unpack(target))
end
for i = 1, 4 do
self.color[i] = lerp(self.color[i] or 255, target[i] or 255, self.speed * dt)
end
elseif self.hue then
self.color = lue:getHueColor(unpack(self.hue))
end

end

end

function lue:newColor(f)
--

local _object = {}
function lue:initColor(name, f)

if not self.c[name] then self.c[name] = lue:newColor(f) end

end

setmetatable(_object, { __index = lueObject })
function lue:newColor(f)

local _object = {}

setmetatable(_object, { __index = lueObject })

return _object
end

return _object
end

function lue:setColor(name, f)
function lue:setColor(name, f)

self:initColor(name)

return self.c[name]:setColor(f)

end

self:initColor(name)
function lueObject:setColor(f)

if not (f.color or f.speed or f.hue) then f = { color = f } end --mind blown

f.speed = f.speed and (f.speed == true and 1 or f.speed) or false

if f.speed and self.color then
self.target = { type = f.hue and "hue" or "color", color = f.color or f.hue }
self.speed = f.speed
else
self.color = f.color or lue:getHueColor(unpack(f.hue))
if f.hue then self.hue = f.hue end
end

return self

end

return self.c[name]:setColor(f)
function lue:getColor(name, target)

return self.c[name] and self.c[name]:getColor(target) or false

end

end

function lueObject:setColor(f)
function lueObject:getColor(target)

local color = ((target and self.target) and self.target or self.color)
return color and {color[1] / 255, color[2] / 255, color[3] / 255, color[4] / 255 or 1} or false

end

if not (f.color or f.speed or f.hue) then f = { color = f } end --mind blown
--

f.speed = f.speed and (f.speed == true and 1 or f.speed) or false
function lue:setHueIntensity(intensity)
self.intensity = intensity
return self
end

if f.speed and self.color then
self.target = { type = f.hue and "hue" or "color", color = f.color or f.hue }
self.speed = f.speed
else
self.color = f.color or lue:getHueColor(unpack(f.hue))
if f.hue then self.hue = f.hue end
function lue:setHueSpeed(speed)
self.speed = speed
return self
end

return self
--

end

function lue:getColor(name, target)
function lue:getHueColor(s, l, a, offset)
local _s, _l = math.min(math.max(0, s+self.intensity), 255), math.min(math.max(0, l+self.intensity), 255)
return HSL(self.hue + (offset or 0), _s, _l, a)
end

return self.c[name] and self.c[name]:getColor(target) or false
function lue:getHueIntensity() return self.intensity end

end

function lueObject:getColor(target)
function lue:getHueSpeed() return self.speed end

local color = ((target and self.target) and self.target or self.color)
return color and {color[1], color[2], color[3], color[4] or 255} or false
function lue:getHue() return self.hue end

end

--

function lue:setHueIntensity(intensity)
self.intensity = intensity
return self
end

function lue:setHueSpeed(speed)
self.speed = speed
return self
end

--

function lue:getHueColor(s, l, a, offset)
local _s, _l = math.min(math.max(0, s+self.intensity), 255), math.min(math.max(0, l+self.intensity), 255)
return HSL(self.hue + (offset or 0), _s, _l, a)
end

function lue:getHueIntensity() return self.intensity end

function lue:getHueSpeed() return self.speed end

function lue:getHue() return self.hue end

--[[ End ]]--

return lue
--[[ End ]]--

return lue