--- deliantra/Deliantra-Client/Client.xs 2007/07/29 03:58:26 1.212 +++ deliantra/Deliantra-Client/Client.xs 2007/08/06 05:06:32 1.219 @@ -806,7 +806,7 @@ } int -Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096) +Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024) POSTCALL: Mix_HookMusicFinished (music_finished); Mix_ChannelFinished (channel_finished); @@ -817,6 +817,9 @@ int Mix_AllocateChannels (int numchans = -1) +const char * +Mix_GetError () + void lowdelay (int fd, int val = 1) CODE: @@ -1349,6 +1352,9 @@ float t = SvNV (*hv_fetch (hv, "t", 1, 1)); int name = SvIV (*hv_fetch (hv, "name", 4, 1)); + if (name <= 0) + XSRETURN_EMPTY; + if (items < 5) { w = SvNV (*hv_fetch (hv, "w", 1, 1)); @@ -1695,7 +1701,7 @@ OUTPUT: RETVAL -void +SV * draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T) CODE: { @@ -1705,6 +1711,8 @@ smooth_key skey; int x, y, z; int last_name; + AV *missing = newAV (); + RETVAL = newRV_noinc ((SV *)missing); // thats current max. sorry. if (sw > 255) sw = 255; @@ -1722,7 +1730,7 @@ glBegin (GL_QUADS); - last_name = 0; + last_name = -1; mx += self->x; my += self->y; @@ -1767,21 +1775,26 @@ if (tile) { maptex tex = self->tex [tile]; - int px = (x + 1) * T - tex.w; - int py = (y + 1) * T - tex.h; + int px, py; // suppressing texture state switches here // is only moderately effective, but worth the extra effort if (last_name != tex.name) { if (!tex.name) - tex = self->tex [2]; /* missing, replace by noface */ + { + av_push (missing, newSViv (tile)); + tex = self->tex [2]; /* missing, replace by noface */ + } glEnd (); glBindTexture (GL_TEXTURE_2D, last_name = tex.name); glBegin (GL_QUADS); } + px = (x + 1) * T - tex.w; + py = (y + 1) * T - tex.h; + glTexCoord2f (0 , 0 ); glVertex2f (px , py ); glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h); glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h); @@ -1886,7 +1899,10 @@ if (last_name != tex.name) { if (!tex.name) - continue; // smoothing not yet available + { + av_push (missing, newSViv (skey->tile)); + continue; // smoothing not yet available + } glEnd (); glBindTexture (GL_TEXTURE_2D, last_name = tex.name); @@ -1957,6 +1973,8 @@ } } } + OUTPUT: + RETVAL void draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data) @@ -2259,56 +2277,87 @@ OUTPUT: RETVAL -void -close (CFPlus::RW self) - CODE: - SDL_RWclose (self); +# fails on win32: +# CFPlus.xs(2268) : error C2059: syntax error : '(' +#void +#close (CFPlus::RW self) +# CODE: +# (self->(close)) (self); MODULE = CFPlus PACKAGE = CFPlus::Channel PROTOTYPES: DISABLE -int -volume (CFPlus::Channel self, int volume) +CFPlus::Channel +find () CODE: - RETVAL = Mix_Volume (self, volume); +{ + RETVAL = Mix_GroupAvailable (-1); + + if (RETVAL < 0) + { + RETVAL = Mix_GroupOldest (-1); + + if (RETVAL < 0) + XSRETURN_UNDEF; + + Mix_HaltChannel (RETVAL); + } + + Mix_UnregisterAllEffects (RETVAL); + Mix_Volume (RETVAL, 128); +} OUTPUT: RETVAL +void +halt (CFPlus::Channel self) + CODE: + Mix_HaltChannel (self); + +void +expire (CFPlus::Channel self, int ticks = -1) + CODE: + Mix_ExpireChannel (self, ticks); + +void +fade_out (CFPlus::Channel self, int ticks = -1) + CODE: + Mix_FadeOutChannel (self, ticks); + int -unregister_all_effects (CFPlus::Channel self) +volume (CFPlus::Channel self, int volume) CODE: - RETVAL = Mix_UnregisterAllEffects (self); + RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128)); OUTPUT: RETVAL -int +void +unregister_all_effects (CFPlus::Channel self) + CODE: + Mix_UnregisterAllEffects (self); + +void set_panning (CFPlus::Channel self, int left, int right) CODE: - RETVAL = Mix_SetPanning (self, left, right); - OUTPUT: - RETVAL + left = CLAMP (left , 0, 255); + right = CLAMP (right, 0, 255); + Mix_SetPanning (self, left, right); -int +void set_distance (CFPlus::Channel self, int distance) CODE: - RETVAL = Mix_SetDistance (self, distance); - OUTPUT: - RETVAL + Mix_SetDistance (self, CLAMP (distance, 0, 255)); -int +void set_position (CFPlus::Channel self, int angle, int distance) CODE: - RETVAL = Mix_SetPosition (self, angle, distance); - OUTPUT: - RETVAL + Mix_SetPosition (self, angle, CLAMP (distance, 0, 255)); -int +void set_reverse_stereo (CFPlus::Channel self, int flip) CODE: - RETVAL = Mix_SetReverseStereo (self, flip); - OUTPUT: - RETVAL + Mix_SetReverseStereo (self, flip); MODULE = CFPlus PACKAGE = CFPlus::MixChunk @@ -2329,15 +2378,27 @@ int volume (CFPlus::MixChunk self, int volume = -1) CODE: + if (items > 1) + volume = CLAMP (volume, 0, 128); RETVAL = Mix_VolumeChunk (self, volume); OUTPUT: RETVAL CFPlus::Channel -play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) +play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1) CODE: +{ RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); - Mix_UnregisterAllEffects (RETVAL); + + if (RETVAL < 0) + XSRETURN_UNDEF; + + if (channel < 0) + { + Mix_UnregisterAllEffects (RETVAL); + Mix_Volume (RETVAL, 128); + } +} OUTPUT: RETVAL @@ -2347,16 +2408,16 @@ volume (int volume = -1) PROTOTYPE: ;$ CODE: + if (items > 0) + volume = CLAMP (volume, 0, 128); RETVAL = Mix_VolumeMusic (volume); OUTPUT: RETVAL -int +void fade_out (int ms) CODE: - RETVAL = Mix_FadeOutMusic (ms); - OUTPUT: - RETVAL + Mix_FadeOutMusic (ms); void halt () @@ -2382,12 +2443,10 @@ OUTPUT: RETVAL -int +void fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) CODE: - RETVAL = Mix_FadeInMusicPos (self, loops, ms, position); - OUTPUT: - RETVAL + Mix_FadeInMusicPos (self, loops, ms, position); MODULE = CFPlus PACKAGE = CFPlus::OpenGL