Sorry your browser is not supported!

#constant DECODE            			0x200000
#constant LOOP_CHN     		   4
#constant AUTOFREE          			0x40000
#constant PRESCAN           			0x20000
#constant FLOAT_CHN    		   256
#constant REVERSE_ATTRIBUTE 0x11000
#constant FORWARD_CHN           1
#constant REVERSE_CHN          -1



type img

  x as integer
  y as integer

endtype

global dim ins(640*30) as img
global stream as dword
global effect as dword 
global length
global bpp1
global bpp2
global i



set display mode 640,480,32
  sync on
ink rgb(255,255,0),rgb(0,0,0)

load dll "bass.dll",1
load dll "bass_fx.dll",2

nul = call dll (1,"BASS_Init",-1,44100,0,0,0)

stream = call dll (1,"BASS_StreamCreateFile",0,"1.mp3",0,0,DECODE )`|| PRESCAN || FLOAT_CHN)
effect = call dll (2,"BASS_FX_TempoCreate",stream,AUTOFREE || LOOP_CHN)` DECODE  )
`effect = call dll (2,"BASS_FX_ReverseCreate",effect,2.0, AUTOFREE )