123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498 |
- /*
- 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_mix.c -- portable code to mix sounds for snd_dma.c
- #include "client.h"
- #include "snd_loc.h"
- #define PAINTBUFFER_SIZE 2048
- portable_samplepair_t paintbuffer[PAINTBUFFER_SIZE];
- int snd_scaletable[32][256];
- int *snd_p, snd_linear_count, snd_vol;
- short *snd_out;
- void S_WriteLinearBlastStereo16 (void);
- #if !(defined __linux__ && defined __i386__)
- #if !id386
- void S_WriteLinearBlastStereo16 (void)
- {
- int i;
- int val;
- for (i=0 ; i<snd_linear_count ; i+=2)
- {
- val = snd_p[i]>>8;
- if (val > 0x7fff)
- snd_out[i] = 0x7fff;
- else if (val < (short)0x8000)
- snd_out[i] = (short)0x8000;
- else
- snd_out[i] = val;
- val = snd_p[i+1]>>8;
- if (val > 0x7fff)
- snd_out[i+1] = 0x7fff;
- else if (val < (short)0x8000)
- snd_out[i+1] = (short)0x8000;
- else
- snd_out[i+1] = val;
- }
- }
- #else
- __declspec( naked ) void S_WriteLinearBlastStereo16 (void)
- {
- __asm {
- push edi
- push ebx
- mov ecx,ds:dword ptr[snd_linear_count]
- mov ebx,ds:dword ptr[snd_p]
- mov edi,ds:dword ptr[snd_out]
- LWLBLoopTop:
- mov eax,ds:dword ptr[-8+ebx+ecx*4]
- sar eax,8
- cmp eax,07FFFh
- jg LClampHigh
- cmp eax,0FFFF8000h
- jnl LClampDone
- mov eax,0FFFF8000h
- jmp LClampDone
- LClampHigh:
- mov eax,07FFFh
- LClampDone:
- mov edx,ds:dword ptr[-4+ebx+ecx*4]
- sar edx,8
- cmp edx,07FFFh
- jg LClampHigh2
- cmp edx,0FFFF8000h
- jnl LClampDone2
- mov edx,0FFFF8000h
- jmp LClampDone2
- LClampHigh2:
- mov edx,07FFFh
- LClampDone2:
- shl edx,16
- and eax,0FFFFh
- or edx,eax
- mov ds:dword ptr[-4+edi+ecx*2],edx
- sub ecx,2
- jnz LWLBLoopTop
- pop ebx
- pop edi
- ret
- }
- }
- #endif
- #endif
- void S_TransferStereo16 (unsigned long *pbuf, int endtime)
- {
- int lpos;
- int lpaintedtime;
-
- snd_p = (int *) paintbuffer;
- lpaintedtime = paintedtime;
- while (lpaintedtime < endtime)
- {
- // handle recirculating buffer issues
- lpos = lpaintedtime & ((dma.samples>>1)-1);
- snd_out = (short *) pbuf + (lpos<<1);
- snd_linear_count = (dma.samples>>1) - lpos;
- if (lpaintedtime + snd_linear_count > endtime)
- snd_linear_count = endtime - lpaintedtime;
- snd_linear_count <<= 1;
- // write a linear blast of samples
- S_WriteLinearBlastStereo16 ();
- snd_p += snd_linear_count;
- lpaintedtime += (snd_linear_count>>1);
- }
- }
- /*
- ===================
- S_TransferPaintBuffer
- ===================
- */
- void S_TransferPaintBuffer(int endtime)
- {
- int out_idx;
- int count;
- int out_mask;
- int *p;
- int step;
- int val;
- unsigned long *pbuf;
- pbuf = (unsigned long *)dma.buffer;
- if (s_testsound->value)
- {
- int i;
- int count;
- // write a fixed sine wave
- count = (endtime - paintedtime);
- for (i=0 ; i<count ; i++)
- paintbuffer[i].left = paintbuffer[i].right = sin((paintedtime+i)*0.1)*20000*256;
- }
- if (dma.samplebits == 16 && dma.channels == 2)
- { // optimized case
- S_TransferStereo16 (pbuf, endtime);
- }
- else
- { // general case
- p = (int *) paintbuffer;
- count = (endtime - paintedtime) * dma.channels;
- out_mask = dma.samples - 1;
- out_idx = paintedtime * dma.channels & out_mask;
- step = 3 - dma.channels;
- if (dma.samplebits == 16)
- {
- short *out = (short *) pbuf;
- while (count--)
- {
- val = *p >> 8;
- p+= step;
- if (val > 0x7fff)
- val = 0x7fff;
- else if (val < (short)0x8000)
- val = (short)0x8000;
- out[out_idx] = val;
- out_idx = (out_idx + 1) & out_mask;
- }
- }
- else if (dma.samplebits == 8)
- {
- unsigned char *out = (unsigned char *) pbuf;
- while (count--)
- {
- val = *p >> 8;
- p+= step;
- if (val > 0x7fff)
- val = 0x7fff;
- else if (val < (short)0x8000)
- val = (short)0x8000;
- out[out_idx] = (val>>8) + 128;
- out_idx = (out_idx + 1) & out_mask;
- }
- }
- }
- }
- /*
- ===============================================================================
- CHANNEL MIXING
- ===============================================================================
- */
- void S_PaintChannelFrom8 (channel_t *ch, sfxcache_t *sc, int endtime, int offset);
- void S_PaintChannelFrom16 (channel_t *ch, sfxcache_t *sc, int endtime, int offset);
- void S_PaintChannels(int endtime)
- {
- int i;
- int end;
- channel_t *ch;
- sfxcache_t *sc;
- int ltime, count;
- playsound_t *ps;
- snd_vol = s_volume->value*256;
- //Com_Printf ("%i to %i\n", paintedtime, endtime);
- while (paintedtime < endtime)
- {
- // if paintbuffer is smaller than DMA buffer
- end = endtime;
- if (endtime - paintedtime > PAINTBUFFER_SIZE)
- end = paintedtime + PAINTBUFFER_SIZE;
- // start any playsounds
- while (1)
- {
- ps = s_pendingplays.next;
- if (ps == &s_pendingplays)
- break; // no more pending sounds
- if (ps->begin <= paintedtime)
- {
- S_IssuePlaysound (ps);
- continue;
- }
- if (ps->begin < end)
- end = ps->begin; // stop here
- break;
- }
- // clear the paint buffer
- if (s_rawend < paintedtime)
- {
- // Com_Printf ("clear\n");
- memset(paintbuffer, 0, (end - paintedtime) * sizeof(portable_samplepair_t));
- }
- else
- { // copy from the streaming sound source
- int s;
- int stop;
- stop = (end < s_rawend) ? end : s_rawend;
- for (i=paintedtime ; i<stop ; i++)
- {
- s = i&(MAX_RAW_SAMPLES-1);
- paintbuffer[i-paintedtime] = s_rawsamples[s];
- }
- // if (i != end)
- // Com_Printf ("partial stream\n");
- // else
- // Com_Printf ("full stream\n");
- for ( ; i<end ; i++)
- {
- paintbuffer[i-paintedtime].left =
- paintbuffer[i-paintedtime].right = 0;
- }
- }
- // paint in the channels.
- ch = channels;
- for (i=0; i<MAX_CHANNELS ; i++, ch++)
- {
- ltime = paintedtime;
-
- while (ltime < end)
- {
- if (!ch->sfx || (!ch->leftvol && !ch->rightvol) )
- break;
- // max painting is to the end of the buffer
- count = end - ltime;
- // might be stopped by running out of data
- if (ch->end - ltime < count)
- count = ch->end - ltime;
-
- sc = S_LoadSound (ch->sfx);
- if (!sc)
- break;
- if (count > 0 && ch->sfx)
- {
- if (sc->width == 1)// FIXME; 8 bit asm is wrong now
- S_PaintChannelFrom8(ch, sc, count, ltime - paintedtime);
- else
- S_PaintChannelFrom16(ch, sc, count, ltime - paintedtime);
-
- ltime += count;
- }
- // if at end of loop, restart
- if (ltime >= ch->end)
- {
- if (ch->autosound)
- { // autolooping sounds always go back to start
- ch->pos = 0;
- ch->end = ltime + sc->length;
- }
- else if (sc->loopstart >= 0)
- {
- ch->pos = sc->loopstart;
- ch->end = ltime + sc->length - ch->pos;
- }
- else
- { // channel just stopped
- ch->sfx = NULL;
- }
- }
- }
-
- }
- // transfer out according to DMA format
- S_TransferPaintBuffer(end);
- paintedtime = end;
- }
- }
- void S_InitScaletable (void)
- {
- int i, j;
- int scale;
- s_volume->modified = false;
- for (i=0 ; i<32 ; i++)
- {
- scale = i * 8 * 256 * s_volume->value;
- for (j=0 ; j<256 ; j++)
- snd_scaletable[i][j] = ((signed char)j) * scale;
- }
- }
- #if !(defined __linux__ && defined __i386__)
- #if !id386
- void S_PaintChannelFrom8 (channel_t *ch, sfxcache_t *sc, int count, int offset)
- {
- int data;
- int *lscale, *rscale;
- unsigned char *sfx;
- int i;
- portable_samplepair_t *samp;
- if (ch->leftvol > 255)
- ch->leftvol = 255;
- if (ch->rightvol > 255)
- ch->rightvol = 255;
-
- lscale = snd_scaletable[ ch->leftvol >> 11];
- rscale = snd_scaletable[ ch->rightvol >> 11];
- sfx = (signed char *)sc->data + ch->pos;
- samp = &paintbuffer[offset];
- for (i=0 ; i<count ; i++, samp++)
- {
- data = sfx[i];
- samp->left += lscale[data];
- samp->right += rscale[data];
- }
-
- ch->pos += count;
- }
- #else
- __declspec( naked ) void S_PaintChannelFrom8 (channel_t *ch, sfxcache_t *sc, int count, int offset)
- {
- __asm {
- push esi
- push edi
- push ebx
- push ebp
- mov ebx,ds:dword ptr[4+16+esp]
- mov esi,ds:dword ptr[8+16+esp]
- mov eax,ds:dword ptr[4+ebx]
- mov edx,ds:dword ptr[8+ebx]
- cmp eax,255
- jna LLeftSet
- mov eax,255
- LLeftSet:
- cmp edx,255
- jna LRightSet
- mov edx,255
- LRightSet:
- and eax,0F8h
- add esi,20
- and edx,0F8h
- mov edi,ds:dword ptr[16+ebx]
- mov ecx,ds:dword ptr[12+16+esp]
- add esi,edi
- shl eax,7
- add edi,ecx
- shl edx,7
- mov ds:dword ptr[16+ebx],edi
- add eax,offset snd_scaletable
- add edx,offset snd_scaletable
- sub ebx,ebx
- mov bl,ds:byte ptr[-1+esi+ecx*1]
- test ecx,1
- jz LMix8Loop
- mov edi,ds:dword ptr[eax+ebx*4]
- mov ebp,ds:dword ptr[edx+ebx*4]
- add edi,ds:dword ptr[paintbuffer+0-8+ecx*8]
- add ebp,ds:dword ptr[paintbuffer+4-8+ecx*8]
- mov ds:dword ptr[paintbuffer+0-8+ecx*8],edi
- mov ds:dword ptr[paintbuffer+4-8+ecx*8],ebp
- mov bl,ds:byte ptr[-2+esi+ecx*1]
- dec ecx
- jz LDone
- LMix8Loop:
- mov edi,ds:dword ptr[eax+ebx*4]
- mov ebp,ds:dword ptr[edx+ebx*4]
- add edi,ds:dword ptr[paintbuffer+0-8+ecx*8]
- add ebp,ds:dword ptr[paintbuffer+4-8+ecx*8]
- mov bl,ds:byte ptr[-2+esi+ecx*1]
- mov ds:dword ptr[paintbuffer+0-8+ecx*8],edi
- mov ds:dword ptr[paintbuffer+4-8+ecx*8],ebp
- mov edi,ds:dword ptr[eax+ebx*4]
- mov ebp,ds:dword ptr[edx+ebx*4]
- mov bl,ds:byte ptr[-3+esi+ecx*1]
- add edi,ds:dword ptr[paintbuffer+0-8*2+ecx*8]
- add ebp,ds:dword ptr[paintbuffer+4-8*2+ecx*8]
- mov ds:dword ptr[paintbuffer+0-8*2+ecx*8],edi
- mov ds:dword ptr[paintbuffer+4-8*2+ecx*8],ebp
- sub ecx,2
- jnz LMix8Loop
- LDone:
- pop ebp
- pop ebx
- pop edi
- pop esi
- ret
- }
- }
- #endif
- #endif
- void S_PaintChannelFrom16 (channel_t *ch, sfxcache_t *sc, int count, int offset)
- {
- int data;
- int left, right;
- int leftvol, rightvol;
- signed short *sfx;
- int i;
- portable_samplepair_t *samp;
- leftvol = ch->leftvol*snd_vol;
- rightvol = ch->rightvol*snd_vol;
- sfx = (signed short *)sc->data + ch->pos;
- samp = &paintbuffer[offset];
- for (i=0 ; i<count ; i++, samp++)
- {
- data = sfx[i];
- left = (data * leftvol)>>8;
- right = (data * rightvol)>>8;
- samp->left += left;
- samp->right += right;
- }
- ch->pos += count;
- }
|