From 6857c4c06206f80aee1855951b916a6526c87fc7 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sun, 17 Oct 2010 11:35:26 +0000 Subject: 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 --- medley_new/src/base/UMusic.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'medley_new/src/base/UMusic.pas') diff --git a/medley_new/src/base/UMusic.pas b/medley_new/src/base/UMusic.pas index 0fa625ee..e21c9bd8 100644 --- a/medley_new/src/base/UMusic.pas +++ b/medley_new/src/base/UMusic.pas @@ -292,6 +292,7 @@ type procedure Pause(); virtual; abstract; procedure Stop(); virtual; abstract; procedure FadeIn(Time: real; TargetVolume: single); virtual; abstract; + procedure Fade(Time: real; TargetVolume: single); virtual; abstract; procedure GetFFTData(var data: TFFTData); virtual; abstract; function GetPCMData(var data: TPCMData): Cardinal; virtual; abstract; @@ -426,6 +427,7 @@ type procedure SetLoop(Enabled: boolean); procedure FadeIn(Time: real; TargetVolume: single); + procedure Fade(Time: real; TargetVolume: single); procedure SetSyncSource(SyncSource: TSyncSource); procedure Rewind; -- cgit v1.2.3