623 lines
12 KiB
Lua
623 lines
12 KiB
Lua
local gc=love.graphics
|
|
local kb=love.keyboard
|
|
local int,abs=math.floor,math.abs
|
|
local max,min=math.max,math.min
|
|
local format=string.format
|
|
local color=color
|
|
local setFont=setFont
|
|
local Timer=love.timer.getTime
|
|
|
|
local button={
|
|
type="button",
|
|
ATV=0,--Activating time(0~8)
|
|
}
|
|
function button:reset()
|
|
self.ATV=0
|
|
end
|
|
function button:isAbove(x,y)
|
|
local ATV=self.ATV
|
|
return
|
|
x>self.x-ATV and
|
|
y>self.y-ATV and
|
|
x<self.x+self.w+2*ATV and
|
|
y<self.y+self.h+2*ATV
|
|
end
|
|
function button:getCenter()
|
|
return self.x+self.w*.5,self.y+self.h*.5
|
|
end
|
|
function button:FX()
|
|
local ATV=self.ATV
|
|
sysFX.newRectRipple(
|
|
.16,
|
|
self.x-ATV,
|
|
self.y-ATV,
|
|
self.w+2*ATV,
|
|
self.h+2*ATV
|
|
,5
|
|
)
|
|
end
|
|
function button:update()
|
|
local ATV=self.ATV
|
|
if WIDGET.sel==self then
|
|
if ATV<8 then self.ATV=ATV+1 end
|
|
else
|
|
if ATV>0 then self.ATV=ATV-.5 end
|
|
end
|
|
end
|
|
function button:draw()
|
|
local x,y,w,h=self.x,self.y,self.w,self.h
|
|
local ATV=self.ATV
|
|
local r,g,b=unpack(self.color)
|
|
gc.setColor(.2+r*.8,.2+g*.8,.2+b*.8,.7)
|
|
gc.rectangle("fill",x-ATV,y-ATV,w+2*ATV,h+2*ATV)
|
|
if ATV>0 then
|
|
gc.setLineWidth(4)
|
|
gc.setColor(1,1,1,ATV*.125)
|
|
gc.rectangle("line",x-ATV+2,y-ATV+2,w+2*ATV-4,h+2*ATV-4)
|
|
end
|
|
local t=self.text
|
|
if t then
|
|
if type(t)=="function"then t=t()end
|
|
setFont(self.font)
|
|
local y0=y+h*.5-self.font*.7-ATV*.5
|
|
gc.setColor(1,1,1,.2+ATV*.05)
|
|
gc.printf(t,x-2,y0-2,w,"center")
|
|
gc.printf(t,x-2,y0+2,w,"center")
|
|
gc.printf(t,x+2,y0-2,w,"center")
|
|
gc.printf(t,x+2,y0+2,w,"center")
|
|
gc.setColor(r*.5,g*.5,b*.5)
|
|
gc.printf(t,x,y0,w,"center")
|
|
end
|
|
end
|
|
function button:printInfo()
|
|
DBP(format("x=%d,y=%d,w=%d,h=%d,font=%d",self.x+self.w*.5,self.y+self.h*.5,self.w,self.h,self.font))
|
|
end
|
|
|
|
local key={
|
|
type="key",
|
|
ATV=0,--Activating time(0~4)
|
|
}
|
|
function key:reset()
|
|
self.ATV=0
|
|
end
|
|
function key:isAbove(x,y)
|
|
local ATV=self.ATV
|
|
return
|
|
x>self.x and
|
|
y>self.y and
|
|
x<self.x+self.w and
|
|
y<self.y+self.h
|
|
end
|
|
function key:getCenter()
|
|
return self.x+self.w*.5,self.y+self.h*.5
|
|
end
|
|
function key:update()
|
|
local ATV=self.ATV
|
|
if WIDGET.sel==self then
|
|
if ATV<4 then self.ATV=ATV+1 end
|
|
else
|
|
if ATV>0 then self.ATV=ATV-.5 end
|
|
end
|
|
end
|
|
function key:draw()
|
|
local x,y,w,h=self.x,self.y,self.w,self.h
|
|
local ATV=self.ATV
|
|
local r,g,b=unpack(self.color)
|
|
|
|
gc.setColor(1,1,1,ATV*.125)
|
|
gc.rectangle("fill",x,y,w,h)
|
|
|
|
gc.setColor(.2+r*.8,.2+g*.8,.2+b*.8,.7)
|
|
gc.setLineWidth(4)
|
|
gc.rectangle("line",x,y,w,h)
|
|
|
|
local t=self.text
|
|
if t then
|
|
if type(t)=="function"then t=t()end
|
|
setFont(self.font)
|
|
gc.setColor(r,g,b,1.2)
|
|
gc.printf(t,x,y+h*.5-self.font*.7,w,"center")
|
|
end
|
|
end
|
|
function key:printInfo()
|
|
DBP(format("x=%d,y=%d,w=%d,h=%d,font=%d",self.x+self.w*.5,self.y+self.h*.5,self.w,self.h,self.font))
|
|
end
|
|
|
|
local switch={
|
|
type="switch",
|
|
ATV=0,--Activating time(0~8)
|
|
CHK=0,--Check alpha(0~6)
|
|
}
|
|
function switch:reset()
|
|
self.ATV=0
|
|
self.CHK=0
|
|
end
|
|
function switch:isAbove(x,y)
|
|
return x>self.x and x<self.x+50 and y>self.y-25 and y<self.y+25
|
|
end
|
|
function switch:getCenter()
|
|
return self.x,self.y
|
|
end
|
|
function switch:update()
|
|
local atv=self.ATV
|
|
if WIDGET.sel==self then if atv<8 then self.ATV=atv+1 end
|
|
else if atv>0 then self.ATV=atv-.5 end
|
|
end
|
|
chk=self.CHK
|
|
if self:disp()then if chk<6 then self.CHK=chk+1 end
|
|
else if chk>0 then self.CHK=chk-1 end
|
|
end
|
|
end
|
|
function switch:draw()
|
|
local x,y=self.x,self.y-25
|
|
local ATV=self.ATV
|
|
|
|
--Checked
|
|
if ATV>0 then
|
|
gc.setColor(1,1,1,ATV*.08)
|
|
gc.rectangle("fill",x,y,50,50)
|
|
end
|
|
if self.CHK>0 then
|
|
gc.setColor(.9,1,.9,self.CHK/6)
|
|
gc.setLineWidth(6)
|
|
gc.line(x+5,y+25,x+18,y+38,x+45,y+11)
|
|
end
|
|
|
|
--Frame
|
|
gc.setLineWidth(4)
|
|
gc.setColor(1,1,1,.6+ATV*.05)
|
|
gc.rectangle("line",x,y,50,50)
|
|
|
|
--Text
|
|
local t=self.text
|
|
if t then
|
|
gc.setColor(1,1,1)
|
|
setFont(self.font)
|
|
gc.printf(t,x-412-ATV,y+20-self.font*.7,400,"right")
|
|
end
|
|
end
|
|
function switch:printInfo()
|
|
DBP(format("x=%d,y=%d,font=%d",self.x,self.y,self.font))
|
|
end
|
|
|
|
local slider={
|
|
type="slider",
|
|
ATV=0,--Activating time(0~8)
|
|
TAT=0,--Text activating time(0~180)
|
|
pos=0,--Position shown
|
|
}
|
|
local sliderShowFunc={
|
|
none=NULL,
|
|
int=function(S)
|
|
return S.disp()
|
|
end,
|
|
float=function(S)
|
|
return int(S.disp()*100)*.01
|
|
end,
|
|
percent=function(S)
|
|
return int(S.disp()*100).."%"
|
|
end,
|
|
frame_time=function(S)
|
|
S=S.disp()
|
|
return S.."F "..int(S*16.67).."ms"
|
|
end,
|
|
}
|
|
function slider:reset()
|
|
self.ATV=0
|
|
self.TAT=180
|
|
self.pos=0
|
|
end
|
|
function slider:isAbove(x,y)
|
|
return x>self.x-10 and x<self.x+self.w+10 and y>self.y-20 and y<self.y+20
|
|
end
|
|
function slider:getCenter()
|
|
return self.x+self.w*(self.pos/self.unit),self.y
|
|
end
|
|
function slider:update()
|
|
local atv=self.ATV
|
|
if self.TAT>0 then
|
|
self.TAT=self.TAT-1
|
|
end
|
|
if WIDGET.sel==self then
|
|
if atv<6 then
|
|
atv=atv+1
|
|
self.ATV=atv
|
|
end
|
|
self.TAT=180
|
|
else
|
|
if atv>0 then
|
|
atv=atv-.5
|
|
self.ATV=atv
|
|
end
|
|
end
|
|
if not(self.hide and self.hide())then
|
|
self.pos=self.pos*.7+self.disp()*.3
|
|
end
|
|
end
|
|
function slider:draw()
|
|
local x,y=self.x,self.y
|
|
local ATV=self.ATV
|
|
local x2=x+self.w
|
|
|
|
gc.setColor(1,1,1,.5+ATV*.06)
|
|
|
|
--Units
|
|
if not self.smooth then
|
|
gc.setLineWidth(2)
|
|
for p=0,self.unit do
|
|
local x=x+(x2-x)*p/self.unit
|
|
gc.line(x,y+7,x,y-7)
|
|
end
|
|
end
|
|
|
|
--Axis
|
|
gc.setLineWidth(4)
|
|
gc.line(x,y,x2,y)
|
|
|
|
--Block
|
|
local cx=x+(x2-x)*self.pos/self.unit
|
|
local bx,by,bw,bh=cx-10-ATV*.5,y-16-ATV,20+ATV,32+2*ATV
|
|
gc.setColor(.8,.8,.8)
|
|
gc.rectangle("fill",bx,by,bw,bh)
|
|
|
|
local t
|
|
if ATV>0 then
|
|
gc.setLineWidth(2)
|
|
gc.setColor(1,1,1,ATV*.16)
|
|
gc.rectangle("line",bx+1,by+1,bw-2,bh-2)
|
|
end
|
|
if self.TAT>0 and self.show then
|
|
setFont(25)
|
|
gc.setColor(1,1,1,self.TAT/180)
|
|
mStr(self:show(),cx,by-30)
|
|
end
|
|
|
|
--Text
|
|
t=self.text
|
|
if t then
|
|
gc.setColor(1,1,1)
|
|
setFont(self.font)
|
|
gc.printf(t,x-312-ATV,y-self.font*.7,300,"right")
|
|
end
|
|
end
|
|
function slider:printInfo()
|
|
DBP(format("x=%d,y=%d,w=%d",self.x,self.y,self.w))
|
|
end
|
|
|
|
local WIDGET={}
|
|
WIDGET.active={}--Table, contains all active widgets
|
|
WIDGET.sel=nil--Selected widget
|
|
function WIDGET.set(L)
|
|
WIDGET.sel=nil
|
|
WIDGET.active=L or{}
|
|
|
|
--Reset all widgets
|
|
if L then
|
|
for _,W in next,L do
|
|
W:reset()
|
|
end
|
|
end
|
|
end
|
|
|
|
WIDGET.new={}
|
|
function WIDGET.newText(D)
|
|
local _={
|
|
name= D.name,
|
|
x= D.x,
|
|
y= D.y,
|
|
align= D.align,
|
|
color= color[D.color]or D.color,
|
|
font= D.font,
|
|
hide= D.hide,
|
|
}for k,v in next,button do _[k]=v end return _
|
|
end
|
|
function WIDGET.newImage(D)
|
|
local _={
|
|
name= D.name,
|
|
x= D.x-w*.5,
|
|
y= D.y-h*.5,
|
|
w= D.w,
|
|
h= D.h,
|
|
color= color[D.color]or D.color,
|
|
font= D.font,
|
|
code= D.code,
|
|
hide= D.hide,
|
|
}for k,v in next,button do _[k]=v end return _
|
|
end
|
|
function WIDGET.newButton(D)
|
|
if not D.h then D.h=D.w end
|
|
local _={
|
|
name= D.name,
|
|
|
|
x= D.x-D.w*.5,
|
|
y= D.y-D.h*.5,
|
|
w= D.w,
|
|
h= D.h,
|
|
|
|
resCtr={
|
|
D.x,D.y,
|
|
D.x-D.w*.35,D.y-D.h*.35,
|
|
D.x-D.w*.35,D.y+D.h*.35,
|
|
D.x+D.w*.35,D.y-D.h*.35,
|
|
D.x+D.w*.35,D.y+D.h*.35,
|
|
},
|
|
|
|
color= color[D.color]or D.color,
|
|
font= D.font,
|
|
code= D.code,
|
|
hide= D.hide,
|
|
}for k,v in next,button do _[k]=v end return _
|
|
end
|
|
function WIDGET.newKey(D)
|
|
if not D.h then D.h=D.w end
|
|
local _={
|
|
name= D.name,
|
|
|
|
x= D.x-D.w*.5,
|
|
y= D.y-D.h*.5,
|
|
w= D.w,
|
|
h= D.h,
|
|
|
|
resCtr={
|
|
D.x,D.y,
|
|
D.x-D.w*.35,D.y-D.h*.35,
|
|
D.x-D.w*.35,D.y+D.h*.35,
|
|
D.x+D.w*.35,D.y-D.h*.35,
|
|
D.x+D.w*.35,D.y+D.h*.35,
|
|
},
|
|
|
|
color= color[D.color]or D.color,
|
|
font= D.font,
|
|
code= D.code,
|
|
hide= D.hide,
|
|
}for k,v in next,key do _[k]=v end return _
|
|
end
|
|
function WIDGET.newSwitch(D)
|
|
local _={
|
|
name= D.name,
|
|
|
|
x= D.x,
|
|
y= D.y,
|
|
|
|
cx= D.x+25,
|
|
cy= D.y,
|
|
resCtr={
|
|
D.x+25,D.y,
|
|
},
|
|
|
|
font= D.font,
|
|
disp= D.disp,
|
|
code= D.code,
|
|
hide= D.hide,
|
|
}for k,v in next,switch do _[k]=v end return _
|
|
end
|
|
function WIDGET.newSlider(D)
|
|
local _={
|
|
name= D.name,
|
|
|
|
x= D.x,
|
|
y= D.y,
|
|
w= D.w,
|
|
|
|
cx= D.x+D.w*.5,
|
|
cy= D.y,
|
|
resCtr={
|
|
D.x,D.y,
|
|
D.x+D.w*.25,D.y,
|
|
D.x+D.w*.5,D.y,
|
|
D.x+D.w*.75,D.y,
|
|
D.x+D.w,D.y,
|
|
},
|
|
|
|
unit= D.unit or 1,
|
|
--smooth=nil,
|
|
font= D.font,
|
|
change= D.change,
|
|
disp= D.disp,
|
|
code= D.code,
|
|
hide= D.hide,
|
|
--show= nil,
|
|
|
|
lastTime=0,
|
|
}
|
|
if D.smooth~=nil then
|
|
_.smooth=D.smooth
|
|
else
|
|
_.smooth=_.unit<=1
|
|
end
|
|
if D.show then
|
|
if type(D.show)=="function"then
|
|
_.show=D.show
|
|
else
|
|
_.show=sliderShowFunc[D.show]
|
|
end
|
|
elseif D.show~=false then
|
|
if _.unit<=1 then
|
|
_.show=sliderShowFunc.percent
|
|
else
|
|
_.show=sliderShowFunc.int
|
|
end
|
|
end
|
|
for k,v in next,slider do _[k]=v end return _
|
|
end
|
|
|
|
function WIDGET.moveCursor(x,y)
|
|
WIDGET.sel=nil
|
|
for _,W in next,WIDGET.active do
|
|
if not(W.hide and W.hide())and W:isAbove(x,y)then
|
|
WIDGET.sel=W
|
|
return
|
|
end
|
|
end
|
|
end
|
|
function WIDGET.press(x,y)
|
|
local W=WIDGET.sel
|
|
if not W then return end
|
|
if W.type=="button"then
|
|
W.code()
|
|
W:FX()
|
|
SFX.play("button")
|
|
elseif W.type=="key"then
|
|
W.code()
|
|
SFX.play("lock")
|
|
elseif W.type=="switch"then
|
|
W.code()
|
|
SFX.play("move",.6)
|
|
elseif W.type=="slider"then
|
|
WIDGET.drag(x,y)
|
|
end
|
|
if W.hide and W.hide()then WIDGET.sel=nil end
|
|
end
|
|
function WIDGET.drag(x,y,dx,dy)
|
|
local W=WIDGET.sel
|
|
if not W then return end
|
|
if W.type=="slider"then
|
|
if not x then return end
|
|
local p=W.disp()
|
|
local P=x<W.x and 0 or x>W.x+W.w and W.unit or(x-W.x)/W.w*W.unit
|
|
if not W.smooth then
|
|
P=int(P+.5)
|
|
end
|
|
if p~=P then
|
|
W.code(P)
|
|
end
|
|
if W.change and Timer()-W.lastTime>.18 then
|
|
W.lastTime=Timer()
|
|
W.change()
|
|
end
|
|
elseif not W:isAbove(x,y)then
|
|
WIDGET.sel=nil
|
|
end
|
|
end
|
|
function WIDGET.release(x,y)
|
|
local W=WIDGET.sel
|
|
if not W then return end
|
|
if W.type=="slider"then
|
|
W.lastTime=0
|
|
WIDGET.drag(x,y)
|
|
end
|
|
WIDGET.sel=nil
|
|
end
|
|
function WIDGET.keyPressed(i)
|
|
if i=="space"or i=="return"then
|
|
if WIDGET.sel then
|
|
WIDGET.press()
|
|
end
|
|
elseif kb.isDown("lshift","lalt","lctrl")then
|
|
--When hold [↑], control slider with left/right
|
|
if i=="left"or i=="right"then
|
|
local W=WIDGET.sel
|
|
if W then
|
|
if W.type=="slider"then
|
|
local p=W.disp()
|
|
local u=(W.smooth and .01 or 1)
|
|
local P=i=="left"and max(p-u,0)or min(p+u,W.unit)
|
|
if p==P or not P then return end
|
|
W.code(P)
|
|
if W.change and Timer()-W.lastTime>.18 then
|
|
W.lastTime=Timer()
|
|
W.change()
|
|
end
|
|
end
|
|
end
|
|
end
|
|
elseif i=="up"or i=="down"or i=="left"or i=="right"then
|
|
if WIDGET.sel then
|
|
local W=WIDGET.sel
|
|
local WX,WY=W:getCenter()
|
|
local dir=(i=="right"or i=="down")and 1 or -1
|
|
local tar
|
|
local minDist=1e99
|
|
if i=="left"or i=="right"then
|
|
for i=1,#WIDGET.active do
|
|
local W1=WIDGET.active[i]
|
|
if W~=W1 and W1.resCtr then
|
|
local L=W1.resCtr
|
|
for j=1,#L,2 do
|
|
local x,y=L[j],L[j+1]
|
|
local dist=(x-WX)*dir
|
|
if dist>10 then
|
|
dist=dist+abs(y-WY)*6.26
|
|
if dist<minDist then
|
|
minDist=dist
|
|
tar=W1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
else
|
|
for i=1,#WIDGET.active do
|
|
local W1=WIDGET.active[i]
|
|
if W~=W1 and W1.resCtr then
|
|
local L=W1.resCtr
|
|
for j=1,#L,2 do
|
|
local x,y=L[j],L[j+1]
|
|
local dist=(y-WY)*dir
|
|
if dist>10 then
|
|
dist=dist+abs(x-WX)*6.26
|
|
if dist<minDist then
|
|
minDist=dist
|
|
tar=W1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
if tar then
|
|
WIDGET.sel=tar
|
|
end
|
|
else
|
|
WIDGET.sel=WIDGET.active[1]
|
|
end
|
|
end
|
|
end
|
|
local keyMirror={
|
|
dpup="up",
|
|
dpdown="down",
|
|
dpleft="left",
|
|
dpright="right",
|
|
start="return",
|
|
back="escape",
|
|
}
|
|
function WIDGET.gamepadPressed(i)
|
|
if i=="start"then
|
|
if WIDGET.sel then
|
|
WIDGET.press()
|
|
end
|
|
elseif i=="a"or i=="b"then
|
|
local W=WIDGET.sel
|
|
if W then
|
|
if W.type=="button"or W.type=="key"then
|
|
WIDGET.press()
|
|
elseif W.type=="slider"then
|
|
local p=W.disp()
|
|
local P=i=="left"and(p>0 and p-1)or p<W.unit and p+1
|
|
if p==P or not P then return end
|
|
W.code(P)
|
|
if W.change and Timer()-W.lastTime>.18 then
|
|
W.lastTime=Timer()
|
|
W.change()
|
|
end
|
|
end
|
|
end
|
|
elseif i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
|
|
WIDGET.keyPressed(keyMirror[i])
|
|
end
|
|
end
|
|
|
|
function WIDGET.update()
|
|
for _,W in next,WIDGET.active do
|
|
W:update()
|
|
end
|
|
end
|
|
function WIDGET.draw()
|
|
for _,W in next,WIDGET.active do
|
|
if not(W.hide and W.hide())then
|
|
W:draw()
|
|
end
|
|
end
|
|
end
|
|
|
|
return WIDGET |