Include "bass.bb"
Window = CreateWindow("Song Editor", 100, 100, 450, 600, Desktop(), 33)

BASS_Init(-1,44100,0,Window,BASS_NULL)
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1)
BASS_SetConfig(BASS_CONFIG_NET_PROXY,0)

;Lists
Dim NoteB(4, 4)		;5 Saiten, 5 Teile
Dim NoteT(4, 4)		;s.o., um die Type zu entlasten

Type Notes
	;Welche Linie nutzt es?
	Field Row
	
	;bei welcher sekunde?
	Field Second, Part
	
	;Was ist es? One-Stroke oder Hold
	Field Typ, Length
	
	;Wurde es bereits gedrückt?
	Field Active
End Type

Global Song = 0, SongSec = 0, SongLen = 0
Global Second = 0

;Gadgets
For X = 0 To 4
	For Y = 0 To 4
		NoteB(X, Y) = CreateButton("Line:"+X+" Part:"+Y, X*90, Y*15+20, 90, 15, Window, 2)
	Next
Next

SongPos = CreateLabel("", 20, 110, 100, 20, Window, 1)
PrevSec = CreateButton("-1", 0, 110, 20, 20, Window)
NextSec = CreateButton("+1", 120, 110, 20, 20, Window)
PlaySec = CreateButton("Play Second", 0, 130, 140, 20, Window)

NewSong = CreateButton("New Song", 0, 0, 100, 20, Window)
SaveSong = CreateButton("Save Song", 100, 0, 100, 20, Window)
LoadSong = CreateButton("Load Song", 200, 0, 100, 20, Window)
ExtSong = CreateLabel("Ext", 300, 0, 50, 20, Window)
Quit = CreateButton("Quit", 400, 0, 50, 20, Window)

Repeat
	WaitEvent(100)
	Select EventID()
		Case $803
			End
		Case $401
			EvtS = EventSource()
			Select EvtS
				Case PrevSec
					SongSec = SongSec -1
					If SongPos < 0 SongPos = SongLen
				Case NextSec
					SongSec = SongSec +1
					If SongSec > SongLen SongSec = 0
				Case PlaySec
					
				Case NewSong
					If Song <> 0
						BASS_StreamFree(Song)
						Song = 0
					EndIf
					File$ = RequestFile("Mp3, Mp2, Mp1, OGG, WAV, AIFF", "mp3,mp2,mp1,ogg,wav,aiff")
					;Song = BASS_StreamCreateFile(BASS_False, File$, 0, 0, BASS_NULL)				;<----------
				Case SaveSong
					
				Case LoadSong
					
				Case Quit
					BASS_Free()
					End
			End Select
	End Select
	If Song <> 0
		BASS_ChannelGetPosition(Song)
		;BASS_ChannelBytes2Seconds(Song, Pos)				;<--------------------------------------------------
		
	EndIf
	
	SetGadgetText SongPos, SongSec
Forever