--
--	tek.ui.class.boing
--	Written by Timm S. Mueller <tmueller at schulze-mueller.de>
--	See copyright notice in COPYRIGHT
--

local ui = require "tek.ui".checkVersion(112)
local Frame = ui.Frame

local floor = math.floor
local max = math.max
local min = math.min
local pi = math.pi
local sin = math.sin

local Boing = Frame.module("tek.ui.class.boing", "tek.ui.class.frame")
Boing._VERSION = "Boing 5.4"

-------------------------------------------------------------------------------
--	Constants and class data:
-------------------------------------------------------------------------------

local NOTIFY_YPOS = { ui.NOTIFY_SELF, "onSetYPos", ui.NOTIFY_VALUE }

-------------------------------------------------------------------------------
--	Class implementation:
-------------------------------------------------------------------------------

function Boing.new(class, self)
	self = self or { }
	self.Boing = { 0x8000, 0x8000 }
	self.Boing[3] = 0x334
	self.Boing[4] = 0x472
	self.XPos = 0
	self.YPos = 0
	self.EraseBG = false
	self.OldRect = { }
	self.TrackDamage = true
	self.Running = self.Running or false
	return Frame.new(class, self)
end

function Boing:setup(app, window)
	Frame.setup(self, app, window)
	-- add notifications:
	self:addNotify("YPos", ui.NOTIFY_ALWAYS, NOTIFY_YPOS)
end

function Boing:cleanup()
	-- add notifications:
	self:remNotify("YPos", ui.NOTIFY_ALWAYS, NOTIFY_YPOS)
	Frame.cleanup(self)
end

function Boing:show(drawable)
	Frame.show(self, drawable)
	self.Window:addInputHandler(ui.MSG_INTERVAL, self, self.updateInterval)
	self.OldRect[1] = false
end

function Boing:hide()
	self.Window:remInputHandler(ui.MSG_INTERVAL, self, self.updateInterval)
	Frame.hide(self)
end

function Boing:draw()
	local dr = self.DamageRegion
	if Frame.draw(self) then
		local d = self.Window.Drawable
		local bgpen = "dark"
		if dr then
			-- repaint intra-area damagerects:
			dr:forEach(d.fillRect, d, bgpen)
		end
		local r1, r2, r3, r4 = self:getRect()
		local o = self.OldRect
		local w = r3 - r1 + 1
		local h = r4 - r2 + 1
		local w2 = w - w / 20
		local h2 = h - h / 20
		local x0 = (self.Boing[1] * w2) / 0x10000 + r1
		local y0 = (self.Boing[2] * h2) / 0x10000 + r2
		if o[1] then
			d:fillRect(floor(o[1]), floor(o[2]), floor(o[3]), floor(o[4]),
				bgpen)
		end
		d:fillRect(floor(x0), floor(y0), 
			floor(x0 + w/20 - 1), floor(y0 + h/20 - 1), "bright")
		o[1] = x0
		o[2] = y0
		o[3] = x0 + w/20 - 1
		o[4] = y0 + h/20 - 1
		return true
	end
end

function Boing:updateInterval(msg)
	if self.Running then
		local b = self.Boing
		b[1] = b[1] + b[3]
		b[2] = b[2] + b[4]
		if b[1] <= 0 or b[1] >= 0x10000 then
			b[3] = -b[3]
			b[1] = b[1] + b[3]
		end
		if b[2] <= 0 or b[2] >= 0x10000 then
			b[4] = -b[4]
			b[2] = b[2] + b[4]
		end
		self:setFlags(ui.FL_REDRAW)
		self:setValue("XPos", b[1])
		self:setValue("YPos", b[2])
	end
	return msg
end

function Boing:onSetYPos(ypos)
end

return Boing