From 8af89b5940bd15b013e3f48536888e352eb1c43b Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 10 May 2008 10:37:22 +0000
Subject: Update to Bass 2.4. Do not forget to replace the old with the new
 dll.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1080 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/lib/bass/lazarustest.lpr | 51 --------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 Game/Code/lib/bass/lazarustest.lpr

(limited to 'Game/Code/lib/bass/lazarustest.lpr')

diff --git a/Game/Code/lib/bass/lazarustest.lpr b/Game/Code/lib/bass/lazarustest.lpr
deleted file mode 100644
index 6faee86d..00000000
--- a/Game/Code/lib/bass/lazarustest.lpr
+++ /dev/null
@@ -1,51 +0,0 @@
-program lazarustest;
-
-{$mode objfpc}{$H+}
-
-uses
-  sysutils,
-  bass in 'delphi\bass.pas'
-  { add your units here };
-
-var
-  chan : HSTREAM;
-
-begin
-  // check the correct BASS was loaded
-  if (hi(BASS_GetVersion) <> BASSVERSION) then
-  begin
-    writeln('An incorrect version of BASS.DLL was loaded');
-    Halt;
-  end;
-  
-  //init BASS
-  if not BASS_Init(0,44100,0,0,nil) then
-    writeln('Can''t initialize device');
-    
-  //creating stream
-  if fileexists( 'music.mp3 ') then
-  begin
-    chan := BASS_StreamCreateFile(FALSE,pchar('music.mp3'),0,0,0);
-    if chan = 0 then
-    begin
-      chan := BASS_MusicLoad(False, pchar('music.mp3'), 0, 0, BASS_MUSIC_RAMPS or BASS_MUSIC_POSRESET or BASS_MUSIC_PRESCAN, 0);
-      if (chan = 0) then
-      begin
-        writeln('Can''t play file');
-        Exit;
-      end;
-    end;
-
-    BASS_ChannelPlay(chan,FALSE); // start playing
-  end
-  else
-  begin
-    writeln( 'music.mp3 not found.. could not test mp3 playback');
-  end;
-    
-  BASS_Free();
-  writeln( 'Seems BASS is compatible with lazarus :) ');
-
-
-end.
-
-- 
cgit v1.2.3