From 6880109d9d38abfed6dececf863fdb7430fbb837 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 3 Mar 2008 03:16:57 +0000
Subject: - 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
---
 Game/Code/Classes/ULog.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

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;
-- 
cgit v1.2.3