Explorar el Código

Added haiku sdl audio driver.

Brucey hace 5 años
padre
commit
a136943887
Se han modificado 1 ficheros con 24 adiciones y 0 borrados
  1. 24 0
      audiosdl.mod/audiosdl.bmx

+ 24 - 0
audiosdl.mod/audiosdl.bmx

@@ -162,6 +162,30 @@ Type TDefaultSoloudAudioDriver Extends TCoreAudioSoloudAudioDriver
 		Return "SoLoud"
 	End Method
 
+End Type
+?haiku
+New THaikuSoloudAudioDriver
+New TDefaultSoloudAudioDriver
+
+Type THaikuSoloudAudioDriver Extends TSDLSoloudAudioDriver
+
+	Method Name$() Override
+		Return "SoLoud::Haiku"
+	End Method
+
+	Method Startup:Int() Override
+		SDLAudioInit("haiku")
+		Return Super.Startup()
+	End Method
+	
+End Type
+
+Type TDefaultSoloudAudioDriver Extends THaikuSoloudAudioDriver
+
+	Method Name$() Override
+		Return "SoLoud"
+	End Method
+
 End Type
 ?