diff options
author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-10-17 11:35:26 +0000 |
---|---|---|
committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-10-17 11:35:26 +0000 |
commit | 6857c4c06206f80aee1855951b916a6526c87fc7 (patch) | |
tree | 24dc6438ab5c1c470a16ff85c4fa60aa70275865 /medley_new/src/media/UAudioPlaybackBase.pas | |
parent | b75e7399a7a3b7672d85f52013f916d06dd63651 (diff) | |
download | usdx-6857c4c06206f80aee1855951b916a6526c87fc7.tar.gz usdx-6857c4c06206f80aee1855951b916a6526c87fc7.tar.xz usdx-6857c4c06206f80aee1855951b916a6526c87fc7.zip |
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
Diffstat (limited to '')
-rw-r--r-- | medley_new/src/media/UAudioPlaybackBase.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/medley_new/src/media/UAudioPlaybackBase.pas b/medley_new/src/media/UAudioPlaybackBase.pas index 5f317257..58f0b85d 100644 --- a/medley_new/src/media/UAudioPlaybackBase.pas +++ b/medley_new/src/media/UAudioPlaybackBase.pas @@ -60,6 +60,7 @@ type procedure Pause; procedure Stop; procedure FadeIn(Time: real; TargetVolume: single); + procedure Fade(Time: real; TargetVolume: single); procedure SetSyncSource(SyncSource: TSyncSource); @@ -260,6 +261,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 |