diff options
Diffstat (limited to 'medley_new/src/media/UAudioPlayback_SoftMixer.pas')
-rw-r--r-- | medley_new/src/media/UAudioPlayback_SoftMixer.pas | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/medley_new/src/media/UAudioPlayback_SoftMixer.pas b/medley_new/src/media/UAudioPlayback_SoftMixer.pas index 11df4df5..ac65fd68 100644 --- a/medley_new/src/media/UAudioPlayback_SoftMixer.pas +++ b/medley_new/src/media/UAudioPlayback_SoftMixer.pas @@ -101,6 +101,7 @@ type procedure Pause(); override; procedure Stop(); override; procedure FadeIn(Time: real; TargetVolume: single); override; + procedure Fade(Time: real; TargetVolume: single); override; function GetAudioFormatInfo(): TAudioFormatInfo; override; @@ -479,6 +480,16 @@ begin Play(); end; +procedure TGenericPlaybackStream.Fade(Time: real; TargetVolume: single); +begin + (* TODO: test + FadeInTime := Trunc(Time * 1000); + FadeInStartTime := SDL_GetTicks(); + FadeInStartVolume := fVolume; + FadeInTargetVolume := TargetVolume; + *) +end; + procedure TGenericPlaybackStream.Pause(); var Mixer: TAudioMixerStream; |