Percussions test
Posted: Fri Jan 09, 2015 5:06 pm
Program to find desired percussion notes:
Code: Select all
option base 1
n=48
dim m$(n)
for i=1 to n
read m$(i)
next i
data "B1"
data "C2","C#2","D2","D#2","E2","F2","F#2","G2","G#2","A2","A#2","B2"
data "C3","C#3","D3","D#3","E3","F3","F#3","G3","G#3","A3","A#3","B3"
data "C4","C#4","D4","D#4","E4","F4","F#4","G4","G#4","A4","A#4","B4"
data "C5","C#5","D5","D#5","E5","F5","F#5","G5","G#5","A5","A#5"
list 0 text m$ at 0,0 size screen_width(),screen_height()
loop: k=list_selected("0")
if k>= 0 then
notes set ,,,,,,,,,m$(k)
notes play
pause notes_length()
end if
goto loop