Download Guitar PSPRO v1.0 beta

-- include functions
dofile("functions/readpad.lua")
dofile("functions/generic.lua")
dofile("functions/render.lua")
dofile("functions/misc.lua")
dofile("setup.ini")
require('functions/GPFile.lc')
require('functions/GPPiece.lc')
require('functions/GPDrawing.lc')



-- define colours
black = Color.new(0, 0, 0)
white = Color.new(255, 255, 255)
red = Color.new(255, 0, 0)
green = Color.new(0, 255, 0)
blue = Color.new(0, 0, 255)
darkblue = Color.new(0, 0, 192)
grey = Color.new(192, 192, 192)
yellow = Color.new(255, 255, 0)
brown = Color.new(150, 143, 86)
purple = Color.new(92, 59, 90)
transparentwhite = Color.new(255, 255, 255, 128)

-- define vars
NumMeasure = 1
NumTrack = 1
runp = false
screen_width = 480
screen_height = 272
max_filechars = 51
num_listings = 12 + 2
oncol = green
offcol = transparentwhite
cutcol = grey
copycol = yellow
selectedcol = yellow
shadow_xoffset = 1
shadow_yoffset = 1
menu_pointer = 3
origdir = System.currentDirectory()
cut_files = {}
copy_files = {}
selected_files = {}

-- load images and sound
--background = Image.load("themes/file.png")
snd_menu2 = Sound.load('themes/menuselect.wav')

--functions gplayer
function gplayer()
tab=clsGPFile:new()
piece = tab:load("ms0:/GP4part/"..aff)
tab=nil

control = Controls.read()
while control:start() == false do

  x = 0
  y = 30
  i = 0
  continue = true
  screen:clear(GPDrawing.cWhite)
  --screen:blit(0,0,background_tab)
  while (continue) do

  if (control:right()) then
  NumMeasure = NumMeasure + 1
  if (NumMeasure + i >= table.getn(piece.Measures)) then
  NumMeasure = table.getn(piece.Measures) - i
  continue   = false
  end
  elseif (control:left()) then
  NumMeasure = NumMeasure - 1
  if (NumMeasure < 1) then
  NumMeasure = 1
  end
  end
  
  if (continue) then
  
  if (NumMeasure + i <= table.getn(piece.Measures)) then
  
  if (GPDrawing.position + x < 480) then
  
  GPDrawing:buildMeasure(piece, 1, NumMeasure + i)
  screen:blit(x,y,GPDrawing.image, 0, 0, GPDrawing.position + 1,GPDrawing.BarreBegin + GPDrawing.BarreHeight + GPDrawing.BarreEnd, false)
  
  i = i + 1
  
  end
  
  x = x + GPDrawing.position
  
  if (x >= 480) then
  
  x = 0
  y = y + GPDrawing.BarreBegin + GPDrawing.BarreHeight + GPDrawing.BarreEnd
  
  end
  
  if (y >= 250) then
  continue = false
  end
  
  else
  continue = false
  end
  
  end
  
  end
  
  screen:blit(0,0,background_tab)
  screen:print(139, 8, aff1, green)
  screen:flip()

  control = Controls.read()
  screen.waitVblankStart()
end

end
--end functions

--functions menu beta
function menu()

  while true do
  screen:clear()
  screen:blit(0, 0, background_menu)
  --control pad
pad = Controls.read()
if pad ~= oldPad then
oldPad = pad
--controle ou on ne peut appuyer sur une touche que une fois avant de devoir la relacher
if pad:circle() then
snd_menu2:play()
break
end

end  
  
  screen:waitVblankStart()
  screen:flip()

  end
end

--end


menu()

-- get file list
System.currentDirectory("ms0:/GP4part")
update_files()

-- pause
if showsplash then
  screen.waitVblankStart(120)
end

-- render file list
render_filelist()

-- flip screen
screen.flip()
screen.waitVblankStart()


--while true do
--end

-- read pad
padmode = "filelist"
while true do
readpad()
if runp == true then
gplayer()
end

end


-- reset dir
System.currentDirectory(origdir)