hedgewars/SDLh.pas
changeset 174 0b2c5b22f644
parent 154 5667e6f38704
child 183 57c2ef19f719
--- a/hedgewars/SDLh.pas	Tue Sep 26 20:25:42 2006 +0000
+++ b/hedgewars/SDLh.pas	Wed Sep 27 20:13:29 2006 +0000
@@ -274,6 +274,8 @@
       SDL_MixerLibName = 'libSDL_mixer.so';
       {$ENDIF}
 
+const MIX_MAX_VOLUME = 128;
+
 type PMixChunk = ^TMixChunk;
      TMixChunk = record
                  allocated: Longword;
@@ -302,9 +304,11 @@
 function  Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName;
 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName;
 
+function  Mix_Volume(channel: LongInt; volume: LongInt): LongInt; cdecl; external SDL_MixerLibName;
+function  Mix_SetDistance(channel: LongInt; distance: Byte): LongInt;  cdecl; external SDL_MixerLibName;
 function  Mix_VolumeMusic(volume: LongInt): LongInt; cdecl; external SDL_MixerLibName;
 
-function Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName;
+function  Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName;
 procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName;
 procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName;