diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:59:38 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:59:38 +0000 |
| commit | 16a6e6801fde495b2782e2e04a0cf055ce1e1516 (patch) | |
| tree | 0dcfda2e6848b6157bfb51bb3037d52b595a22ae /src/classes0/UMediaCore_SDL.pas | |
| parent | 873f177f08dc7c4fe2d7e50bbe7709df98e238d3 (diff) | |
| download | usdx-16a6e6801fde495b2782e2e04a0cf055ce1e1516.tar.gz usdx-16a6e6801fde495b2782e2e04a0cf055ce1e1516.tar.xz usdx-16a6e6801fde495b2782e2e04a0cf055ce1e1516.zip | |
rename Classes part1
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1307 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/classes0/UMediaCore_SDL.pas')
| -rw-r--r-- | src/classes0/UMediaCore_SDL.pas | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/classes0/UMediaCore_SDL.pas b/src/classes0/UMediaCore_SDL.pas new file mode 100644 index 00000000..252f72a0 --- /dev/null +++ b/src/classes0/UMediaCore_SDL.pas @@ -0,0 +1,38 @@ +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. |