/*
Copyright (C) 1999-2006 Id Software, Inc. and contributors.
For a list of contributors, see the accompanying CONTRIBUTORS file.

This file is part of GtkRadiant.

GtkRadiant 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.

GtkRadiant 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 GtkRadiant; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/

#include "brush.h"
#include "signal/signal.h"

Signal0 g_brushTextureChangedCallbacks;

void Brush_addTextureChangedCallback(const SignalHandler& handler)
{
  g_brushTextureChangedCallbacks.connectLast(handler);
}

void Brush_textureChanged()
{
  g_brushTextureChangedCallbacks();
}

QuantiseFunc Face::m_quantise;
EBrushType Face::m_type;
EBrushType FacePlane::m_type;
bool g_brush_texturelock_enabled = true;

EBrushType Brush::m_type;
double Brush::m_maxWorldCoord = 0;
Shader* Brush::m_state_point;
Shader* BrushClipPlane::m_state = 0;
Shader* BrushInstance::m_state_selpoint;
Counter* BrushInstance::m_counter = 0;

FaceInstanceSet g_SelectedFaceInstances;


struct SListNode
{
  SListNode* m_next;
};

class ProximalVertex
{
public:
  const SListNode* m_vertices;

  ProximalVertex(const SListNode* next)
    : m_vertices(next)
  {
  }

  bool operator<(const ProximalVertex& other) const
  {
    if(!(operator==(other)))
    {
      return m_vertices < other.m_vertices;
    }
    return false;
  }
  bool operator==(const ProximalVertex& other) const
  {
    const SListNode* v = m_vertices;
    std::size_t DEBUG_LOOP = 0;
    do
    {
      if(v == other.m_vertices)
        return true;
      v = v->m_next;
      //ASSERT_MESSAGE(DEBUG_LOOP < c_brush_maxFaces, "infinite loop");
      if(!(DEBUG_LOOP < c_brush_maxFaces))
      {
        break;
      }
      ++DEBUG_LOOP;
    }
    while(v != m_vertices);
    return false;
  }
};

typedef Array<SListNode> ProximalVertexArray;
std::size_t ProximalVertexArray_index(const ProximalVertexArray& array, const ProximalVertex& vertex)
{
  return vertex.m_vertices - array.data();
}



inline bool Brush_isBounded(const Brush& brush)
{
  for(Brush::const_iterator i = brush.begin(); i != brush.end(); ++i)
  {
    if(!(*i)->is_bounded())
    {
      return false;
    }
  }
  return true;
}

void Brush::buildBRep()
{
  bool degenerate = buildWindings();

  std::size_t faces_size = 0;
  std::size_t faceVerticesCount = 0;
  for(Faces::const_iterator i = m_faces.begin(); i != m_faces.end(); ++i)
  {
    if((*i)->contributes())
    {
      ++faces_size;
    }
    faceVerticesCount += (*i)->getWinding().numpoints;
  }

  if(degenerate || faces_size < 4 || faceVerticesCount != (faceVerticesCount>>1)<<1) // sum of vertices for each face of a valid polyhedron is always even
  {
    m_uniqueVertexPoints.resize(0);

    vertex_clear();
    edge_clear();

    m_edge_indices.resize(0);
    m_edge_faces.resize(0);

    m_faceCentroidPoints.resize(0);
    m_uniqueEdgePoints.resize(0);
    m_uniqueVertexPoints.resize(0);

    for(Faces::iterator i = m_faces.begin(); i != m_faces.end(); ++i)
    {
      (*i)->getWinding().resize(0);
    }
  }
  else
  {
    {
      typedef std::vector<FaceVertexId> FaceVertices;
      FaceVertices faceVertices;
      faceVertices.reserve(faceVerticesCount);

      {
        for(std::size_t i = 0; i != m_faces.size(); ++i)
        {
          for(std::size_t j = 0; j < m_faces[i]->getWinding().numpoints; ++j)
          {
            faceVertices.push_back(FaceVertexId(i, j));
          }
        }
      }

      IndexBuffer uniqueEdgeIndices;
      typedef VertexBuffer<ProximalVertex> UniqueEdges;
      UniqueEdges uniqueEdges;

      uniqueEdgeIndices.reserve(faceVertices.size());
      uniqueEdges.reserve(faceVertices.size());

      {
        ProximalVertexArray edgePairs;
        edgePairs.resize(faceVertices.size());

        {
          for(std::size_t i=0; i<faceVertices.size(); ++i)
          {
            edgePairs[i].m_next = edgePairs.data() + absoluteIndex(next_edge(m_faces, faceVertices[i]));
          }
        }

        {
          UniqueVertexBuffer<ProximalVertex> inserter(uniqueEdges);
          for(ProximalVertexArray::iterator i = edgePairs.begin(); i != edgePairs.end(); ++i)
          {
            uniqueEdgeIndices.insert(inserter.insert(ProximalVertex(&(*i))));
          }
        }

        {
          edge_clear();
          m_select_edges.reserve(uniqueEdges.size());
          for(UniqueEdges::iterator i = uniqueEdges.begin(); i != uniqueEdges.end(); ++i)
          {
            edge_push_back(faceVertices[ProximalVertexArray_index(edgePairs, *i)]);
          }
        }

        {
          m_edge_faces.resize(uniqueEdges.size());
          for(std::size_t i=0; i<uniqueEdges.size(); ++i)
          {
            FaceVertexId faceVertex = faceVertices[ProximalVertexArray_index(edgePairs, uniqueEdges[i])];
            m_edge_faces[i] = EdgeFaces(faceVertex.getFace(), m_faces[faceVertex.getFace()]->getWinding()[faceVertex.getVertex()].adjacent);
          }
        }

        {
          m_uniqueEdgePoints.resize(uniqueEdges.size());
          for(std::size_t i=0; i<uniqueEdges.size(); ++i)
          {
            FaceVertexId faceVertex = faceVertices[ProximalVertexArray_index(edgePairs, uniqueEdges[i])];

            const Winding& w = m_faces[faceVertex.getFace()]->getWinding();
            Vector3 edge = vector3_mid(w[faceVertex.getVertex()].vertex, w[Winding_next(w, faceVertex.getVertex())].vertex);
            m_uniqueEdgePoints[i] = pointvertex_for_windingpoint(edge, colour_vertex);
          }
        }

      }
    

      IndexBuffer uniqueVertexIndices;
      typedef VertexBuffer<ProximalVertex> UniqueVertices;
      UniqueVertices uniqueVertices;

      uniqueVertexIndices.reserve(faceVertices.size());
      uniqueVertices.reserve(faceVertices.size());

      {
        ProximalVertexArray vertexRings;
        vertexRings.resize(faceVertices.size());

        {
          for(std::size_t i=0; i<faceVertices.size(); ++i)
          {
            vertexRings[i].m_next = vertexRings.data() + absoluteIndex(next_vertex(m_faces, faceVertices[i]));
          }
        }

        {
          UniqueVertexBuffer<ProximalVertex> inserter(uniqueVertices);
          for(ProximalVertexArray::iterator i = vertexRings.begin(); i != vertexRings.end(); ++i)
          {
            uniqueVertexIndices.insert(inserter.insert(ProximalVertex(&(*i))));
          }
        }

        {
          vertex_clear();
          m_select_vertices.reserve(uniqueVertices.size());  
          for(UniqueVertices::iterator i = uniqueVertices.begin(); i != uniqueVertices.end(); ++i)
          {
            vertex_push_back(faceVertices[ProximalVertexArray_index(vertexRings, (*i))]);
          }
        }

        {
          m_uniqueVertexPoints.resize(uniqueVertices.size());
          for(std::size_t i=0; i<uniqueVertices.size(); ++i)
          {
            FaceVertexId faceVertex = faceVertices[ProximalVertexArray_index(vertexRings, uniqueVertices[i])];

            const Winding& winding = m_faces[faceVertex.getFace()]->getWinding();
            m_uniqueVertexPoints[i] = pointvertex_for_windingpoint(winding[faceVertex.getVertex()].vertex, colour_vertex);
          }
        }
      }

      if((uniqueVertices.size() + faces_size) - uniqueEdges.size() != 2)
      {
        globalErrorStream() << "Final B-Rep: inconsistent vertex count\n";
      }

#if BRUSH_CONNECTIVITY_DEBUG
      if((uniqueVertices.size() + faces_size) - uniqueEdges.size() != 2)
      {
        for(Faces::iterator i = m_faces.begin(); i != m_faces.end(); ++i)
        {
          std::size_t faceIndex = std::distance(m_faces.begin(), i);

          if(!(*i)->contributes())
          {
            globalOutputStream() << "face: " << Unsigned(faceIndex) << " does not contribute\n";
          }

          Winding_printConnectivity((*i)->getWinding());
        }
      }
#endif

      // edge-index list for wireframe rendering
      {
        m_edge_indices.resize(uniqueEdgeIndices.size());

        for(std::size_t i=0, count=0; i<m_faces.size(); ++i)
        {
          const Winding& winding = m_faces[i]->getWinding();
          for(std::size_t j = 0; j < winding.numpoints; ++j)
          {
            const RenderIndex edge_index = uniqueEdgeIndices[count+j];

            m_edge_indices[edge_index].first = uniqueVertexIndices[count + j];
            m_edge_indices[edge_index].second = uniqueVertexIndices[count + Winding_next(winding, j)];
          }
          count += winding.numpoints;
        }
      }
    }

    {
      m_faceCentroidPoints.resize(m_faces.size());
      for(std::size_t i=0; i<m_faces.size(); ++i)
      {
        m_faces[i]->construct_centroid();
        m_faceCentroidPoints[i] = pointvertex_for_windingpoint(m_faces[i]->centroid(), colour_vertex);
      }
    }
  }
}


class FaceFilterWrapper : public Filter
{
  FaceFilter& m_filter;
  bool m_active;
  bool m_invert;
public:
  FaceFilterWrapper(FaceFilter& filter, bool invert) :
    m_filter(filter),
    m_invert(invert)
  {
  }
  void setActive(bool active)
  {
    m_active = active;
  }
  bool active()
  {
    return m_active;
  }
  bool filter(const Face& face)
  {
    return m_invert ^ m_filter.filter(face);
  }
};


typedef std::list<FaceFilterWrapper> FaceFilters;
FaceFilters g_faceFilters;

void add_face_filter(FaceFilter& filter, int mask, bool invert)
{
  g_faceFilters.push_back(FaceFilterWrapper(filter, invert));
  GlobalFilterSystem().addFilter(g_faceFilters.back(), mask);
}

bool face_filtered(Face& face)
{
  for(FaceFilters::iterator i = g_faceFilters.begin(); i != g_faceFilters.end(); ++i)
  {
    if((*i).active() && (*i).filter(face))
    {
      return true;
    }
  }
  return false;
}


class BrushFilterWrapper : public Filter
{
  bool m_active;
  bool m_invert;
  BrushFilter& m_filter;
public:
  BrushFilterWrapper(BrushFilter& filter, bool invert) : m_invert(invert), m_filter(filter)
  {
  }
  void setActive(bool active)
  {
    m_active = active;
  }
  bool active()
  {
    return m_active;
  }
  bool filter(const Brush& brush)
  {
    return m_invert ^ m_filter.filter(brush);
  }
};


typedef std::list<BrushFilterWrapper> BrushFilters;
BrushFilters g_brushFilters;

void add_brush_filter(BrushFilter& filter, int mask, bool invert)
{
  g_brushFilters.push_back(BrushFilterWrapper(filter, invert));
  GlobalFilterSystem().addFilter(g_brushFilters.back(), mask);
}

bool brush_filtered(Brush& brush)
{
  for(BrushFilters::iterator i = g_brushFilters.begin(); i != g_brushFilters.end(); ++i)
  {
    if((*i).active() && (*i).filter(brush))
    {
      return true;
    }
  }
  return false;
}


