diff options
author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-05-24 13:37:22 +0000 |
---|---|---|
committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-05-24 13:37:22 +0000 |
commit | 4dc8f0ba4f47191fdaefad5c6d42b255d0bbc435 (patch) | |
tree | bd38163c7c1684d2ca07afbe5b0a03674ea4e0c3 /VideoPreview/src/media/UMediaCore_SDL.pas | |
parent | 41e165cc8feebe6e4701f997c80e7722dd7c990c (diff) | |
download | usdx-4dc8f0ba4f47191fdaefad5c6d42b255d0bbc435.tar.gz usdx-4dc8f0ba4f47191fdaefad5c6d42b255d0bbc435.tar.xz usdx-4dc8f0ba4f47191fdaefad5c6d42b255d0bbc435.zip |
branch to merge video preview in song menu
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2411 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'VideoPreview/src/media/UMediaCore_SDL.pas')
-rw-r--r-- | VideoPreview/src/media/UMediaCore_SDL.pas | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/VideoPreview/src/media/UMediaCore_SDL.pas b/VideoPreview/src/media/UMediaCore_SDL.pas new file mode 100644 index 00000000..74c75e16 --- /dev/null +++ b/VideoPreview/src/media/UMediaCore_SDL.pas @@ -0,0 +1,63 @@ +{* UltraStar Deluxe - Karaoke Game + * + * UltraStar Deluxe is the legal property of its developers, whose names + * are too numerous to list here. Please refer to the COPYRIGHT + * file distributed with this source distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + * Boston, MA 02110-1301, USA. + * + * $URL$ + * $Id$ + *} + +unit UMediaCore_SDL; + +interface + +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + +{$I switches.inc} + +uses + UMusic, + sdl; + +function ConvertAudioFormatToSDL(Format: TAudioSampleFormat; out SDLFormat: UInt16): boolean; + +implementation + +function ConvertAudioFormatToSDL(Format: TAudioSampleFormat; out SDLFormat: UInt16): boolean; +begin + case Format of + asfU8: SDLFormat := AUDIO_U8; + asfS8: SDLFormat := AUDIO_S8; + asfU16LSB: SDLFormat := AUDIO_U16LSB; + asfS16LSB: SDLFormat := AUDIO_S16LSB; + asfU16MSB: SDLFormat := AUDIO_U16MSB; + asfS16MSB: SDLFormat := AUDIO_S16MSB; + asfU16: SDLFormat := AUDIO_U16; + asfS16: SDLFormat := AUDIO_S16; + else begin + Result := false; + Exit; + end; + end; + Result := true; +end; + +end. |