brushbox.lua

-- the box which has the focus (only one ) for text andbutton interactions
boxfocus=nil

hdlw=32
hdlh=32

local dfltzoom =1.0

--added to pass keyboard commands
bbzoomset=function(b,zoomfactor)
  b.w=math.floor(b.w*zoomfactor)
  b.h=math.floor(b.h*zoomfactor)
end

local function drag(b,tx,ty,dx,dy)
	if b.mode=="drag" then
		b.x=b.x+dx
		b.y=b.y+dy
	end
	if b.mode=="resize" then

  --TODO should behavior not be changed when 
  -- not keep aspect ratio?
		if b.keepratio==true then

		--WIP w and h should not be changed in this mode,
		--just zoom
		--we need to determine real dx and real dy
		--when keeping ratio
			local tsw= (b.w+dx)/b.w
			local tsh= (b.h+dy)/b.h

	--WIP distortion so far , probably loss of precision
	--TODO calculate zoom and store zoom, let width and height of pic to display func
			if tsw>=tsh then
				b.w=math.floor(b.w*tsw)
				b.h=math.floor(b.h*tsw)
			else
				b.w=math.floor(b.w*tsh)
				b.h=math.floor(b.h*tsh)
			end

			b.tzoom=b.w/b.initw
			print("zoom is "..b.tzoom)
		else
			--we change coordsm not zoom
			b.w=b.w+dx
			b.h=b.h+dy

		end
	end
	
	
end

--if consumed returns true
local function click(b,mx,my)
	print("scan click of brushbox ")


	if boxfocus==b then
		if mx >= b.x and mx<b.x+b.w*b.tzoom and my >= b.y and my<b.y+b.h*b.tzoom then
		      	print('drag')
			b.mode="drag"
			registerdrag=b
			return true
		end
		if mx >= b.x-hdlw and mx<b.x and my >= b.y-hdlh and my<b.y then
			b.mode="drag"
			registerdrag=b
			return true
		end
	
	end

	if boxfocus==b then
		if mx >= b.x+b.w*b.tzoom and mx<b.x+b.w*b.tzoom+hdlw and my >= b.y+b.h*b.tzoom and my<b.y+b.h*b.tzoom+hdlh then
			b.mode="resize"
			registerdrag=b
			return true
		end
	
	end
	
		--WIP resize click broken with zoom
	if mx >= b.x and mx<b.x+b.w*b.tzoom and my >= b.y and my<b.y+b.h*b.tzoom then
--		print("click detected on id "..b.id)
		--before taking focus let s check focus 
		
		boxfocus=b
		return true
	end
	return false
end


local function editkey(b,key)
--	if key=='down' then

--	end
	
end









local function tbrender(b)
	love.graphics.setColor(0.0,1.0,0.0,1.0)
	if b==boxfocus then
		love.graphics.setColor(1.0,0.0,0.0,1.0)
	end
	
	
	if renderdecos==true then
	   	if b.texture~=nil then
		   
       if b.texquad~=nil then
         --WIP are we going here ?
       --not sure this is used ?
          local xZoom=1.
          if b.xFlip ==true then
            --WIP never reached
            xZoom=-xZoom
            addMsg('bb xflip rdr '..xZoom)
          end
          --reached
          addMsg('bb quad rdr')
          love.graphics.draw(
			b.texture,
			b.texquad,
			b.x,
			b.y,
			0,
			xZoom*b.tzoom
			-- *0.5
			,
			1*b.tzoom
			-- *0.25
			
		)

      end
		end

	   	love.graphics.setLineWidth(3)
		love.graphics.rectangle("fill",b.x-hdlw,b.y-hdlh,hdlw,hdlh)
		love.graphics.rectangle("line",b.x,b.y,b.w*b.tzoom,b.h*b.tzoom)
		love.graphics.rectangle("fill",b.x+b.w*b.tzoom,b.y+b.h*b.tzoom,hdlw,hdlh)
		love.graphics.setColor(0.0,0.0,1.0,1.0)
		love.graphics.setLineWidth(1)
		--for justify center
		love.graphics.line(b.x+b.w/2,b.y,b.x+b.w/2,b.y+b.h)
	
		love.graphics.setColor(1.0,1.0,1.0,1.0)
--		love.graphics.print(b.id,b.x-hdlw,b.y-hdlh)
	end
	
	love.graphics.setColor(1.0,1.0,1.0,1.0)
	

end



--component has 2 modes, if a texture is passed,
--the selection is shown, 
--then scaled scaled WIP
function bbsettexture(bb,tex,quad,xFlip)
  addMsg('bb set tex xflip '..tostring(xFlip))
	 bb.texture=tex 
   --if optional quad is passed, the blit is on the quad portion
   bb.texquad=quad
   if xFlip~=nil then
    bb.xFlip=xFLip            
   end
end



--brush box represents a bitmap, so when resizing we maintain its
-- zoom ratio
function createbrushbox(x,y,w,h,keepratio,xFlip)
	ret={}
	
	ret.type='tbox' --used to identify targets for snap
	
--	wcount=wcount+1
	
--	ret.id=wcount

  --this is the display x y
	ret.x=x
	ret.y=y
  
	--used for zoom calculation after resize
	ret.initw=w --we dont change that ever
  
	ret.w=w
	ret.h=h
	ret.keepratio=keepratio

	ret.render=tbrender
	ret.click=click
	ret.drag=drag
	
	ret.buffer={}	
	table.insert(ret.buffer,"")
	ret.editkey=editkey
	--current line
	ret.line=1
	ret.char=0
	ret.tzoom=dfltzoom
	ret.justif=jleft
  if xFlip==true then
    ret.xFLip=true
  else
    ret.xFLip=false
  end
	--ret.dragrelease=applysnap
	-- ret.justif=jright


-- DBG for test
--	ret.texture=texture
	
	return ret
end