From 8c923b5b76bb17e00132a0b2b2b96de34265fc63 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 16 Oct 2007 11:27:23 +0000
Subject: modified ffmpeg usage, to use interface same as bass... still needs
 some tidy up, but its working.   :)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@515 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UAudio_bass.pas | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

(limited to 'Game/Code/Classes/UAudio_bass.pas')

diff --git a/Game/Code/Classes/UAudio_bass.pas b/Game/Code/Classes/UAudio_bass.pas
index cbeadc47..5aecfc89 100644
--- a/Game/Code/Classes/UAudio_bass.pas
+++ b/Game/Code/Classes/UAudio_bass.pas
@@ -79,7 +79,7 @@ type
       procedure Close;
       function Finished: boolean;
       function Length: real;
-      function Position: real;
+      function getPosition: real;
       procedure PlayStart;
       procedure PlayBack;
       procedure PlaySwoosh;
@@ -118,17 +118,22 @@ var
   Pet:  integer;
   S:    integer;
 begin
-  Log.BenchmarkStart(4);
-  Log.LogStatus('Initializing Playback Subsystem', 'Music Initialize');
+  writeln( 'TAudio_bass.InitializePlayback' );
+//  Log.BenchmarkStart(4);
+//  Log.LogStatus('Initializing Playback Subsystem', 'Music Initialize');
 
   Loaded := false;
   Loop   := false;
 
+
+  writeln( 'TAudio_bass AllocateHWND' );
   {$ifdef win32}
   // TODO : JB_Linux ... is this needed ? :)
   fHWND  := AllocateHWND( nil); // TODO : JB_lazarus - can we do something different here ?? lazarus didnt like this function
   {$ENDIF}
 
+
+  writeln( 'TAudio_bass BASS_Init' );
   // TODO : jb_linux replace with something other than bass
   if not BASS_Init(1, 44100, 0, fHWND, nil) then
   begin
@@ -139,15 +144,16 @@ begin
     Exit;
   end;
 
-  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);
+//  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);
 
   // config playing buffer
 //  BASS_SetConfig(BASS_CONFIG_UPDATEPERIOD, 10);
 //  BASS_SetConfig(BASS_CONFIG_BUFFER, 100);
 
-  Log.LogStatus('Loading Sounds', 'Music Initialize');
+//  Log.LogStatus('Loading Sounds', 'Music Initialize');
 
-  Log.BenchmarkStart(4);
+  writeln( 'TAudio_bass LoadSoundFromFile' );
+//  Log.BenchmarkStart(4);
   LoadSoundFromFile(BassStart,  SoundPath + 'Common Start.mp3');
   LoadSoundFromFile(BassBack,   SoundPath + 'Common Back.mp3');
   LoadSoundFromFile(BassSwoosh, SoundPath + 'menu swoosh.mp3');
@@ -161,8 +167,8 @@ begin
 
 //  LoadSoundFromFile(BassShuffle, SoundPath + 'Shuffle.mp3');
 
-  Log.BenchmarkEnd(4);
-  Log.LogBenchmark('--> Loading Sounds', 4);
+//  Log.BenchmarkEnd(4);
+//  Log.LogBenchmark('--> Loading Sounds', 4);
 end;
 
 procedure TAudio_bass.InitializeRecord;
@@ -347,7 +353,7 @@ begin
   Result := BASS_ChannelBytes2Seconds(Bass, bytes);
 end;
 
-function TAudio_bass.Position: real;
+function TAudio_bass.getPosition: real;
 var
   bytes:    integer;
 begin
@@ -631,7 +637,10 @@ initialization
   AudioManager.add( IAudioInput( singleton_MusicBass )    );
 
 finalization
+  writeln( 'UAudio_Bass - UnRegister Playback' );
   AudioManager.Remove( IAudioPlayback( singleton_MusicBass ) );
+
+  writeln( 'UAudio_Bass - UnRegister Input' );
   AudioManager.Remove( IAudioInput( singleton_MusicBass ) );
 
 end.
-- 
cgit v1.2.3