diff options
Diffstat (limited to 'source/snd_mem.c')
| -rw-r--r-- | source/snd_mem.c | 479 |
1 files changed, 479 insertions, 0 deletions
diff --git a/source/snd_mem.c b/source/snd_mem.c new file mode 100644 index 0000000..3d90d39 --- /dev/null +++ b/source/snd_mem.c @@ -0,0 +1,479 @@ +/* +Copyright (C) 1997-2001 Id Software, Inc. + +This program is free software; you can redistribute it and/or +modify it under the terms of the GNU General Public License +as published by the Free Software Foundation; either version 2 +of the License, or (at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +*/ +// snd_mem.c: sound caching + +#include "cl_local.h" +#include "snd_local.h" + +/* +================ +ResampleSfx + +code from QFusion (thanks Vic) +================ +*/ +static void ResampleSfx (sfx_t *sfx, byte *data) +{ + int i, outcount, srcsample, srclength, samplefrac, fracstep; + sfxcache_t *sc = sfx->cache; + + // this is usually 0.5 (128), 1 (256), or 2 (512) + fracstep = ((double) sc->speed / (double) dma.speed) * 256.0; + + srclength = sc->length * sc->channels; + outcount = (double) sc->length * (double) dma.speed / (double) sc->speed; + + sc->length = outcount; + if (sc->loopstart != -1) + sc->loopstart = (double) sc->loopstart * (double) dma.speed / (double) sc->speed; + + sc->speed = dma.speed; + +// resample / decimate to the current source rate + if (fracstep == 256) + { + if (sc->width == 1) // 8bit + for (i = 0;i < srclength;i++) + ((signed char *)sc->data)[i] = ((unsigned char *)data)[i] - 128; + else + for (i = 0;i < srclength;i++) + ((short *)sc->data)[i] = LittleShort (((short *)data)[i]); + } + else + { +// general case + Com_DPrintf("ResampleSfx: resampling sound %s\n", sfx->name); + samplefrac = 0; + + if ((fracstep & 255) == 0) // skipping points on perfect multiple + { + srcsample = 0; + fracstep >>= 8; + if (sc->width == 2) + { + short *out = (void *)sc->data, *in = (void *)data; + if (sc->channels == 2) + { + fracstep <<= 1; + for (i=0 ; i<outcount ; i++) + { + *out++ = LittleShort (in[srcsample ]); + *out++ = LittleShort (in[srcsample+1]); + srcsample += fracstep; + } + } + else + { + for (i=0 ; i<outcount ; i++) + { + *out++ = LittleShort (in[srcsample ]); + srcsample += fracstep; + } + } + } + else + { + signed char *out = (void *)sc->data; + unsigned char *in = (void *)data; + + if (sc->channels == 2) + { + fracstep <<= 1; + for (i=0 ; i<outcount ; i++) + { + *out++ = in[srcsample ] - 128; + *out++ = in[srcsample+1] - 128; + srcsample += fracstep; + } + } + else + { + for (i=0 ; i<outcount ; i++) + { + *out++ = in[srcsample ] - 128; + srcsample += fracstep; + } + } + } + } + else + { + int sample; + int a, b; + if (sc->width == 2) + { + short *out = (void *)sc->data, *in = (void *)data; + + if (sc->channels == 2) + { + for (i=0 ; i<outcount ; i++) + { + srcsample = (samplefrac >> 8) << 1; + a = in[srcsample ]; + if (srcsample+2 >= srclength) + b = 0; + else + b = in[srcsample+2]; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (short) sample; + a = in[srcsample+1]; + if (srcsample+2 >= srclength) + b = 0; + else + b = in[srcsample+3]; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (short) sample; + samplefrac += fracstep; + } + } + else + { + for (i=0 ; i<outcount ; i++) + { + srcsample = samplefrac >> 8; + a = in[srcsample ]; + if (srcsample+1 >= srclength) + b = 0; + else + b = in[srcsample+1]; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (short) sample; + samplefrac += fracstep; + } + } + } + else + { + signed char *out = (void *)sc->data; + unsigned char *in = (void *)data; + if (sc->channels == 2) + { + for (i=0 ; i<outcount ; i++) + { + srcsample = (samplefrac >> 8) << 1; + a = (int) in[srcsample ] - 128; + if (srcsample+2 >= srclength) + b = 0; + else + b = (int) in[srcsample+2] - 128; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (signed char) sample; + a = (int) in[srcsample+1] - 128; + if (srcsample+2 >= srclength) + b = 0; + else + b = (int) in[srcsample+3] - 128; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (signed char) sample; + samplefrac += fracstep; + } + } + else + { + for (i=0 ; i<outcount ; i++) + { + srcsample = samplefrac >> 8; + a = (int) in[srcsample ] - 128; + if (srcsample+1 >= srclength) + b = 0; + else + b = (int) in[srcsample+1] - 128; + sample = (((b - a) * (samplefrac & 255)) >> 8) + a; + *out++ = (signed char) sample; + samplefrac += fracstep; + } + } + } + } + } +} + +/* +=============================================================================== + +WAV loading + +=============================================================================== +*/ + +typedef struct wavinfo_s { + int rate; + int width; + int channels; + int loopstart; + int samples; +} wavinfo_t; + +static byte *data_p; +static byte *iff_end; +static byte *iff_data; +static uint32 iff_chunk_len; + +static int GetLittleShort(void) { + int val; + + if( data_p + 2 > iff_end ) { + return -1; + } + + val = data_p[0]; + val |= data_p[1] << 8; + data_p += 2; + return val; +} + +static int GetLittleLong(void) { + int val; + + if( data_p + 4 > iff_end ) { + return -1; + } + + val = data_p[0]; + val |= data_p[1] << 8; + val |= data_p[2] << 16; + val |= data_p[3] << 24; + data_p += 4; + return val; +} + +static void FindNextChunk( uint32 name ) { + uint32 chunk, length; + + while( 1 ) { + if( data_p >= iff_end ) { + // didn't find the chunk + data_p = NULL; + return; + } + + chunk = GetLittleLong(); + iff_chunk_len = GetLittleLong(); + if( data_p + iff_chunk_len > iff_end ) { + Com_DPrintf( "FindNextChunk: oversize chunk %#x\n", chunk ); + data_p = NULL; + return; + } + if( chunk == name ) { + return; + } + length = ( iff_chunk_len + 1 ) & ~1; + data_p += length; + } +} + +static void FindChunk( uint32 name ) { + data_p = iff_data; + FindNextChunk( name ); +} + +#define TAG_RIFF MakeLong( 'R', 'I', 'F', 'F' ) +#define TAG_WAVE MakeLong( 'W', 'A', 'V', 'E' ) +#define TAG_fmt MakeLong( 'f', 'm', 't', ' ' ) +#define TAG_cue MakeLong( 'c', 'u', 'e', ' ' ) +#define TAG_LIST MakeLong( 'L', 'I', 'S', 'T' ) +#define TAG_MARK MakeLong( 'M', 'A', 'R', 'K' ) +#define TAG_data MakeLong( 'd', 'a', 't', 'a' ) + +/* +============ +GetWavinfo +============ +*/ +static qboolean GetWavinfo( const char *name, wavinfo_t *info ) { + int format; + int samples, width; + uint32 chunk; + + memset (info, 0, sizeof(*info)); + +// find "RIFF" chunk + FindChunk( TAG_RIFF ); + if( !data_p ) { + Com_DPrintf( "%s has missing/invalid RIFF chunk\n", name ); + return qfalse; + } + chunk = GetLittleLong(); + if( chunk != TAG_WAVE ) { + Com_DPrintf( "%s has missing/invalid WAVE chunk\n", name ); + return qfalse; + } + + iff_data = data_p; + +// get "fmt " chunk + FindChunk( TAG_fmt ); + if( !data_p ) { + Com_DPrintf("%s has missing/invalid fmt chunk\n", name ); + return qfalse; + } + format = GetLittleShort(); + if (format != 1) { + Com_DPrintf("%s has non-Microsoft PCM format\n", name); + return qfalse; + } + + info->channels = GetLittleShort(); + if (info->channels != 1 && info->channels != 2) { + Com_DPrintf( "%s has bad number of channels\n", name ); + return qfalse; + } + + info->rate = GetLittleLong(); + if( info->rate <= 0 ) { + Com_DPrintf( "%s has bad rate\n", name ); + return qfalse; + } + + data_p += 4+2; + + width = GetLittleShort(); + switch( width ) { + case 8: + info->width = 1; + break; + case 16: + info->width = 2; + break; + default: + Com_DPrintf( "%s has bad width\n", name ); + return qfalse; + } + +// get cue chunk + FindChunk( TAG_cue ); + if( data_p ) { + data_p += 24; + info->loopstart = GetLittleLong(); + + FindNextChunk( TAG_LIST ); + if( data_p ) { + data_p += 20; + chunk = GetLittleLong(); + if ( chunk == TAG_MARK ) { + // this is not a proper parse, but it works with cooledit... + data_p += 16; + samples = GetLittleLong(); // samples in loop + info->samples = info->loopstart + samples; + } + } + } else { + info->loopstart = -1; + } + +// find data chunk + FindChunk( TAG_data ); + if( !data_p ) { + Com_DPrintf( "%s has missing/invalid data chunk\n", name ); + return qfalse; + } + + samples = iff_chunk_len / info->width; + if( !samples ) { + Com_DPrintf( "%s has zero length\n", name ); + return qfalse; + } + + if ( info->samples ) { + if (samples < info->samples) { + Com_DPrintf( "%s has bad loop length\n", name); + return qfalse; + } + } else { + info->samples = samples; + } + + return qtrue; +} + +/* +============== +S_LoadSound +============== +*/ +sfxcache_t *S_LoadSound (sfx_t *s) +{ + char namebuffer[MAX_QPATH]; + byte *data; + wavinfo_t info; + int len; + float stepscale; + sfxcache_t *sc; + int size; + char *name; + + if (s->name[0] == '*') + return NULL; + +// see if still in memory + sc = s->cache; + if (sc) + return sc; + +// load it in + if (s->truename) + name = s->truename; + else + name = s->name; + + if (name[0] == '#') + Q_strncpyz( namebuffer, name + 1, sizeof( namebuffer ) ); + else + Com_sprintf (namebuffer, sizeof(namebuffer), "sound/%s", name); + + size = FS_LoadFile (namebuffer, (void **)&data); + + if (!data) + { + Com_DPrintf ("Couldn't load %s\n", namebuffer); + return NULL; + } + + iff_data = data; + iff_end = data + size; + if( !GetWavinfo( name, &info ) ) { + FS_FreeFile (data); + return NULL; + } + + stepscale = ( float )info.rate / dma.speed; + len = info.samples / stepscale; + if( !len ) { + Com_DPrintf( "%s resampled to zero length\n", name ); + FS_FreeFile (data); + return NULL; + } + + sc = s->cache = Z_TagMalloc( len * info.width + sizeof( sfxcache_t ) - 1, + TAG_SOUND ); + + sc->length = info.samples / info.channels; + sc->loopstart = info.loopstart; + sc->speed = info.rate; + sc->width = info.width; + sc->channels = info.channels; + + ResampleSfx( s, data_p ); + + FS_FreeFile (data); + + return sc; +} + |