1 files changed, 608 insertions, 0 deletions

diff --git a/apps/plugins/doom/s_sound.c b/apps/plugins/doom/s_sound.c
new file mode 100644
index 0000000000..c8ed7b2839
--- /dev/null
+++ b/apps/plugins/doom/s_sound.c
@@ -0,0 +1,608 @@
+/* Emacs style mode select   -*- C++ -*-
+ *-----------------------------------------------------------------------------
+ *
+ *
+ *  PrBoom a Doom port merged with LxDoom and LSDLDoom
+ *  based on BOOM, a modified and improved DOOM engine
+ *  Copyright (C) 1999 by
+ *  id Software, Chi Hoang, Lee Killough, Jim Flynn, Rand Phares, Ty Halderman
+ *  Copyright (C) 1999-2000 by
+ *  Jess Haas, Nicolas Kalkhof, Colin Phipps, Florian Schulze
+ *
+ *  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.
+ *
+ * DESCRIPTION:  Platform-independent sound code
+ *
+ *-----------------------------------------------------------------------------*/
+
+#include "i_system.h"
+#include "i_sound.h"
+#include "sounds.h"
+#include "s_sound.h"
+
+#include "z_zone.h"
+#include "m_random.h"
+#include "w_wad.h"
+#include "d_main.h"
+#include "doomdef.h"
+#include "r_main.h"
+
+#include "doomstat.h"
+
+#include "rockmacros.h"
+
+// when to clip out sounds
+// Does not fit the large outdoor areas.
+#define S_CLIPPING_DIST (1200<<FRACBITS)
+
+// Distance tp origin when sounds should be maxed out.
+// This should relate to movement clipping resolution
+// (see BLOCKMAP handling).
+// Originally: (200*0x10000).
+
+#define S_CLOSE_DIST  (160*0x10000)
+#define S_ATTENUATOR  ((S_CLIPPING_DIST-S_CLOSE_DIST)>>FRACBITS)
+
+// Adjustable by menu.
+#define NORM_PITCH       128
+#define NORM_PRIORITY  64
+#define NORM_SEP  128
+#define S_STEREO_SWING (96<<FRACBITS)
+
+typedef struct
+{
+   sfxinfo_t *sfxinfo;  // sound information (if null, channel avail.)
+   void *origin;        // origin of sound
+   int handle;          // handle of the sound being played
+   int is_pickup;       // killough 4/25/98: whether sound is a player's weapon
+} channel_t;
+
+// the set of channels available
+static channel_t* channels;
+
+// These are not used, but should be (menu).
+// Maximum volume of a sound effect.
+// Internal default is max out of 0-15.
+int   snd_SfxVolume = 15;
+
+// Maximum volume of music. Useless so far.
+int   snd_MusicVolume = 15;
+
+// whether songs are mus_paused
+static boolean  mus_paused;
+
+// music currently being played
+static musicinfo_t* mus_playing=0;
+
+// following is set
+//  by the defaults code in M_misc:
+// number of channels available
+int default_numChannels;
+int numChannels;
+
+//jff 3/17/98 to keep track of last IDMUS specified music num
+int idmusnum;
+
+//
+// Internals.
+//
+
+void S_StopChannel(int cnum);
+
+int S_AdjustSoundParams(mobj_t *listener, mobj_t *source,
+                        int *vol, int *sep, int *pitch);
+
+static int S_getChannel(void *origin, sfxinfo_t *sfxinfo, int is_pickup);
+
+//
+// Initializes sound stuff, including volume
+// Sets channels, SFX and music volume,
+//  allocates channel buffer, sets S_sfx lookup.
+//
+
+void S_Init(int sfxVolume,int musicVolume )
+{
+   //jff 1/22/98 skip sound init if sound not enabled
+   numChannels = default_numChannels;
+   if (!nosfxparm)
+   {
+      int  i;
+
+      printf("S_Init: default sfx volume %d\n", sfxVolume);
+
+      // Whatever these did with DMX, these are rather dummies now.
+      I_SetChannels();
+
+      S_SetSfxVolume(sfxVolume);
+
+      S_SetMusicVolume(musicVolume);
+
+      // Allocating the internal channels for mixing
+      // (the maximum numer of sounds rendered
+      // simultaneously) within zone memory.
+      // CPhipps - calloc
+      channels = (channel_t *) calloc(numChannels,sizeof(channel_t));
+
+      // no sounds are playing, and they are not mus_paused
+      mus_paused = 0;
+
+      // Note that sounds have not been cached (yet).
+      for (i=1 ; i<NUMSFX ; i++)
+         S_sfx[i].lumpnum = S_sfx[i].usefulness = -1;
+   }
+}
+
+//
+// Per level startup code.
+// Kills playing sounds at start of level,
+//  determines music if any, changes music.
+//
+void S_Start(void)
+{
+   int cnum, mnum;
+
+   if (!nosfxparm)
+   {
+      // kill all playing sounds at start of level
+      //  (trust me - a good idea)
+      for (cnum=0 ; cnum<numChannels ; cnum++)
+         if (channels[cnum].sfxinfo)
+            S_StopChannel(cnum);
+
+      // start new music for the level
+      mus_paused = 0;
+
+      if (gamemode == commercial)
+         mnum = mus_runnin + gamemap - 1;
+      else
+      {
+         int spmus[]=      // Song - Who? - Where?
+            {
+               mus_e3m4,   // American    e4m1
+               mus_e3m2,   // Romero      e4m2
+               mus_e3m3,   // Shawn       e4m3
+               mus_e1m5,   // American    e4m4
+               mus_e2m7,   // Tim         e4m5
+               mus_e2m4,   // Romero      e4m6
+               mus_e2m6,   // J.Anderson  e4m7 CHIRON.WAD
+               mus_e2m5,   // Shawn       e4m8
+               mus_e1m9    // Tim         e4m9
+            };
+
+         if (gameepisode < 4)
+            mnum = mus_e1m1 + (gameepisode-1)*9 + gamemap-1;
+         else
+            mnum = spmus[gamemap-1];
+      }
+
+      S_ChangeMusic(mnum, true);
+   }
+}
+
+void S_StartSoundAtVolume(void *origin_p, int sfx_id, int volume)
+{
+   int  sep, pitch, priority, cnum, is_pickup;
+   sfxinfo_t* sfx;
+   mobj_t* origin = (mobj_t *) origin_p;
+
+   if (nosfxparm)
+      return;
+
+   is_pickup = sfx_id & PICKUP_SOUND || sfx_id == sfx_oof || (compatibility_level >= prboom_2_compatibility && sfx_id == sfx_noway); // killough 4/25/98
+   sfx_id &= ~PICKUP_SOUND;
+
+   // check for bogus sound #
+   if (sfx_id < 1 || sfx_id > NUMSFX)
+      I_Error("S_StartSoundAtVolume: Bad sfx #: %d", sfx_id);
+
+   sfx = &S_sfx[sfx_id];
+
+   // Initialize sound parameters
+   if (sfx->link)
+   {
+      pitch = sfx->pitch;
+      priority = sfx->priority;
+      volume += sfx->volume;
+
+      if (volume < 1)
+         return;
+
+      if (volume > snd_SfxVolume)
+         volume = snd_SfxVolume;
+   }
+   else
+   {
+      pitch = NORM_PITCH;
+      priority = NORM_PRIORITY;
+   }
+
+
+   // Check to see if it is audible,
+   //  and if not, modify the params
+
+   if (!origin || origin == players[displayplayer].mo) {
+      sep = NORM_SEP;
+      volume *= 8;
+   } else
+      if (!S_AdjustSoundParams(players[displayplayer].mo, origin, &volume,
+                               &sep, &pitch))
+         return;
+      else
+         if ( origin->x == players[displayplayer].mo->x &&
+               origin->y == players[displayplayer].mo->y)
+            sep = NORM_SEP;
+
+   // hacks to vary the sfx pitches
+   if (sfx_id >= sfx_sawup && sfx_id <= sfx_sawhit)
+      pitch += 8 - (M_Random()&15);
+   else
+      if (sfx_id != sfx_itemup && sfx_id != sfx_tink)
+         pitch += 16 - (M_Random()&31);
+
+   if (pitch<0)
+      pitch = 0;
+
+   if (pitch>255)
+      pitch = 255;
+
+   // kill old sound
+   for (cnum=0 ; cnum<numChannels ; cnum++)
+      if (channels[cnum].sfxinfo && channels[cnum].origin == origin &&
+            (comp[comp_sound] || channels[cnum].is_pickup == is_pickup))
+      {
+         S_StopChannel(cnum);
+         break;
+      }
+
+   // try to find a channel
+   cnum = S_getChannel(origin, sfx, is_pickup);
+
+   if (cnum<0)
+      return;
+
+   // get lumpnum if necessary
+   // killough 2/28/98: make missing sounds non-fatal
+   if (sfx->lumpnum < 0 && (sfx->lumpnum = I_GetSfxLumpNum(sfx)) < 0)
+      return;
+
+   // increase the usefulness
+   if (sfx->usefulness++ < 0)
+      sfx->usefulness = 1;
+
+   // Assigns the handle to one of the channels in the mix/output buffer.
+   channels[cnum].handle = I_StartSound(sfx_id, cnum, volume, sep, pitch, priority);
+}
+
+void S_StartSound(void *origin, int sfx_id)
+{
+   S_StartSoundAtVolume(origin, sfx_id, snd_SfxVolume);
+}
+
+void S_StopSound(void *origin)
+{
+   int cnum;
+
+   if (nosfxparm)
+      return;
+  
+   for (cnum=0 ; cnum<numChannels ; cnum++)
+      if (channels[cnum].sfxinfo && channels[cnum].origin == origin)
+      {
+         S_StopChannel(cnum);
+         break;
+      }
+}
+
+//
+// Stop and resume music, during game PAUSE.
+//
+void S_PauseSound(void)
+{
+  if (nosfxparm)
+      return;
+
+   if (mus_playing && !mus_paused)
+   {
+      I_PauseSong(mus_playing->handle);
+      mus_paused = true;
+   }
+}
+
+void S_ResumeSound(void)
+{
+   if (nosfxparm)
+      return;
+
+   if (mus_playing && mus_paused)
+   {
+      I_ResumeSong(mus_playing->handle);
+      mus_paused = false;
+   }
+}
+
+//
+// Updates music & sounds
+//
+void S_UpdateSounds(void* listener_p)
+{
+   int  cnum;
+
+   mobj_t* listener = (mobj_t*)listener_p;
+
+   if (nosfxparm)
+      return;
+
+   for (cnum=0 ; cnum<numChannels ; cnum++)
+   {
+      sfxinfo_t* sfx;
+      channel_t* c = &channels[cnum];
+
+      if ((sfx = c->sfxinfo))
+      {
+         if (I_SoundIsPlaying(c->handle))
+         {
+            // initialize parameters
+            int  volume = snd_SfxVolume;
+            int  sep = NORM_PITCH;
+            int  pitch = NORM_SEP;
+
+            if (sfx->link)
+            {
+               pitch = sfx->pitch;
+               volume += sfx->volume;
+               if (volume < 1)
+               {
+                  S_StopChannel(cnum);
+                  continue;
+               }
+               else
+                  if (volume > snd_SfxVolume)
+                     volume = snd_SfxVolume;
+            }
+
+            // check non-local sounds for distance clipping
+            // or modify their params
+            if (c->origin && listener_p != c->origin) // killough 3/20/98
+            { 
+               if (!S_AdjustSoundParams(listener, c->origin,
+                                        &volume, &sep, &pitch))
+                  S_StopChannel(cnum);
+               else
+                  I_UpdateSoundParams(c->handle, volume, sep, pitch);
+            }
+         }
+         else
+            S_StopChannel(cnum);
+      }
+   }
+}
+
+void S_SetMusicVolume(int volume)
+{
+   if (nosfxparm)
+      return;
+
+   if (volume < 0 || volume > 15)
+      I_Error("S_SetMusicVolume: Attempt to set music volume at %d", volume);
+   I_SetMusicVolume(volume);
+   snd_MusicVolume = volume;
+}
+
+void S_SetSfxVolume(int volume)
+{
+   if (nosfxparm)
+      return;
+
+   if (volume < 0 || volume > 127)
+      I_Error("S_SetSfxVolume: Attempt to set sfx volume at %d", volume);
+   snd_SfxVolume = volume;
+}
+
+//
+// Starts some music with the music id found in sounds.h.
+//
+void S_StartMusic(int m_id)
+{
+   if (nosfxparm)
+      return;
+   S_ChangeMusic(m_id, false);
+}
+
+void S_ChangeMusic(int musicnum, int looping)
+{
+   musicinfo_t *music;
+
+   if (nosfxparm)
+      return;
+
+   if (musicnum <= mus_None || musicnum >= NUMMUSIC)
+      I_Error("S_ChangeMusic: Bad music number %d", musicnum);
+
+   music = &S_music[musicnum];
+
+   if (mus_playing == music)
+      return;
+
+   // shutdown old music
+   S_StopMusic();
+
+   // get lumpnum if neccessary
+   if (!music->lumpnum)
+   {
+      char  namebuf[9];
+      snprintf(namebuf,sizeof(namebuf),"d_%s", music->name);
+      music->lumpnum = W_GetNumForName(namebuf);
+   }
+
+   // load & register it
+   music->data = W_CacheLumpNum(music->lumpnum);
+//   music->handle = I_RegisterSong(music->data, W_LumpLength(music->lumpnum));
+
+   // load & register it
+//   music->data = (void *) W_CacheLumpNum(music->lumpnum);
+   music->handle = I_RegisterSong(music->data);
+
+   // play it
+   I_PlaySong(music->handle, looping);
+
+   mus_playing = music;
+}
+
+
+void S_StopMusic(void)
+{
+   if (nosfxparm)
+      return;
+
+   if (mus_playing)
+   {
+      if (mus_paused)
+         I_ResumeSong(mus_playing->handle);
+
+      I_StopSong(mus_playing->handle);
+      I_UnRegisterSong(mus_playing->handle);
+      if (mus_playing->lumpnum >= 0)
+         W_UnlockLumpNum(mus_playing->lumpnum); // cph - release the music data
+
+      mus_playing->data = 0;
+      mus_playing = 0;
+   }
+}
+
+void S_StopChannel(int cnum)
+{
+   int  i;
+   channel_t* c = &channels[cnum];
+
+   if (nosfxparm)
+      return;
+
+   if (c->sfxinfo)
+   {
+      // stop the sound playing
+      if (I_SoundIsPlaying(c->handle))
+         I_StopSound(c->handle);
+
+      // check to see
+      //  if other channels are playing the sound
+      for (i=0 ; i<numChannels ; i++)
+         if (cnum != i && c->sfxinfo == channels[i].sfxinfo)
+            break;
+
+      // degrade usefulness of sound data
+      c->sfxinfo->usefulness--;
+      c->sfxinfo = 0;
+   }
+}
+
+//
+// Changes volume, stereo-separation, and pitch variables
+//  from the norm of a sound effect to be played.
+// If the sound is not audible, returns a 0.
+// Otherwise, modifies parameters and returns 1.
+//
+int S_AdjustSoundParams(mobj_t *listener, mobj_t *source,
+                        int *vol, int *sep, int *pitch)
+{
+   (void)pitch;
+   fixed_t adx, ady, approx_dist;
+   angle_t angle;
+
+   if (nosfxparm)
+      return 0;
+
+   // calculate the distance to sound origin
+   //  and clip it if necessary
+   adx = D_abs(listener->x - source->x);
+   ady = D_abs(listener->y - source->y);
+
+   // From _GG1_ p.428. Appox. eucledian distance fast.
+   approx_dist = adx + ady - ((adx < ady ? adx : ady)>>1);
+
+   if (!approx_dist)  // killough 11/98: handle zero-distance as special case
+   {
+      *sep = NORM_SEP;
+      *vol = snd_SfxVolume;
+      return *vol > 0;
+   }
+
+   if (approx_dist > S_CLIPPING_DIST)
+      return 0;
+
+   // angle of source to listener
+   angle = R_PointToAngle2(listener->x, listener->y, source->x, source->y);
+
+   if (angle <= listener->angle)
+      angle += 0xffffffff;
+   angle -= listener->angle;
+   angle >>= ANGLETOFINESHIFT;
+
+   // stereo separation
+   *sep = 128 - (FixedMul(S_STEREO_SWING,finesine[angle])>>FRACBITS);
+
+   // volume calculation
+   if (approx_dist < S_CLOSE_DIST)
+      *vol = snd_SfxVolume*8;
+   else
+      // distance effect
+      *vol = (snd_SfxVolume * ((S_CLIPPING_DIST-approx_dist)>>FRACBITS) * 8)
+             / S_ATTENUATOR;
+
+   return (*vol > 0);
+}
+
+//
+// S_getChannel :
+//   If none available, return -1.  Otherwise channel #.
+//
+// killough 4/25/98: made static, added is_pickup argument
+
+static int S_getChannel(void *origin, sfxinfo_t *sfxinfo, int is_pickup)
+{
+   // channel number to use
+   int  cnum;
+   channel_t* c;
+
+   if (nosfxparm)
+      return -1;
+
+   // Find an open channel
+   for (cnum=0; cnum<numChannels && channels[cnum].sfxinfo; cnum++)
+      if (origin && channels[cnum].origin == origin &&
+            channels[cnum].is_pickup == is_pickup)
+      {
+         S_StopChannel(cnum);
+         break;
+      }
+
+   // None available
+   if (cnum == numChannels)
+   {  // Look for lower priority
+      for (cnum=0 ; cnum<numChannels ; cnum++)
+         if (channels[cnum].sfxinfo->priority >= sfxinfo->priority)
+            break;
+      if (cnum == numChannels)
+         return -1;                 // No lower priority.  Sorry, Charlie.
+      else
+         S_StopChannel(cnum);       // Otherwise, kick out lower priority.
+   }
+
+   c = &channels[cnum];             // channel is decided to be cnum.
+   c->sfxinfo = sfxinfo;
+   c->origin = origin;
+   c->is_pickup = is_pickup;         // killough 4/25/98
+   return cnum;
+}