diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-06 17:06:44 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-06 17:06:44 +0000 |
commit | bca530968b6cfbabca755957f351a29bb42150e4 (patch) | |
tree | e3477b84ad3d571b13e2c2a89c2d1dad5c8b6da3 /Game/Code/Classes/UAudioPlayback_Bass.pas | |
parent | 86703a13c79ceabf9d9b98b0cb8fc5115dfba05b (diff) | |
download | usdx-bca530968b6cfbabca755957f351a29bb42150e4.tar.gz usdx-bca530968b6cfbabca755957f351a29bb42150e4.tar.xz usdx-bca530968b6cfbabca755957f351a29bb42150e4.zip |
replaced some "string" parameters with "const string"
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@923 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UAudioPlayback_Bass.pas | 36 |
1 files changed, 15 insertions, 21 deletions
diff --git a/Game/Code/Classes/UAudioPlayback_Bass.pas b/Game/Code/Classes/UAudioPlayback_Bass.pas index 266a5ec3..d47990a8 100644 --- a/Game/Code/Classes/UAudioPlayback_Bass.pas +++ b/Game/Code/Classes/UAudioPlayback_Bass.pas @@ -56,7 +56,7 @@ type private MusicStream: TBassPlaybackStream; - function Load(Filename: string): TBassPlaybackStream; + function Load(const Filename: string): TBassPlaybackStream; public function GetName: String; @@ -67,7 +67,7 @@ type procedure SetMusicVolume(Volume: integer); procedure SetLoop(Enabled: boolean); - function Open(Filename: string): boolean; // true if succeed + function Open(const Filename: string): boolean; // true if succeed procedure Rewind; procedure Play; @@ -241,7 +241,7 @@ begin result := true; end; -function TAudioPlayback_Bass.Load(Filename: string): TBassPlaybackStream; +function TAudioPlayback_Bass.Load(const Filename: string): TBassPlaybackStream; var L: Integer; stream: HSTREAM; @@ -282,7 +282,7 @@ begin MusicStream.Loop := Enabled; end; -function TAudioPlayback_Bass.Open(Filename: string): boolean; +function TAudioPlayback_Bass.Open(const Filename: string): boolean; var stream: HSTREAM; begin @@ -363,10 +363,10 @@ begin Result := true; end; -//Equalizer +// Equalizer procedure TAudioPlayback_Bass.GetFFTData(var data: TFFTData); begin - //Get Channel Data Mono and 256 Values + // Get Channel Data Mono and 256 Values BASS_ChannelGetData(MusicStream.Handle, @data, BASS_DATA_FFT512); end; @@ -379,23 +379,17 @@ var info: BASS_CHANNELINFO; nBytes: DWORD; begin - //Get Channel Data Mono and 256 Values + Result := 0; + + // Get Channel Data Mono and 256 Values BASS_ChannelGetInfo(MusicStream.Handle, info); FillChar(data, sizeof(TPCMData), 0); - - if (info.chans = 1) then - begin - // mono file -> add stereo channel - nBytes := 0;//BASS_ChannelGetData(Bass, @data[0], samples*sizeof(Smallint)); - // interleave data - //CopyMemory(@data[1], @data[0], samples*sizeof(Smallint)); - result := 0; - end - else - begin - // stereo file - nBytes := BASS_ChannelGetData(MusicStream.Handle, @data, sizeof(TPCMData)); - end; + + // no support for non-stereo files at the moment + if (info.chans <> 2) then + Exit; + + nBytes := BASS_ChannelGetData(MusicStream.Handle, @data, sizeof(TPCMData)); if(nBytes <= 0) then result := 0 else |