Techmino/Zframework/scene.lua

local scenes={}

local SCN={
    mainTouchID=nil,     -- First touching ID(userdata)
    swapping=false,      -- If Swapping
    state={
        tar=false,       -- Swapping target
        style=false,     -- Swapping style
        changeTime=false,-- Loading point
        time=false,      -- Full swap time
        draw=false,      -- Swap draw  func
    },
    stack={},-- Scene stack
    prev=false,
    cur=false,
    args={},-- Arguments from previous scene

    scenes=scenes,

    -- Events
    update=false,
    draw=false,
    mouseClick=false,
    touchClick=false,
    mouseDown=false,
    mouseMove=false,
    mouseUp=false,
    wheelMoved=false,
    touchDown=false,
    touchUp=false,
    touchMove=false,
    keyDown=false,
    keyUp=false,
    gamepadDown=false,
    gamepadUp=false,
    fileDropped=false,
    directoryDropped=false,
    resize=false,
}-- Scene datas, returned

function SCN.add(name,scene)
    scenes[name]=scene
    if scene.widgetList then
        setmetatable(scene.widgetList,WIDGET.indexMeta)
    end
end

function SCN.swapUpdate(dt)
    local S=SCN.state
    S.time=S.time-dt
    if S.time<S.changeTime and S.time+dt>=S.changeTime then
        -- Scene swapped this frame
        SCN.stack[#SCN.stack]=S.tar
        SCN.cur=S.tar
        SCN.init(S.tar)
        SCN.mainTouchID=nil
    end
    if S.time<0 then
        SCN.swapping=false
    end
end
function SCN.init(s)
    love.keyboard.setTextInput(false)

    local S=scenes[s]

    WIDGET.setScrollHeight(S.widgetScrollHeight)
    WIDGET.setWidgetList(S.widgetList)
    SCN.enter=S.enter
    SCN.leave=S.leave
    SCN.mouseDown=S.mouseDown
    SCN.mouseMove=S.mouseMove
    SCN.mouseUp=S.mouseUp
    SCN.mouseClick=S.mouseClick
    SCN.wheelMoved=S.wheelMoved
    SCN.touchDown=S.touchDown
    SCN.touchUp=S.touchUp
    SCN.touchMove=S.touchMove
    SCN.touchClick=S.touchClick
    SCN.keyDown=S.keyDown
    SCN.keyUp=S.keyUp
    SCN.gamepadDown=S.gamepadDown
    SCN.gamepadUp=S.gamepadUp
    SCN.fileDropped=S.fileDropped
    SCN.directoryDropped=S.directoryDropped
    SCN.resize=S.resize
    SCN.update=S.update
    SCN.draw=S.draw
    if S.enter then
        S.enter()
    end
end
function SCN.push(tar)
    table.insert(SCN.stack,tar or SCN.stack[#SCN.stack])
end
function SCN.pop()
    table.remove(SCN.stack)
end

local swap={
    none={
        duration=0,changeTime=0,
        draw=function() end
    },
    flash={
        duration=.16,changeTime=.08,
        draw=function() GC.clear(1,1,1) end
    },
    fade={
        duration=.5,changeTime=.25,
        draw=function(t)
            t=t>.25 and 2-t*4 or t*4
            GC.setColor(0,0,0,t)
            GC.rectangle('fill',0,0,SCR.w,SCR.h)
        end
    },
    fade_togame={
        duration=2,changeTime=.5,
        draw=function(t)
            t=t>.5 and (2-t)/1.5 or t*.5
            GC.setColor(0,0,0,t)
            GC.rectangle('fill',0,0,SCR.w,SCR.h)
        end
    },
    slowFade={
        duration=3,changeTime=1.5,
        draw=function(t)
            t=t>1.5 and (3-t)/1.5 or t/1.5
            GC.setColor(0,0,0,t)
            GC.rectangle('fill',0,0,SCR.w,SCR.h)
        end
    },
    swipeL={
        duration=.5,changeTime=.25,
        draw=function(t)
        t=t*2
            GC.setColor(.1,.1,.1,1-math.abs(t-.5))
            t=t*t*(3-2*t)*2-1
            GC.rectangle('fill',t*SCR.w,0,SCR.w,SCR.h)
        end
    },
    swipeR={
        duration=.5,changeTime=.25,
        draw=function(t)
            t=t*2
            GC.setColor(.1,.1,.1,1-math.abs(t-.5))
            t=t*t*(2*t-3)*2+1
            GC.rectangle('fill',t*SCR.w,0,SCR.w,SCR.h)
        end
    },
    swipeD={
        duration=.5,changeTime=.25,
        draw=function(t)
            t=t*2
            GC.setColor(.1,.1,.1,1-math.abs(t-.5))
            t=t*t*(2*t-3)*2+1
            GC.rectangle('fill',0,t*SCR.h,SCR.w,SCR.h)
        end
    },
}-- Scene swapping animations
function SCN.swapTo(tar,style,...)-- Parallel scene swapping, cannot back
    if scenes[tar] then
        if not SCN.swapping then
            SCN.prev=SCN.stack[#SCN.stack]

            style=style or 'fade'
            SCN.swapping=true
            SCN.args={...}
            local S=SCN.state
            S.tar,S.style=tar,style
            S.time=swap[style].duration
            S.changeTime=swap[style].changeTime
            S.draw=swap[style].draw
        end
    else
        MES.new('warn',"No Scene: "..tostring(tar))
    end
end
function SCN.go(tar,style,...)-- Normal scene swapping, can back
    if scenes[tar] then
        if not SCN.swapping then
            SCN.push(SCN.stack[#SCN.stack] or '_')
            SCN.swapTo(tar,style,...)
        end
    else
        MES.new('warn',"No Scene: "..tar)
    end
end
function SCN.back(style,...)
    if SCN.swapping then return end

    -- Leave scene
    if SCN.leave then
        SCN.leave()
    end

    -- Poll&Back to previous Scene
    if #SCN.stack>1 then
        SCN.pop()
        SCN.swapTo(SCN.stack[#SCN.stack],style,...)
    else
        SCN.swapTo('quit','slowFade')
    end
end
function SCN.backTo(tar,style,...)
    if SCN.swapping then return end

    -- Leave scene
    if SCN.leave then
        SCN.leave()
    end

    -- Poll&Back to previous Scene
    while SCN.stack[#SCN.stack]~=tar and #SCN.stack>1 do
        SCN.pop()
    end
    SCN.swapTo(SCN.stack[#SCN.stack],style,...)
end
function SCN.printStack()
    for i=0,#SCN.stack+1 do print(SCN.stack[i] or "-------") end
end

return SCN