From 425ff834dbc3933475ee8f783eea6167e92ec174 Mon Sep 17 00:00:00 2001 From: jaybinks Date: Fri, 7 Dec 2007 04:32:38 +0000 Subject: little bit of tidy up.. added command line switch, to see what media interfaces are being used. moved RandomPCM Data generation to Visualizer class. added Visualization preset change, on new line ( may be a little to much... maybe we should do ever 4 or 16 bars or something ?) git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@697 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UMedia_dummy.pas | 37 ++----------------------------------- 1 file changed, 2 insertions(+), 35 deletions(-) (limited to 'Game/Code/Classes/UMedia_dummy.pas') diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas index a5cc4b5a..697dc2f9 100644 --- a/Game/Code/Classes/UMedia_dummy.pas +++ b/Game/Code/Classes/UMedia_dummy.pas @@ -171,37 +171,9 @@ begin result := data; end; -var count: integer = 0; - function Tmedia_dummy.GetPCMData(var data: TPCMData): Cardinal; -var i: integer; -begin - // Produce some fake PCM data - if ( count mod 500 = 0 ) then - begin - for i := 0 to 511 do begin - data[0][i] := 0; - data[1][i] := 0; - end; - end - else begin - for i := 0 to 511 do begin - if ( i mod 2 = 0 ) then begin - data[0][i] := floor(Random * power(2.,14)); - data[1][i] := floor(Random * power(2.,14)); - end - else begin; - data[0][i] := floor(Random * power(2.,14)); - data[1][i] := floor(Random * power(2.,14)); - end; - if ( i mod 2 = 1 ) then begin - data[0][i] := -data[0][i]; - data[1][i] := -data[1][i]; - end; - end; - end; - Inc(count); - result := 512; +begin + result := 0; end; // IAudioPlayback @@ -293,16 +265,11 @@ procedure Tmedia_dummy.PlayCustomSound(const Index: Cardinal ); begin end; - - initialization singleton_dummy := Tmedia_dummy.create(); - - writeln( 'UMedia_dummy - Register' ); AudioManager.add( singleton_dummy ); finalization - writeln( 'UMedia_dummy - UnRegister' ); AudioManager.Remove( singleton_dummy ); end. -- cgit v1.2.3