From fb364dd193945e9027df807b4648e1f325b43d35 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 22 Feb 2013 22:33:33 +0000
Subject: add fade for medley mod.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2945 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/media/UAudioPlaybackBase.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/media/UAudioPlaybackBase.pas')

diff --git a/src/media/UAudioPlaybackBase.pas b/src/media/UAudioPlaybackBase.pas
index ffee671d..45130a7c 100644
--- a/src/media/UAudioPlaybackBase.pas
+++ b/src/media/UAudioPlaybackBase.pas
@@ -63,6 +63,7 @@ type
       procedure Pause;
       procedure Stop;
       procedure FadeIn(Time: real; TargetVolume: single);
+      procedure Fade(Time: real; TargetVolume: single);
 
       procedure SetSyncSource(SyncSource: TSyncSource);
 
@@ -304,6 +305,12 @@ begin
     MusicStream.FadeIn(Time, TargetVolume);
 end;
 
+procedure TAudioPlaybackBase.Fade(Time: real; TargetVolume: single);
+begin
+  if assigned(MusicStream) then
+    MusicStream.Fade(Time, TargetVolume);
+end;
+
 procedure TAudioPlaybackBase.SetLoop(Enabled: boolean);
 begin
   if assigned(MusicStream) then
-- 
cgit v1.2.3