Sorry your browser is not supported!

rem Load the sound to be used
load sound "C:\program files\Dark Basic Software\Dark Basic Professional\Media\Sounds\Aliens\Kamikazi.wav",1

rem Make waveform to show user and set up memblocks
sync rate 0 : make memblock from sound 1,1 : sndlen=get memblock size(1)

do

    play sound 1 : start = timer()

    do

    rem Clear screen
      cls


      rem Get length of sound in SECONDS
      secs = int((sndlen / (sound speed(1))))

      rem Get the elapsed time in MILLISECONDS
      elapsed = timer()-start

      rem Get the stepvalue between each millisecond
      stepval# = (sndlen / secs)/1000

      rem Get the current position based on stepvalue
      p = int(elapsed * stepval#)

      rem Do not get info if past end of sound
      if p < sndlen then psnd=memblock word(1,p)

      rem Divide result by 256
      psnd = psnd/256

      rem Get ready to draw the visualisation
      ink rgb(255,255,255),0

      rem Draw visualisation
      circle 320,240,psnd/2

      rem Repeat
      if spacekey()=1 then exit

rem Update screen
      sync

    loop

loop

      
rem Draw line visualisation

      If r = 255 and b = 0 Then inc g
      If r = 255 and b > 0 Then dec b
      If g = 255 and r > 0 Then dec r
      If r = 0 and b<255 Then inc b
      If b = 255 and r=0 and g>0 Then dec g
      If g=0 and b =255 Then inc r
      ink RGB(r,g,b),0

      x=x+1
      If x = screen width() Then x = 0: CLS
      rem draw lines
      Line x,old+40,x+1,psnd+40

      old = psnd