/*
 * $Source: $
 * $Revision: 8 $
 * $Author: Jeff $
 * $Date: 10/21/99 9:28p $
 *
 * Hardware occlusion and reflection sound support
 *
 * $Log: /DescentIII/Main/dd_sndlib/geometry.cpp $
 *
 * 8     10/21/99 9:28p Jeff
 * B.A. Macintosh code merge
 *
 * 7     8/13/99 2:00p Samir
 * more aureal and geometry fixes.
 *
 * 6     8/11/99 3:12p Samir
 * fixes for aureal support.
 *
 * 5     4/13/99 4:09p Samir
 * more priority stuff.
 *
 * 4     4/06/99 8:30p Samir
 * added reflection support.
 *
 * 3     3/30/99 5:36p Matt
 * Fixed compile warnings
 *
 * 2     3/29/99 10:52a Samir
 * occlusion support almost complete.
 *
 */

#ifndef MACINTOSH
#include "ds3dlib_internal.h"
#include "auddev.h"
#else
#include "ddsndgeometry.h"
#endif
#include "pserror.h"

//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
llsGeometry::llsGeometry() {
#ifndef MACINTOSH
  m_snd_system = NULL;
  m_snd_mixer = SOUND_MIXER_NONE;
  m_lib_init = false;
#endif
}

// specify a sound library to associate geometry with
bool llsGeometry::Init(llsSystem *snd_sys) {
#ifndef MACINTOSH
  int i;

  if (m_lib_init) {
    Int3(); // really, this shouldn't happen.
    return true;
  }
  if (!snd_sys) {
    Int3();
    return false;
  }

// create hardware geometry interface
#ifdef SUPPORT_AUREAL
  switch (snd_sys->GetSoundMixer()) {
  case SOUND_MIXER_AUREAL:
    m_lib_init = A3D_CreateGeometryInterface();
    break;
  }
#endif

  if (!m_lib_init) {
    mprintf((0, "DDSNDGEO: Failed to initialize geometry interface.\n"));
    return false;
  }

  m_snd_mixer = snd_sys->GetSoundMixer();
#endif

  m_snd_system = snd_sys;
  m_lib_init = true;

#ifndef MACINTOSH
  // create material list.
  for (i = 0; i < SNDGEO_MATERIAL_COUNT; i++) {
    m_snd_materials[i] = NULL;
  }

  CreateMaterial(SNDGEO_MATERIAL_ROCK, 0.2f, 0.5f, 0.9f, 0.8f);
  CreateMaterial(SNDGEO_MATERIAL_WATER, 1.0f, 0.3f, 0.8f, 0.7f);
  CreateMaterial(SNDGEO_MATERIAL_METAL, 0.1f, 0.1f, 0.95f, 0.85f);

  mprintf((0, "DDSNDGEO: Initialized.\n"));
#endif
  return true;
}

// closes low level geometry system.
void llsGeometry::Shutdown() {
#ifndef MACINTOSH
  int i;

  if (!m_lib_init) { // damn this shouldn't happen.
    Int3();
    return;
  }

  // destroy materials list
  for (i = 0; i < SNDGEO_MATERIAL_COUNT; i++) {
    DestroyMaterial(i);
  }

// destroy geometry interface.
#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_DestroyGeometryInterface();
    break;
  }
#endif

  m_snd_mixer = SOUND_MIXER_NONE;
  m_snd_system = NULL;
  m_lib_init = false;

  mprintf((0, "DDSNDGEO: Shutdown.\n"));
#endif
}

void llsGeometry::StartFrame() {
#ifndef MACINTOSH
  n_primatives_used = 0;
  n_reflections_used = 0;
  n_materials_used = 0;
#endif
}

void llsGeometry::EndFrame() {
#ifndef MACINTOSH
  mprintf_at((3, 4, 20, "sndpoly=%04d", n_primatives_used));
  mprintf_at((3, 4, 38, "sndmat=%04d", n_materials_used));
  mprintf_at((3, 5, 20, "sndref=%04d", n_reflections_used));
#endif
}

// polygon lists

// marks beginning of a list of polygons to render
//	-1 group if non cached (user doesn't want to reuse this.
void llsGeometry::StartPolygonGroup(int group) {
#ifndef MACINTOSH
  ASSERT(m_lib_init);

#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    // we flush, so that when starting the geometry list, we can clear the current geometry
    A3D_Flush();
    A3D_GeomListStart(group);
    break;
  }
#endif
#endif
}

// ends a list of polygons to render.
void llsGeometry::EndPolygonGroup(int group) {
#ifndef MACINTOSH
  ASSERT(m_lib_init);

#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_GeomListEnd(group);
    break;
  }
#endif
#endif
}

// renders a group.
void llsGeometry::RenderGroup(int group) {
#ifndef MACINTOSH
  ASSERT(m_lib_init);

#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_GeomListExec(group);
    break;
  }
#endif
#endif
}

void llsGeometry::Clear() {
#ifndef MACINTOSH
  ASSERT(m_lib_init);

#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_Clear();
    break;
  }
#endif
#endif
}

// primatives
// 4 verts here.
void llsGeometry::AddQuad(unsigned tag, vector **verts) {
#ifndef MACINTOSH
  n_primatives_used++;
#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_GeomAddQuad(tag, verts);
    break;
  }
#endif
#endif
}

// 3 verts here.
void llsGeometry::AddTriangle(unsigned tag, vector **verts) {
#ifndef MACINTOSH
  n_primatives_used++;
#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_GeomAddTriangle(tag, verts);
    break;
  }
#endif
#endif
}

void llsGeometry::AddPoly(int nv, vector **verts, unsigned tag, tSoundMaterial material) {
#ifndef MACINTOSH
  int i, saved_primatives_used; //,p;
  void *matp = NULL;

  if (nv < 3) {
    Int3();
    return;
  }

  if (material >= 0 && material < SNDGEO_MATERIAL_COUNT) {
    matp = m_snd_materials[material];
  }

// bind material to current polygon
#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    A3D_GeomBindMaterial(matp);
    break;
  }
#endif

  if (matp) {
    n_materials_used++;
  }
  saved_primatives_used = n_primatives_used;

  // add polygons or split.
  switch (nv) {
  case 3:
    AddTriangle(tag, verts);
    break;
  case 4:
    AddQuad(tag, verts);
    break;
  default:
    // split up into tris and or quads
    if (m_snd_mixer == SOUND_MIXER_AUREAL) {
      vector *polyvec[4];
      int nexus_vert = 0;

      for (i = 0; i < nv - 3; i += 3) {
        nexus_vert = i;
        polyvec[0] = verts[i];
        polyvec[1] = verts[i + 1];
        polyvec[2] = verts[i + 2];
        polyvec[3] = verts[i + 3];
        AddQuad(tag | i, polyvec);
      }

      // fan from nexus to (i through nv)
      polyvec[0] = verts[nexus_vert];
      polyvec[2] = verts[i];
      for (; i < nv; i++) {
        polyvec[1] = polyvec[2];
        polyvec[2] = ((i + 1) < nv) ? verts[i + 1] : verts[0];
        if (polyvec[0] == polyvec[2]) {
          break;
        }
        AddTriangle(tag | i, polyvec);
      }
    } else {
      Int3();
    }
  }

  if (matp) {
    n_reflections_used += (n_primatives_used - saved_primatives_used);
  }
#endif
}

// values MUST be from 0 to 1 for gain and highfreq.
void llsGeometry::CreateMaterial(tSoundMaterial material, float transmit_gain, float transmit_highfreq,
                                 float reflect_gain, float reflect_highfreq) {
#ifndef MACINTOSH
  if (m_snd_materials[material] || material < 0 || material >= SNDGEO_MATERIAL_COUNT) {
    Int3(); // get samir, trying to intiialize a material in an existing slot.
    return;
  }

  // check values.
  if (transmit_gain < 0) {
    transmit_gain = 0;
  } else if (transmit_gain > 1) {
    transmit_gain = 1;
  }
  if (transmit_highfreq < 0) {
    transmit_highfreq = 0;
  } else if (transmit_highfreq > 1) {
    transmit_highfreq = 1;
  }
  if (reflect_gain < 0) {
    reflect_gain = 0;
  } else if (reflect_gain > 1) {
    reflect_gain = 1;
  }
  if (reflect_highfreq < 0) {
    reflect_highfreq = 0;
  } else if (reflect_highfreq > 1) {
    reflect_highfreq = 1;
  }

#ifdef SUPPORT_AUREAL
  switch (m_snd_mixer) {
  case SOUND_MIXER_AUREAL:
    m_snd_materials[material] = A3D_CreateMaterial(transmit_gain, transmit_highfreq, reflect_gain, reflect_highfreq);
    break;
  }
#endif
#endif
}

void llsGeometry::DestroyMaterial(tSoundMaterial material) {
#ifndef MACINTOSH
  if (!m_snd_materials[material]) {
    if (material < 0 || material >= SNDGEO_MATERIAL_COUNT) {
      Int3(); // get samir, trying to destroy a material in an nonexisting slot.
    }
    return;
  }

  if (m_snd_materials[material]) {
#ifdef SUPPORT_AUREAL
    switch (m_snd_mixer) {
    case SOUND_MIXER_AUREAL:
      A3D_DestroyMaterial(m_snd_materials[material]);
      break;
    }
#endif
    m_snd_materials[material] = NULL;
  }
#endif
}