243 lines
7.0 KiB
Lua
243 lines
7.0 KiB
Lua
local gc,sys=love.graphics,love.system
|
||
local kb=love.keyboard
|
||
|
||
local sin=math.sin
|
||
local ins,rem=table.insert,table.remove
|
||
|
||
local scene={}
|
||
|
||
local cur--Cursor position
|
||
local sure
|
||
|
||
function scene.sceneInit()
|
||
cur=#BAG
|
||
sure=0
|
||
end
|
||
|
||
local minoKey={
|
||
['1']=1,['2']=2,['3']=3,['4']=4,['5']=5,['6']=6,['7']=7,
|
||
z=1,s=2,j=3,l=4,t=5,o=6,i=7,
|
||
p=10,q=11,f=12,e=13,u=15,
|
||
v=16,w=17,x=18,r=21,y=22,n=23,h=24,
|
||
['/']=26,c=27,[',']=27,['\'']=27,['-']=28,[';']=28,['.']=29,
|
||
}
|
||
local minoKey2={
|
||
['1']=8,['2']=9,['3']=19,['4']=20,['5']=14,['7']=25,
|
||
z=8,s=9,t=14,j=19,l=20,i=25,['-']=26,o=29,
|
||
}
|
||
function scene.keyDown(key)
|
||
if key=="left"then
|
||
local p=cur
|
||
if p==0 then
|
||
cur=#BAG
|
||
else
|
||
repeat
|
||
p=p-1
|
||
until BAG[p]~=BAG[cur]
|
||
cur=p
|
||
end
|
||
elseif key=="right"then
|
||
local p=cur
|
||
if p==#BAG then
|
||
cur=0
|
||
else
|
||
repeat
|
||
p=p+1
|
||
until BAG[p+1]~=BAG[cur+1]
|
||
cur=p
|
||
end
|
||
elseif key=="ten"then
|
||
for _=1,10 do
|
||
local p=cur
|
||
if p==#BAG then break end
|
||
repeat
|
||
p=p+1
|
||
until BAG[p+1]~=BAG[cur+1]
|
||
cur=p
|
||
end
|
||
elseif key=="backspace"then
|
||
if cur>0 then
|
||
rem(BAG,cur)
|
||
cur=cur-1
|
||
if cur>0 and BAG[cur]==BAG[cur+1]then
|
||
scene.keyDown("right")
|
||
end
|
||
end
|
||
elseif key=="delete"then
|
||
if sure>20 then
|
||
TABLE.cut(BAG)
|
||
cur=0
|
||
sure=0
|
||
SFX.play('finesseError',.7)
|
||
else
|
||
sure=50
|
||
end
|
||
elseif key=="="then
|
||
local l={1,2,3,4,5,6,7}
|
||
repeat scene.keyDown(rem(l,math.random(#l)))until not l[1]
|
||
elseif key=="tab"then
|
||
local W=WIDGET.active.sequence
|
||
if kb.isDown("lshift","rshift")then
|
||
W:press(W.x)
|
||
else
|
||
W:press(W.x+W.w)
|
||
end
|
||
elseif key=="c"and kb.isDown("lctrl","rctrl")or key=="cC"then
|
||
if #BAG>0 then
|
||
sys.setClipboardText("Techmino SEQ:"..DATA.copySequence())
|
||
LOG.print(text.exportSuccess,'message')
|
||
end
|
||
elseif key=="v"and kb.isDown("lctrl","rctrl")or key=="cV"then
|
||
local str=sys.getClipboardText()
|
||
local p=str:find(":")--ptr*
|
||
if p then
|
||
if not str:sub(1,p-1):find("SEQ")then
|
||
LOG.print(text.pasteWrongPlace,'warn')
|
||
end
|
||
str=str:sub(p+1)
|
||
end
|
||
if DATA.pasteSequence(str)then
|
||
LOG.print(text.importSuccess,'message')
|
||
cur=#BAG
|
||
else
|
||
LOG.print(text.dataCorrupted,'error')
|
||
end
|
||
elseif key=="escape"then
|
||
SCN.back()
|
||
elseif type(key)=='number'then
|
||
cur=cur+1
|
||
ins(BAG,cur,key)
|
||
elseif #key==1 then
|
||
key=(kb.isDown("lshift","lalt","rshift","ralt")and minoKey2 or minoKey)[key]
|
||
if key then
|
||
local p=cur+1
|
||
while BAG[p]==key do p=p+1 end
|
||
ins(BAG,p,key)
|
||
cur=p
|
||
SFX.play('lock')
|
||
end
|
||
end
|
||
end
|
||
|
||
function scene.update()
|
||
if sure>0 then sure=sure-1 end
|
||
end
|
||
|
||
function scene.draw()
|
||
--Draw frame
|
||
gc.setColor(1,1,1)
|
||
gc.setLineWidth(4)
|
||
gc.rectangle('line',100,110,1080,260)
|
||
|
||
--Draw sequence
|
||
local miniBlock=TEXTURE.miniBlock
|
||
local libColor=minoColor
|
||
local set=SETTING.skin
|
||
local L=BAG
|
||
local x,y=120,136--Next block pos
|
||
local cx,cy=120,136--Cursor-center pos
|
||
local i,j=1,#L
|
||
local count=1
|
||
setFont(25)
|
||
repeat
|
||
if L[i]==L[i-1]then
|
||
count=count+1
|
||
else
|
||
if count>1 then
|
||
gc.setColor(1,1,1)
|
||
gc.print("×",x-5,y-14)
|
||
gc.print(count,x+10,y-13)
|
||
x=x+(count<10 and 33 or 45)
|
||
count=1
|
||
if i==cur+1 then
|
||
cx,cy=x,y
|
||
end
|
||
end
|
||
if x>1060 then
|
||
x,y=120,y+50
|
||
end
|
||
if i<=j then
|
||
local B=miniBlock[L[i]]
|
||
gc.setColor(libColor[set[L[i]]])
|
||
gc.draw(B,x,y,nil,15,15,0,B:getHeight()*.5)
|
||
x=x+B:getWidth()*15+10
|
||
end
|
||
end
|
||
|
||
if i==cur then
|
||
cx,cy=x,y
|
||
end
|
||
i=i+1
|
||
until i>j+1
|
||
|
||
--Draw lenth
|
||
setFont(40)
|
||
gc.setColor(1,1,1)
|
||
gc.print(#L,120,310)
|
||
|
||
--Draw cursor
|
||
gc.setColor(.5,1,.5,.6+.4*sin(TIME()*6.26))
|
||
gc.line(cx-5,cy-20,cx-5,cy+20)
|
||
|
||
--Confirm reset
|
||
if sure>0 then
|
||
gc.setColor(1,1,1,sure*.02)
|
||
gc.draw(TEXTURE.question,1050,430,nil,.6)
|
||
end
|
||
end
|
||
|
||
scene.widgetList={
|
||
WIDGET.newText{name="title",x=520,y=5,font=70,align='R'},
|
||
WIDGET.newText{name="subTitle",x=530,y=50,font=35,align='L',color='H'},
|
||
|
||
WIDGET.newSelector{name="sequence",x=1080,y=60,w=200,color='Y',
|
||
list={'bag','his','hisPool','c2','rnd','mess','reverb','loop','fixed'},
|
||
disp=CUSval("sequence"),
|
||
code=CUSsto("sequence")
|
||
},
|
||
|
||
WIDGET.newKey{name="Z", x=120,y=460,w=80,font=50,code=pressKey(1)},
|
||
WIDGET.newKey{name="S", x=200,y=460,w=80,font=50,code=pressKey(2)},
|
||
WIDGET.newKey{name="J", x=280,y=460,w=80,font=50,code=pressKey(3)},
|
||
WIDGET.newKey{name="L", x=360,y=460,w=80,font=50,code=pressKey(4)},
|
||
WIDGET.newKey{name="T", x=440,y=460,w=80,font=50,code=pressKey(5)},
|
||
WIDGET.newKey{name="O", x=520,y=460,w=80,font=50,code=pressKey(6)},
|
||
WIDGET.newKey{name="I", x=600,y=460,w=80,font=50,code=pressKey(7)},
|
||
WIDGET.newKey{name="left", x=680,y=460,w=80,color='lG',font=55,code=pressKey"left"},
|
||
WIDGET.newKey{name="right", x=760,y=460,w=80,color='lG',font=55,code=pressKey"right"},
|
||
WIDGET.newKey{name="ten", x=840,y=460,w=80,color='lG',font=40,code=pressKey"ten"},
|
||
WIDGET.newKey{name="backsp",x=920,y=460,w=80,color='lY',font=50,code=pressKey"backspace"},
|
||
WIDGET.newKey{name="reset", x=1000,y=460,w=80,color='lY',font=25,code=pressKey"delete"},
|
||
|
||
WIDGET.newKey{name="Z5", x=120,y=540,w=80,color='lH',font=50,code=pressKey(8)},
|
||
WIDGET.newKey{name="S5", x=200,y=540,w=80,color='lH',font=50,code=pressKey(9)},
|
||
WIDGET.newKey{name="P", x=280,y=540,w=80,color='lH',font=50,code=pressKey(10)},
|
||
WIDGET.newKey{name="Q", x=360,y=540,w=80,color='lH',font=50,code=pressKey(11)},
|
||
WIDGET.newKey{name="F", x=440,y=540,w=80,color='lH',font=50,code=pressKey(12)},
|
||
WIDGET.newKey{name="E", x=520,y=540,w=80,color='lH',font=50,code=pressKey(13)},
|
||
WIDGET.newKey{name="T5", x=600,y=540,w=80,color='lH',font=50,code=pressKey(14)},
|
||
WIDGET.newKey{name="U", x=680,y=540,w=80,color='lH',font=50,code=pressKey(15)},
|
||
WIDGET.newKey{name="V", x=760,y=540,w=80,color='lH',font=50,code=pressKey(16)},
|
||
WIDGET.newKey{name="I3", x=840,y=540,w=80,color='H',font=50,code=pressKey(26)},
|
||
WIDGET.newKey{name="C", x=920,y=540,w=80,color='H',font=50,code=pressKey(27)},
|
||
WIDGET.newKey{name="rnd", x=1000,y=540,w=80,color='R',font=25,code=pressKey"="},
|
||
|
||
WIDGET.newKey{name="W", x=120,y=620,w=80,color='lH',font=50,code=pressKey(17)},
|
||
WIDGET.newKey{name="X", x=200,y=620,w=80,color='lH',font=50,code=pressKey(18)},
|
||
WIDGET.newKey{name="J5", x=280,y=620,w=80,color='lH',font=50,code=pressKey(19)},
|
||
WIDGET.newKey{name="L5", x=360,y=620,w=80,color='lH',font=50,code=pressKey(20)},
|
||
WIDGET.newKey{name="R", x=440,y=620,w=80,color='lH',font=50,code=pressKey(21)},
|
||
WIDGET.newKey{name="Y", x=520,y=620,w=80,color='lH',font=50,code=pressKey(22)},
|
||
WIDGET.newKey{name="N", x=600,y=620,w=80,color='lH',font=50,code=pressKey(23)},
|
||
WIDGET.newKey{name="H", x=680,y=620,w=80,color='lH',font=50,code=pressKey(24)},
|
||
WIDGET.newKey{name="I5", x=760,y=620,w=80,color='lH',font=50,code=pressKey(25)},
|
||
WIDGET.newKey{name="I2", x=840,y=620,w=80,color='dH',font=50,code=pressKey(28)},
|
||
WIDGET.newKey{name="O1", x=920,y=620,w=80,color='dH',font=50,code=pressKey(29)},
|
||
|
||
|
||
WIDGET.newButton{name="copy",x=1140,y=460,w=170,h=80,color='lR',font=40,code=pressKey"cC",hideF=function()return #BAG==0 end},
|
||
WIDGET.newButton{name="paste",x=1140,y=550,w=170,h=80,color='lB',font=40,code=pressKey"cV"},
|
||
WIDGET.newButton{name="back",x=1140,y=640,w=170,h=80,fText=TEXTURE.back,code=backScene},
|
||
}
|
||
|
||
return scene |