added general fading (for fade-out)

it must be tested on MacOS and Linux.
a more general fading function would be better (with "fade to pause" and "fade to end").

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

1 files changed, 5 insertions, 0 deletions

diff --git a/medley_new/src/media/UMedia_dummy.pas b/medley_new/src/media/UMedia_dummy.pas
index 46cbe6b8..6bae58ec 100644
--- a/medley_new/src/media/UMedia_dummy.pas
+++ b/medley_new/src/media/UMedia_dummy.pas
@@ -79,6 +79,7 @@ type
 
       function GetOutputDeviceList(): TAudioOutputDeviceList;
       procedure FadeIn(Time: real; TargetVolume: single);
+      procedure Fade(Time: real; TargetVolume: single);
       procedure SetAppVolume(Volume: single);
       procedure SetVolume(Volume: single);
       procedure Rewind;
@@ -286,6 +287,10 @@ procedure TAudio_Dummy.FadeIn(Time: real; TargetVolume: single);
 begin
 end;
 
+procedure TAudio_Dummy.Fade(Time: real; TargetVolume: single);
+begin
+end;
+
 procedure TAudio_Dummy.Rewind;
 begin
 end;