diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-02-22 22:33:33 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-02-22 22:33:33 +0000 |
| commit | fb364dd193945e9027df807b4648e1f325b43d35 (patch) | |
| tree | 341448afbb8152e8370326fb1fbd90679a0ec0dd /src/media/UAudioPlayback_Bass.pas | |
| parent | 716c7b842a3b5d9a4b0b5b0134a46906661d6522 (diff) | |
| download | usdx-fb364dd193945e9027df807b4648e1f325b43d35.tar.gz usdx-fb364dd193945e9027df807b4648e1f325b43d35.tar.xz usdx-fb364dd193945e9027df807b4648e1f325b43d35.zip | |
add fade for medley mod.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2945 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/media/UAudioPlayback_Bass.pas')
| -rw-r--r-- | src/media/UAudioPlayback_Bass.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/media/UAudioPlayback_Bass.pas b/src/media/UAudioPlayback_Bass.pas index a3c3bd30..36d84b22 100644 --- a/src/media/UAudioPlayback_Bass.pas +++ b/src/media/UAudioPlayback_Bass.pas @@ -81,6 +81,7 @@ type procedure Pause(); override; procedure Stop(); override; procedure FadeIn(Time: real; TargetVolume: single); override; + procedure Fade(Time: real; TargetVolume: single); override; procedure AddSoundEffect(Effect: TSoundEffect); override; procedure RemoveSoundEffect(Effect: TSoundEffect); override; @@ -339,6 +340,12 @@ begin BASS_ChannelSlideAttribute(Handle, BASS_ATTRIB_VOL, TargetVolume, Trunc(Time * 1000)); end; +procedure TBassPlaybackStream.Fade(Time: real; TargetVolume: single); +begin + // start fade-in: slide from fadeStart- to fadeEnd-volume in FadeInTime + BASS_ChannelSlideAttribute(Handle, BASS_ATTRIB_VOL, TargetVolume, Trunc(Time * 1000)); +end; + procedure TBassPlaybackStream.Pause(); begin BASS_ChannelPause(Handle); |