- Input now supports multiple SampleRates (not fixed to 44100Hz anymore)

- Input is not restricted to stereo input-devices anymore (mono and multi-channel devices work too)
- Some improvements on the input-device detection
- Retrieves native capture sample-rate on Vista and MacOSX with BASS (maybe this solves some problems with wrong sample-rates)
- Capture-volume preview: a little modification to jay's approach. Now there are volume bars and pitch-displays. It needs some fine-tuning, maybe mog can do this if he likes.
- Some indentation/clean-up/translations


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@900 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 2 insertions, 5 deletions

diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index 542fa0b3..15c590ae 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -286,7 +286,6 @@ var
   FS:           TFileStream;

   FileName:     string;

   Num:          integer;

-  BL:           integer;

 begin

   for Num := 1 to 9999 do begin

     FileName := IntToStr(Num);

@@ -298,10 +297,8 @@ begin
 

   FS := TFileStream.Create(FileName, fmCreate);

 

-  for BL := 0 to High(AudioInputProcessor.Sound[SoundNr].BufferLong) do begin

-    AudioInputProcessor.Sound[SoundNr].BufferLong[BL].Seek(0, soBeginning);

-    FS.CopyFrom(AudioInputProcessor.Sound[SoundNr].BufferLong[BL], AudioInputProcessor.Sound[SoundNr].BufferLong[BL].Size);

-  end;

+  AudioInputProcessor.Sound[SoundNr].BufferLong.Seek(0, soBeginning);

+  FS.CopyFrom(AudioInputProcessor.Sound[SoundNr].BufferLong, AudioInputProcessor.Sound[SoundNr].BufferLong.Size);

 

   FS.Free;

 end;