2
0
woollybah 9 жил өмнө
parent
commit
be297bbbb7

+ 6 - 6
directsoundaudio.mod/directsoundaudio.bmx

@@ -167,7 +167,7 @@ Type TDirectSoundChannel Extends TChannel
 		volume=Min(Max(volume,0),1)^.1
 		_volume=volume
 		If Not _buf Or _seq<>_buf._seq Return
-		bmx_directsound_IDirectSoundBuffer_setvolume(_buf._buffer, (1-volume)*-10000)
+		bmx_directsound_IDirectSoundBuffer_setvolume(_buf._buffer, Int((1-volume)*-10000))
 	End Method
 	
 	Method SetPan( pan# )
@@ -175,7 +175,7 @@ Type TDirectSoundChannel Extends TChannel
 		pan=Sgn(pan) * (1-(1-Abs(pan))^.1)		
 		_pan=pan
 		If Not _buf Or _seq<>_buf._seq Return
-		bmx_directsound_IDirectSoundBuffer_setpan(_buf._buffer, pan*10000)
+		bmx_directsound_IDirectSoundBuffer_setpan(_buf._buffer, Int(pan*10000))
 	End Method
 	
 	Method SetDepth( depth# )
@@ -185,7 +185,7 @@ Type TDirectSoundChannel Extends TChannel
 	Method SetRate( rate# )
 		_rate=rate
 		If Not _buf Or _seq<>_buf._seq Return
-		bmx_directsound_IDirectSoundBuffer_setfrequency(_buf._buffer, _hertz * rate)
+		bmx_directsound_IDirectSoundBuffer_setfrequency(_buf._buffer, Int(_hertz * rate))
 	End Method
 	
 	Method Playing()
@@ -220,9 +220,9 @@ Type TDirectSoundChannel Extends TChannel
 		If sound._loop _playFlags=DSBPLAY_LOOPING Else _playFlags=0
 		_buf._paused=True
 		bmx_directsound_IDirectSoundBuffer_setcurrentposition(_buf._buffer, 0)
-		bmx_directsound_IDirectSoundBuffer_setvolume(_buf._buffer, (1-_volume)*-10000)
-		bmx_directsound_IDirectSoundBuffer_setpan(_buf._buffer, _pan * 10000)
-		bmx_directsound_IDirectSoundBuffer_setfrequency(_buf._buffer, _hertz * _rate)
+		bmx_directsound_IDirectSoundBuffer_setvolume(_buf._buffer, Int((1-_volume)*-10000))
+		bmx_directsound_IDirectSoundBuffer_setpan(_buf._buffer, Int(_pan * 10000))
+		bmx_directsound_IDirectSoundBuffer_setfrequency(_buf._buffer, Int(_hertz * _rate))
 		Return True
 	End Method
 	

+ 2 - 2
dxgraphics.mod/d3d9graphics.bmx

@@ -33,7 +33,7 @@ Type TD3D9AutoRelease
 	Field unk:IUnknown
 End Type
 
-Function D3D9WndProc:Byte Ptr( hwnd:Byte Ptr,msg:Int,wp:Byte Ptr,lp:Byte Ptr ) "win32"
+Function D3D9WndProc:Byte Ptr( hwnd:Byte Ptr,msg:UInt,wp:Byte Ptr,lp:Byte Ptr ) "win32"
 
 	bbSystemEmitOSEvent hwnd,msg,wp,lp,Null
 	
@@ -197,7 +197,7 @@ Type TD3D9Graphics Extends TGraphics
 			AdjustWindowRect rect,wstyle,0
 		EndIf
 
-		Local hwnd:Byte Ptr=CreateWindowExW( 0,_wndClass,AppTitle,wstyle,rect[0],rect[1],rect[2]-rect[0],rect[3]-rect[1],0,0,GetModuleHandleA(Null),Null )
+		Local hwnd:Byte Ptr=CreateWindowExW( 0,_wndClass,AppTitle,wstyle,rect[0],rect[1],rect[2]-rect[0],rect[3]-rect[1],Null,Null,GetModuleHandleA(Null),Null )
 		If Not hwnd Return Null
 
 		If Not depth