aboutsummaryrefslogtreecommitdiffstats
path: root/src/classes0/UMediaCore_SDL.pas
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-27 14:59:38 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-27 14:59:38 +0000
commit16a6e6801fde495b2782e2e04a0cf055ce1e1516 (patch)
tree0dcfda2e6848b6157bfb51bb3037d52b595a22ae /src/classes0/UMediaCore_SDL.pas
parent873f177f08dc7c4fe2d7e50bbe7709df98e238d3 (diff)
downloadusdx-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.pas38
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.