aboutsummaryrefslogtreecommitdiffstats
path: root/medley_new/src/media/UAudioPlayback_SoftMixer.pas
diff options
context:
space:
mode:
Diffstat (limited to 'medley_new/src/media/UAudioPlayback_SoftMixer.pas')
-rw-r--r--medley_new/src/media/UAudioPlayback_SoftMixer.pas11
1 files changed, 11 insertions, 0 deletions
diff --git a/medley_new/src/media/UAudioPlayback_SoftMixer.pas b/medley_new/src/media/UAudioPlayback_SoftMixer.pas
index 11df4df5..ac65fd68 100644
--- a/medley_new/src/media/UAudioPlayback_SoftMixer.pas
+++ b/medley_new/src/media/UAudioPlayback_SoftMixer.pas
@@ -101,6 +101,7 @@ type
procedure Pause(); override;
procedure Stop(); override;
procedure FadeIn(Time: real; TargetVolume: single); override;
+ procedure Fade(Time: real; TargetVolume: single); override;
function GetAudioFormatInfo(): TAudioFormatInfo; override;
@@ -479,6 +480,16 @@ begin
Play();
end;
+procedure TGenericPlaybackStream.Fade(Time: real; TargetVolume: single);
+begin
+ (* TODO: test
+ FadeInTime := Trunc(Time * 1000);
+ FadeInStartTime := SDL_GetTicks();
+ FadeInStartVolume := fVolume;
+ FadeInTargetVolume := TargetVolume;
+ *)
+end;
+
procedure TGenericPlaybackStream.Pause();
var
Mixer: TAudioMixerStream;