mind-shear/greed
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
greed/CODE/MODPLAY.C
archive 9bf82bf4fa as released 2014-12-12
2014-12-12 00:00:00 +00:00

483 lines
12 KiB
C
Raw Permalink Blame History

/* Copyright 1996 by Robert Morgan of Channel 7
Sound Interface */
#include <STDIO.H>
#include <STDLIB.H>
#include <STRING.H>
#include <IO.H>
#include "d_global.h"
#include "d_misc.h"
#include "d_disk.h"
#include "audio.h"
#include "import.h"
#include "d_video.h"
#include "protos.h"
#include "r_refdef.h"
#include "d_ints.h"
/**** CONSTANTS ****/
#define MAXEFFECTS 8
#define NUMTRACKS effecttracks
#define MAXCACHESIZE (MAXEFFECTS*2+4)
#define MAXSOUNDS 90
#define MAXSOUNDDIST 384
#define MSD (MAXSOUNDDIST<<FRACBITS)
#define DEFAULTVRDIST 157286
#define DEFAULTVRANGLE 4
/**** TYPES ****/
typedef struct cache_s
{
Sample *CSample; // sound effect data
int using; // number of tracks using this sample
int sfx; // sound effect number
int usage; // how many times this sample used
} cache_t;
/**** VARIABLES ****/
boolean MusicPresent, MusicPlaying, MusicSwapChannels;
SoundCard SC;
DSM *M;
int MusicError, EffectChan, CurrentChan, FXLump;
//int StaticChan;
int CacheSize;
int SampleX[MAXEFFECTS], SampleY[MAXEFFECTS], SampleVol[MAXEFFECTS],
SampleBal[MAXEFFECTS];
// int StaticX[MAXSTATIC], StaticY[MAXSTATIC], StaticS[MAXSTATIC];
int DVolume[MAXSOUNDDIST], MusicVol;
cache_t Cache[MAXCACHESIZE];
int CacheIndex[MAXCACHESIZE];
int effecttracks;
//int statictracks=0;
/**** FUNCTIONS ****/
void StopMusic(void)
{
int i;
if (MusicError)
return;
if (MusicPlaying)
{
if (!netmode)
for(i=MusicVol;i>0;i-=3) /* fade out */
{
if (i<0) i=0;
dSetMusicVolume(i);
Wait(1);
}
dStopMusic();
MusicPlaying=false;
dFreeModule(M);
}
if (netmode)
NetGetData();
}
void InitSound(void)
{
int i;
fixed_t s, sfrac;
boolean autodetect, noconfig;
MusicPresent=false;
dRegisterDrivers();
autodetect=false;
noconfig=false;
if (dLoadSetup(&SC,"SETUP.CFG")) /* load config file */
{
noconfig=true;
printf("Sound:\tSETUP.CFG not found\n");
printf("\tAuto-Detection=");
autodetect=dAutoDetect(&SC);
SC.ambientlight=2048; // load all defaults
SC.violence=true;
SC.animation=true;
SC.musicvol=100;
SC.sfxvol=128;
SC.ckeys[0]=scanbuttons[bt_run];
SC.ckeys[1]=scanbuttons[bt_jump];
SC.ckeys[2]=scanbuttons[bt_straf];
SC.ckeys[3]=scanbuttons[bt_fire];
SC.ckeys[4]=scanbuttons[bt_use];
SC.ckeys[5]=scanbuttons[bt_useitem];
SC.ckeys[6]=scanbuttons[bt_asscam];
SC.ckeys[7]=scanbuttons[bt_lookup];
SC.ckeys[8]=scanbuttons[bt_lookdown];
SC.ckeys[9]=scanbuttons[bt_centerview];
SC.ckeys[10]=scanbuttons[bt_slideleft];
SC.ckeys[11]=scanbuttons[bt_slideright];
SC.ckeys[12]=scanbuttons[bt_invleft];
SC.ckeys[13]=scanbuttons[bt_invright];
SC.inversepan=false;
SC.screensize=0;
SC.camdelay=35;
SC.effecttracks=4;
SC.mouse=1;
SC.joystick=0;
SC.chartype=0;
SC.socket=1234;
SC.numplayers=2;
SC.serplayers=1;
SC.com=1;
SC.rightbutton=bt_north;
SC.leftbutton=bt_fire;
SC.joybut1=bt_fire;
SC.joybut2=bt_straf;
strncpy(SC.dialnum," ",12);
strncpy(SC.netname," ",12);
SC.netmap=22;
SC.netdifficulty=2;
SC.mousesensitivity=32;
SC.turnspeed=8;
SC.turnaccel=2;
SC.vrhelmet=0;
SC.vrangle=DEFAULTVRANGLE;
SC.vrdist=DEFAULTVRDIST;
lighting=1;
changelight=SC.ambientlight;
if (autodetect)
{
printf("Failed\n");
MusicError=1;
return;
}
else printf("Success\n");
}
MusicSwapChannels=SC.inversepan;
scanbuttons[bt_run]=SC.ckeys[0];
scanbuttons[bt_jump]=SC.ckeys[1];
scanbuttons[bt_straf]=SC.ckeys[2];
scanbuttons[bt_fire]=SC.ckeys[3];
scanbuttons[bt_use]=SC.ckeys[4];
scanbuttons[bt_useitem]=SC.ckeys[5];
scanbuttons[bt_asscam]=SC.ckeys[6];
scanbuttons[bt_lookup]=SC.ckeys[7];
scanbuttons[bt_lookdown]=SC.ckeys[8];
scanbuttons[bt_centerview]=SC.ckeys[9];
scanbuttons[bt_slideleft]=SC.ckeys[10];
scanbuttons[bt_slideright]=SC.ckeys[11];
scanbuttons[bt_invleft]=SC.ckeys[12];
scanbuttons[bt_invright]=SC.ckeys[13];
lighting=1;
changelight=SC.ambientlight;
playerturnspeed=SC.turnspeed;
turnunit=SC.turnaccel;
effecttracks=SC.effecttracks;
if (SC.ID==ID_NONE)
{
MusicError=2;
return;
} /* report info */
else
{
if (noconfig==false) printf("Sound:");
printf("\tIRQ=%i DMA=%i Rate=%i\n",SC.IrqLine,SC.DmaChannel,SC.SampleRate);
}
printf("\tDriver=%s\n",SC.DriverName);
printf("\tInit=");
if (dInit(&SC)) /* initialize the card */
{
printf("Sound Card Init failure\n");
MusicError=3;
return;
}
atexit((void(*)(void))dDone);
printf("Success\n");
MusicPresent=true;
FXLump=CA_GetNamedNum("SOUNDEFFECTS")+1;
if (FXLump==-1)
MS_Error("InitSound: SOUNDEFFECTS lump not found in BLO file.");
if (SC.ID!=ID_GUS)
CacheSize=NUMTRACKS*2+4;
else
CacheSize=NUMTRACKS;
memset(Cache,0,sizeof(Cache));
for(i=0;i<NUMTRACKS;i++)
CacheIndex[i]=-1;
for(i=0;i<CacheSize;i++)
Cache[i].sfx=-1;
s=63<<FRACBITS;
sfrac=FIXEDDIV(s,MAXSOUNDDIST<<FRACBITS);
for(i=0;i<MAXSOUNDDIST;i++,s-=sfrac) /* compute volume table */
DVolume[i]=s>>FRACBITS;
SetVolumes(SC.musicvol,SC.sfxvol);
}
Sample *GetCache(int n,int chan)
{
int index, min, minindex;
chan-=M->Header.NumTracks;
index=0;
while (index<CacheSize && Cache[index].sfx!=n) index++; // look for duplicate
if (index==CacheSize)
{
min=0x7FFFFFFF;
minindex=0x7FFFFFFF;
for(index=0;index<CacheSize;index++)
if (Cache[index].using==0 && Cache[index].usage<min)
{
min=Cache[index].usage;
minindex=index;
}
if (minindex==0x7FFFFFFF) MS_Error("GetCache: No minimum Using");
index=minindex;
}
if (Cache[index].sfx==n)
{
Cache[index].using++;
CacheIndex[chan]=index;
if (Cache[index].usage<32) Cache[index].usage++; // have to limit (otherwise full of weapon sounds)
}
else
{
if (Cache[index].CSample) dFreeSample(Cache[index].CSample);
Cache[index].sfx=n;
lseek(cachehandle,infotable[FXLump+n].filepos,SEEK_SET);
Cache[index].CSample=dLoadSampleFile(cachehandle,infotable[FXLump+n].size);
if (Cache[index].CSample==NULL) MS_Error("GetCache: Error Loading WAV File: %i, %s",n,dErrorMsg[dError]);
CacheIndex[chan]=index;
Cache[index].using++;
Cache[index].usage=1;
}
return Cache[index].CSample;
}
void FreeCache(int chan)
{
chan-=M->Header.NumTracks;
if (CacheIndex[chan]>-1) Cache[CacheIndex[chan]].using--;
}
void PlaySong(char *sname,int pattern)
{
MHdr *P;
int format;
if (MusicError) return; /* stop other music first */
StopMusic();
if (sname[strlen(sname)-3]=='m' || sname[strlen(sname)-3]=='M')
format=FORM_MOD;
else
format=FORM_S3M;
if (!(M = dImportModule(sname,format)))
MS_Error("PlaySong: Error Loading S3M File: %s, %s",sname,dErrorMsg[dError]);
dSetupVoices(M->Header.NumTracks+NUMTRACKS,M->Header.MasterVolume);
dPlayMusic(M);
if (netmode)
NetGetData();
if (pattern)
{
P=dGetMusicStruc();
P->OrderPos=pattern;
P->PattRow=0;
P->BreakFlag=PB_JUMP;
}
SetVolumes(SC.musicvol,SC.sfxvol);
if (netmode)
NetGetData();
EffectChan=M->Header.NumTracks;
// StaticChan=EffectChan+effecttracks;
MusicPlaying=true;
}
void SoundEffect(int n,int variation,fixed_t x,fixed_t y)
{
int x1, y1, z, d1, Chan, vol;
fixed_t d, viewsin, viewcos;
Sample *s;
if (MusicError || SC.sfxvol==0) return;
x1=(x-player.x)>>FRACTILESHIFT; /* don't play if too far */
y1=(y-player.y)>>FRACTILESHIFT;
z=x1*x1 + y1*y1;
if (z>=MAXSOUNDDIST) return;
SampleX[CurrentChan]=x>>FRACTILESHIFT;
SampleY[CurrentChan]=y>>FRACTILESHIFT;
viewcos=costable[player.angle];
viewsin=sintable[player.angle]; /* compute left,right pan value */
d=-FIXEDMUL(y1<<FRACTILESHIFT,viewcos)-FIXEDMUL(x1<<FRACTILESHIFT,viewsin);
d=FIXEDDIV(d,MSD)*0x40;
if (MusicSwapChannels) d1=(d>>FRACBITS) + 0x40;
else d1=-(d>>FRACBITS) + 0x40;
if (d1<0) d1=0;
else if (d1>0x80) d1=0x80;
Chan=CurrentChan+EffectChan;
dStopVoice(Chan); // ok to stop old one now, we done
FreeCache(Chan);
s=GetCache(n,Chan);
dPlayVoice(Chan,s); /* play it */
vol=DVolume[z];
dSetVoiceVolume(Chan,vol); /* set new volume */
SampleVol[CurrentChan]=vol;
dSetVoiceBalance(Chan,d1); /* set new pan */
SampleBal[CurrentChan]=d1;
if (midgetmode)
dSetVoiceFreq(Chan,rint((float)s->Rate * 2 * ((float)((MS_RndT()&variation)+100-(variation>>1))/(float)100)));
else
dSetVoiceFreq(Chan,rint((float)s->Rate * ((float)((MS_RndT()&variation)+100-(variation>>1))/(float)100)));
++CurrentChan;
if (CurrentChan==effecttracks) CurrentChan=0; /* go to next channel */
}
void StaticSoundEffect(int n,fixed_t x,fixed_t y)
{
/* int x1, y1, z1, d1, i, x2, y2, z2, Chan;
fixed_t d, viewsin, viewcos;
if (MusicError) return;
if (SC.sfxvol==0) return;
x1=(x-player.x)>>FRACTILESHIFT; // don't play if too far
y1=(y-player.y)>>FRACTILESHIFT;
z1=x1*x1 + y1*y1;
if (z1>=MAXSOUNDDIST) return;
Chan=StaticChan;
for(i=0;i<statictracks;i++,Chan++)
{
x2=(StaticX[i]-player.x)>>FRACTILESHIFT;
y2=(StaticY[i]-player.y)>>FRACTILESHIFT;
z2=x2*x2+y2*y2;
if (z1<z2)
{
StaticX[i]=x>>FRACTILESHIFT;
StaticY[i]=y>>FRACTILESHIFT;
StaticS[i]=n;
viewcos=costable[player.angle];
viewsin=sintable[player.angle]; // compute left,right pan value
d=-FIXEDMUL(y1<<FRACTILESHIFT,viewcos)-FIXEDMUL(x1<<FRACTILESHIFT,viewsin);
d=FIXEDDIV(d,MSD)*0x40;
if (MusicSwapChannels) d1=(d>>FRACBITS) + 0x40;
else d1=-(d>>FRACBITS) + 0x40;
if (d1<0) d1=0;
else if (d1>0x80) d1=0x80;
dStopVoice(Chan); // ok to stop old one now, we done
FreeCache(Chan);
dPlayVoice(Chan,GetCache(n,Chan)); // play it
dSetVoiceVolume(Chan,DVolume[z1]); // set new volume
dSetVoiceBalance(Chan,d1); // set new pan
break;
}
} */
}
void UpdateSound(void)
{
int x1, y1, z, i, px, py, d1, Chan, vol;
fixed_t d, viewsin, viewcos;
if (MusicError) return;
if (MusicPlaying)
{
if (dGetMusicStatus()==PS_STOPPED)
dPlayMusic(M);
}
px=player.x>>FRACTILESHIFT; /* precomputations */
py=player.y>>FRACTILESHIFT;
viewcos=costable[player.angle];
viewsin=sintable[player.angle];
Chan=EffectChan;
for(i=0;i<effecttracks;i++,Chan++)
{
x1=SampleX[i]-px;
y1=SampleY[i]-py;
z=x1*x1 + y1*y1;
if (z>=MAXSOUNDDIST || z<0) /* check for too far */
{
if (SampleVol[i]!=0)
{
dSetVoiceVolume(Chan,0);
SampleVol[i]=0;
}
continue;
}
else
{
vol=DVolume[z];
if (SampleVol[i]!=vol)
{
dSetVoiceVolume(Chan,vol); /* reset volume */
SampleVol[i]=vol;
}
}
d=-FIXEDMUL(y1<<FRACTILESHIFT,viewcos)-FIXEDMUL(x1<<FRACTILESHIFT,viewsin);
d=FIXEDDIV(d,MSD)*0x40;
if (MusicSwapChannels) d1=(d>>FRACBITS) + 0x40;
else d1=-(d>>FRACBITS) + 0x40;
if (d1<0) d1=0;
else if (d1>0x80) d1=0x80;
if (SampleBal[i]!=d1)
{
dSetVoiceBalance(Chan,d1); /* reset pan value */
SampleBal[i]=d1;
}
}
/* Chan=StaticChan;
for(i=0;i<statictracks;i++,Chan++)
{
if (dGetVoiceStatus(Chan)==PS_STOPPED)
{
StaticX[i]=100;
StaticY[i]=100;
dStopVoice(Chan);
continue;
}
x1=StaticX[i]-px;
y1=StaticY[i]-py;
z=x1*x1 + y1*y1;
if (z>=MAXSOUNDDIST || z<0) // check for too far
{
dSetVoiceVolume(Chan,0);
continue;
}
else dSetVoiceVolume(Chan,DVolume[z]); // reset volume
d=-FIXEDMUL(y1<<FRACTILESHIFT,viewcos)-FIXEDMUL(x1<<FRACTILESHIFT,viewsin);
d=FIXEDDIV(d,MSD)*0x40;
if (MusicSwapChannels) d1=(d>>FRACBITS) + 0x40;
else d1=-(d>>FRACBITS) + 0x40;
if (d1<0) d1=0;
else if (d1>0x80) d1=0x80;
dSetVoiceBalance(Chan,d1); // reset pan value
} */
}
void SetVolumes(int music,int fx)
{
if (MusicError)
return;
if (music>255) music=255;
dSetMusicVolume(music);
MusicVol=music;
if (fx>255) fx=255;
dSetSoundVolume(fx);
SC.musicvol=music;
SC.sfxvol=fx;
}
Reference in a new issue View git blame Copy permalink