text.lua

---@class Zenitha.TextAnimArg
---@field text? string
---@field x? number
---@field y? number
---@field r? number
---@field g? number
---@field b? number
---@field a? number
---@field color? number[]
---@field fontSize? number
---@field fontType? string|nil
---@field duration? number
---@field inPoint? number
---@field outPoint? number
---@field style? string
---@field styleArg? any

local setColor=GC.setColor
local draw=GC.draw

local floor,rnd=math.floor,math.random
local max,min=math.max,math.min
local ins,rem=table.insert,table.remove

local textFX={}
function textFX.appear(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        nil,
        nil,nil,
        T._ox,T._oy
    )
end
function textFX.fly(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x+(T._t-.5)^3*(T.arg or 300),T.y,
        nil,
        nil,nil,
        T._ox,T._oy
    )
end
function textFX.stretch(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        nil,
        max(1-T._t/T.inPoint,0)*(T.arg or 1)+1 or 1,1,
        T._ox,T._oy
    )
end
function textFX.drive(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        nil,
        nil,nil,
        T._ox,T._oy,
        (max(1-T._t/T.inPoint,0)*(T.driveX or 2)) or 0,0
    )
end
function textFX.spin(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        (max(1-T._t/T.inPoint,0)^2-max(1-(1-T._t)/T.outPoint,0)^2)*(T.arg or .4),
        nil,nil,
        T._ox,T._oy
    )
end
function textFX.flicker(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1)*rnd())
    draw(
        T.text,T.x,T.y,
        nil,
        nil,nil,
        T._ox,T._oy
    )
end
function textFX.zoomout(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        nil,
        T._t^.5*(T.arg or .1)+1,nil,
        T._ox,T._oy
    )
end
function textFX.beat(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y,
        nil,
        1+(T.arg or .5)*max(1-T._t/T.inPoint,0)^.6,nil,
        T._ox,T._oy
    )
end
function textFX.score(T)
    setColor(T.r,T.g,T.b,T.a*min(T._t/T.inPoint,1)*min((1-T._t)/T.outPoint,1))
    draw(
        T.text,T.x,T.y-0-T._t^.2*(T.arg or 30),
        nil,
        nil,nil,
        T._ox,T._oy
    )
end

---@class Zenitha.Text
local TEXT={_texts={}}

---Clear text container
function TEXT:clear()
    self._texts={}
end

---Add text to container
---@param data Zenitha.TextAnimArg
---## Example
---```lua
---default={
---    text="Example Text",
---    x=0,y=0,
---    r=1,g=1,b=1,a=1,
---    fontSize=40,
---    fontType=nil,
---
---    style='appear', -- Check declaration to learn more
---    duration=1,
---    inPoint=0.2,
---    outPoint=0.2,
---    styleArg=...,
---}
---```
function TEXT:add(data)
    local T={
        text=GC.newText(FONT.get(floor((data.fontSize or 40)/5)*5,data.fontType),data.text or "Example Text"),
        x=data.x or 0,y=data.y or 0,
        r=data.r,g=data.g,b=data.b,a=data.a,
        duration=data.duration or 1,
        inPoint=data.inPoint or 0.2,
        outPoint=data.outPoint or 0.2,

        draw=assertf(textFX[data.style or 'appear'],"No text type: %s",data.style),
        arg=data.styleArg,
    }
    T._t=0 -- Timer
    T._ox,T._oy=T.text:getWidth()*.5,T.text:getHeight()*.5
    if type(data.color)=='string' then data.color=COLOR[data.color] end
    if data.color then T.r,T.g,T.b,T.a=data.color[1],data.color[2],data.color[3],data.color[4] end
    T.r=T.r or 1
    T.g=T.g or 1
    T.b=T.b or 1
    T.a=T.a or 1
    ins(self._texts,T)
end

---Update text container
---@param dt number
function TEXT:update(dt)
    local list=self._texts
    for i=#list,1,-1 do
        local T=list[i]
        T._t=T._t+dt/T.duration
        if T._t>1 then
            rem(list,i)
        end
    end
end

---Draw text container
function TEXT:draw()
    local list=self._texts
    for i=1,#list do list[i]:draw() end
end

---Create new text container
---@return Zenitha.Text
function TEXT.new()
    return setmetatable({_texts={}},{__index=TEXT})
end
return TEXT