diff options
| author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-02-24 21:26:02 +0000 |
|---|---|---|
| committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-02-24 21:26:02 +0000 |
| commit | 262e2fd159ad63b7682992864987bb41a7814975 (patch) | |
| tree | c65ab307e049a67d27bd0407f80ab4ae8ba695a0 /Game/Code/Classes/UMusic.pas | |
| parent | 8d673db586aa57d95823730458e4973029fdfea7 (diff) | |
| download | usdx-262e2fd159ad63b7682992864987bb41a7814975.tar.gz usdx-262e2fd159ad63b7682992864987bb41a7814975.tar.xz usdx-262e2fd159ad63b7682992864987bb41a7814975.zip | |
added experimental voice playback after singing
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2154 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UMusic.pas')
| -rw-r--r-- | Game/Code/Classes/UMusic.pas | 64 |
1 files changed, 63 insertions, 1 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas index 942c8c81..fbd7fb29 100644 --- a/Game/Code/Classes/UMusic.pas +++ b/Game/Code/Classes/UMusic.pas @@ -51,6 +51,8 @@ type BassShuffle: hStream;
BassApplause: hStream;
+ BassVoices: array of hStream;
+
//Custom Sounds
CustomSounds: array of TCustomSoundEntry;
@@ -93,6 +95,12 @@ type procedure PlayShuffle;
procedure StopShuffle;
procedure PlayApplause;
+
+ function VoicesOpen(Names: array of string): integer;
+ procedure VoicesPlay;
+ procedure VoicesStop;
+ procedure VoicesClose;
+
procedure CaptureStart;
procedure CaptureStop;
procedure CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);
@@ -313,6 +321,7 @@ begin Exit;
end;
DSP_VocalRemover := 0;
+ SetLength(BassVoices, 0);
Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);
// config playing buffer
@@ -481,7 +490,7 @@ end; function TMusic.Open(Name: string): boolean;
begin
Loaded := false;
-
+
if FileExists(Name) then begin
{ MediaPlayer.FileName := Name;
MediaPlayer.Open;}
@@ -948,4 +957,57 @@ begin Result := (DSP_VocalRemover <> 0);
end;
+
+function TMusic.VoicesOpen(Names: array of string): integer;
+var
+ I: integer;
+ num: integer;
+
+begin
+ SetLength(BassVoices, 0);
+
+ for I := 0 to high(Names) do
+ begin
+ if FileExists(Names[I]) then
+ begin
+ num := high(BassVoices)+1;
+ SetLength(BassVoices, num+1);
+ BassVoices[num] := Bass_StreamCreateFile(false, pchar(Names[I]), 0, 0, 0);
+ DSP_VocalRemover:=0;
+ end;
+ end;
+
+ Result := high(BassVoices)+1;
+end;
+
+procedure TMusic.VoicesPlay;
+var
+ I: integer;
+begin
+ for I := 0 to high(BassVoices) do
+ begin
+ BASS_ChannelPlay(BassVoices[I], True);
+ end;
+end;
+
+procedure TMusic.VoicesStop;
+var
+ I: integer;
+begin
+ for I := 0 to high(BassVoices) do
+ Bass_ChannelStop(BassVoices[I]);
+end;
+
+
+procedure TMusic.VoicesClose;
+var
+ I: integer;
+begin
+ for I := 0 to high(BassVoices) do
+ begin
+ Bass_StreamFree(BassVoices[I]);
+ DSP_VocalRemover:=0;
+ end;
+ SetLength(BassVoices, 0);
+end;
end.
|