1 files changed, 9 insertions, 0 deletions
diff --git a/src/media/UAudioPlayback_SoftMixer.pas b/src/media/UAudioPlayback_SoftMixer.pas
index 11df4df5..a8639ee3 100644
--- a/src/media/UAudioPlayback_SoftMixer.pas
+++ b/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,14 @@ begin
   Play();
 end;
 
+procedure TGenericPlaybackStream.Fade(Time: real; TargetVolume: single);
+begin
+  FadeInTime := Trunc(Time * 1000);
+  FadeInStartTime := SDL_GetTicks();
+  FadeInStartVolume := fVolume;
+  FadeInTargetVolume := TargetVolume;
+end;
+
 procedure TGenericPlaybackStream.Pause();
 var
   Mixer: TAudioMixerStream;