local require = using("ActionEditor.Script")
local CCDirector = require("CCDirector")
local CCLayer = require("CCLayer")
local oVec2 = require("oVec2")
local CCSize = require("CCSize")
local CCDrawNode = require("CCDrawNode")
local ccColor4 = require("ccColor4")
local emit = require("emit")
local CCNode = require("CCNode")
local CCLabelTTF = require("CCLabelTTF")
local CCClipNode = require("CCClipNode")
local CCRect = require("CCRect")
local oPos = require("oPos")
local oEase = require("oEase")

local function oControlBar()
	local oEditor = require("oEditor")
	local winSize = CCDirector.winSize
	local barDragPos = 50
	local oSd = oEditor.oSd
	local oAd = oEditor.oAd
	local oKd = oEditor.oKd

	-- controlBar
	local controlBar = CCLayer()
	controlBar.anchor = oVec2.zero
	controlBar.contentSize = CCSize(winSize.width,60)
	controlBar.touchEnabled = true
	controlBar.visible = false

	-- border
	local border = CCDrawNode()
	border:drawPolygon(
	{
		oVec2(0,0),
		oVec2(winSize.width-20,0),
		oVec2(winSize.width-20,50),
		oVec2(0,50)
	},ccColor4(0x88000000),0.5,ccColor4(0xffffffff))
	border.position = oVec2(10,10)

	-- bar
	local barLength = winSize.width-60
	local barIterval = barLength/60
	local bar = CCDrawNode()
	bar:drawPolygon(
	{
		oVec2(0,0),
		oVec2(barLength,0),
		oVec2(barLength,6),
		oVec2(0,6)
	},ccColor4(0xffffffff))
	bar.setPos = function(self,pos)
		self._pos = pos
		pos = math.floor(pos+0.5)
		self.scaleX = pos/60.0
		emit("Action.ControlBarPos",pos)
	end
	bar.getPos = function(self)
		return self._pos
	end
	bar.anchor = oVec2.zero
	bar.contentSize = CCSize(barLength,5)
	bar.position = oVec2(30,20)
	bar:setPos(0)

	-- ruler
	local ruler = CCNode()
	local drawNode = CCDrawNode()
	ruler:addChild(drawNode)
	ruler._size = 0
	ruler.setSize = function(self,size)
		local delta = barIterval
		if size < self._size then
			drawNode:removeAllChildrenWithCleanup()
			drawNode:clear()
			drawNode:drawSegment(oVec2.zero,oVec2(delta*size,0),0.5,ccColor4(0xffffffff))
		else
			drawNode:drawSegment(oVec2(delta*self._size,0),oVec2(delta*size),0.5,ccColor4(0xffffffff))
		end
		local lastSize = self._size
		self._size = size
		local i = lastSize
		-- update ruler interval by step, not all at once
		while i <= self._size do
			local posX = delta*i
			if i == 0 or (i%10 == 0 and i ~= lastSize) then
				drawNode:drawSegment(
					oVec2(posX,0),
					oVec2(posX,6),
					0.5,ccColor4(0xffffffff))
			elseif i%10 ~= 0 then
				drawNode:drawSegment(
					oVec2(posX,0),
					oVec2(posX,3),
					0.5,ccColor4(0xffffffff))
			end
			i = i + 1
		end
	end
	ruler.getSize = function(self)
		return self._size
	end
	ruler:setSize(90)
	ruler.position = oVec2(30,35)

	local cursorNode = CCDrawNode()
	cursorNode.position = oVec2(30,35)
	controlBar.addCursor = function(self,pos)
		local x = math.floor(pos+0.5)*barIterval
		cursorNode:drawPolygon(
		{
			oVec2(x-1,-18),
			oVec2(x+1,-18),
			oVec2(x+1,6),
			oVec2(x-1,6)
		},ccColor4(0xff00a2d8))
	end
	controlBar.clearCursors = function(self)
		cursorNode:clear()
	end
	controlBar.updateCursors = function(self)
		local animationDef = oEditor.animationData
		if animationDef then
			if animationDef[oAd.type] == 1 then
				local d = 0
				oEditor.controlBar:clearCursors()
				for i = oAd.frameDefs, #animationDef do
					d = d + animationDef[i][oKd.duration]
					oEditor.controlBar:addCursor(d*60.0)
				end
			elseif animationDef[oAd.type] == 2 then
				--TODO Frame animation
				return
			end
		elseif oEditor.spriteData and oEditor.spriteData[oSd.parent] then
			oEditor.controlBar:clearCursors()
			oEditor.settingPanel:updateValues(nil)
		end
	end

	local labels = {}
	local labelList = {}
	local function setupLabels()
		for i = 0,70,10 do
			local posX = i*barIterval
			local label = CCLabelTTF(tostring(i),"Arial",10)
			label.texture.antiAlias = false
			label.position = oVec2(posX,14)
			ruler:addChild(label)
			labels[i] = label
			table.insert(labelList,label)
		end
	end
	local function moveLabel(label,i)
		local posX = i*barIterval
		labels[tonumber(label.text)] = nil
		label.text = tostring(i)
		label.texture.antiAlias = false
		label.position = oVec2(posX,14)
		labels[i] = label
	end
	local function updateLabels(maxPos)
		local right = math.floor(maxPos/10)*10+10
		local left = right-70
		local insertPos = 1
		for i = left,right,10 do
			if labels[i] then
				break
			else
				local label = table.remove(labelList)
				table.insert(labelList,insertPos,label)
				insertPos = insertPos+1
				moveLabel(label,i)
			end
		end
		for i = right,left,-10 do
			if labels[i] then
				break
			else
				local label = table.remove(labelList,1)
				table.insert(labelList,label)
				moveLabel(label,i)
			end
		end
	end

	setupLabels()

	-- controlNode
	local controlNode = CCNode()
	controlNode:addChild(ruler)
	controlNode:addChild(bar)
	controlNode:addChild(cursorNode)
	controlNode.setOffset = function(self,value)
		self.positionX = value
		local displaySize = math.floor((barLength-value)/barIterval)
		updateLabels(displaySize)
		local displayPos = (displaySize-60)*barIterval
		local deltaSize = displayPos - drawNode.positionX
		if deltaSize >= 20*barIterval then
			repeat
				drawNode.positionX = drawNode.positionX + 10*barIterval
				deltaSize = displayPos - drawNode.positionX
			until deltaSize < 20*barIterval
		elseif deltaSize <= 10*barIterval then
			repeat
				drawNode.positionX = math.max(drawNode.positionX-10*barIterval,0)
				deltaSize = displayPos - drawNode.positionX
			until deltaSize > 10*barIterval or drawNode.positionX == 0
		end
	end

	-- stencil
	local stencil = CCDrawNode()
	stencil:drawPolygon(
	{
		oVec2(0,0),
		oVec2(winSize.width-20,0),
		oVec2(winSize.width-20,50),
		oVec2(0,50)
	},ccColor4(0xffffffff))
	stencil.position = oVec2(10,10)
	local clipNode = CCClipNode(stencil)
	clipNode:addChild(controlNode)

	-- build controlBar
	controlBar:addChild(border)
	controlBar:addChild(clipNode)
	local lastPos = 0
	local offset = 0
	local moveBar = false
	local locLength = 0
	controlBar:gslot("Action.PlayState",
		function(state)
			if state == "Play" then
				controlBar.touchEnabled = false
				if moveBar then
					lastPos = locLength
					moveBar = false
				end
			elseif state == "Pause" or state == "Stop" then
				controlBar.touchEnabled = true
			end
		end)

	local jumpPos = false
	controlBar.swallowTouches = true

	local function isTouchValid(touch)
		if not controlBar.visible or touch.id ~= 0 then
			return false
		end
		if not oEditor.viewArea:getModel() then
			return false
		end
		local loc = controlBar:convertToNodeSpace(touch.location)
		locLength = loc.x-10-barIterval
		if locLength < 0 then locLength = 0 end
		if locLength > barLength then locLength = barLength end
		return true
	end

	controlBar:slot("TouchBegan",function(touch)
		if not isTouchValid(touch) then return false end
		local loc = controlBar:convertToNodeSpace(touch.location)
		if not CCRect(oVec2.zero, controlBar.contentSize):containsPoint(loc) then
			return false
		end
		--cclog("Start %d,%d",lastPos,offset)
		if lastPos-barDragPos <= locLength and locLength <= lastPos+barDragPos then
			moveBar = true
		end
		return true
	end)

	local function touchEnded(touch)
		if not isTouchValid(touch) then return end
		if moveBar then
			lastPos = locLength
			moveBar = false
		end
		if jumpPos then
			jumpPos = false
			oEditor.settingPanel:clearSelection()
			local model = oEditor.viewArea:getModel()
			if model then
				local pos = (locLength-offset)*60/barLength
				if pos < 0 then pos = 0 end
				if not model.doing then
					model:play(oEditor.animation)
					model:pause()
				end
				model.time = (math.floor(pos+0.5)/60.0)/model.duration
				controlBar:setPos(pos)
			end
		else
			jumpPos = true
			local interval = 0
			controlBar:schedule(function(deltaTime)
				interval = interval + deltaTime
				if interval >= 0.5 then
					jumpPos = false
					controlBar:unschedule()
				end
			end)
		end
		--cclog("End %d,%d",lastPos,offset)
	end
	controlBar:slot("TouchEnded",touchEnded)
	controlBar:slot("TouchCancelled",touchEnded)

	controlBar:slot("TouchMoved",function(touch)
		if not isTouchValid(touch) then return end
		if moveBar then
			local model = oEditor.viewArea:getModel()
			if model then
				local pos = (locLength-offset)*60/barLength
				if not model.doing then
					model:play(oEditor.animation)
					model:pause()
				end
				model.time = (math.floor(pos+0.5)/60.0)/model.duration
				bar:setPos(pos)
			end
		else
			local deltaX = touch.delta.x * 2
			offset = offset + deltaX
			if offset > 0 then
				offset = 0
			else
				lastPos = lastPos + deltaX
			end
			controlNode:setOffset(offset)
		end
	end)

	controlBar.setPos = function(self,pos)
		local deltaX = barIterval * (pos - bar:getPos())
		lastPos = lastPos + deltaX
		if lastPos > barLength then
			offset = offset + barLength - lastPos
			lastPos = barLength
			controlNode:setOffset(offset)
		elseif lastPos < 0 then
			offset = 0
			lastPos = 0
			controlNode:setOffset(0)
		end
		bar:setPos(pos)
	end
	controlBar.getPos = function(self)
		return bar:getPos()
	end

	-- time: model animation`s played time
	controlBar.setTime = function(self,time)
		local pos = time*60
		controlBar:setPos(pos)
	end

	controlBar.getTime = function(self)
		return bar:getPos()/60
	end

	local isHide = false
	controlBar:gslot("Action.hideEditor",function(args)
		local hide,instant = unpack(args)
		if isHide == hide then
			return
		end
		isHide = hide
		if instant then
			controlBar.positionY = hide and -70 or 0
		else
			controlBar:runAction(oPos(0.5,controlBar.positionX,hide and -70 or 0,oEase.OutQuad))
		end
	end)

	return controlBar
end

return oControlBar