/*
Copyright (C) 1999-2007 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 <stdlib.h>

#include "entity_entitymodel.h"
#include "entity.h"

//
// CEntityMiscModel implementation
//

CEntityMiscModel::CEntityMiscModel (entity_t *e)
{
  refCount = 1;
  m_entity = e;
  m_model = NULL;
  VectorSet(m_translate, 0,0,0);
  VectorSet(m_euler, 0,0,0);
  VectorSet(m_scale, 1,1,1);
  VectorSet(m_pivot, 0,0,0);
  m4x4_identity(m_transform);
  m4x4_identity(m_inverse_transform);
}

CEntityMiscModel::~CEntityMiscModel ()
{
  if(m_cachereq.GetBuffer()[0] != ':'
    && m_version.c_str()[0] != '\0')
    GetModelCache()->DeleteByID(m_cachereq.GetBuffer(), m_version.c_str());
}


// IRender

void CEntityMiscModel::Draw(int state, int rflags) const
{
  // push the current modelview matrix
  // FIXME: put in a check for stack recursion depth..
  // or avoid recursion of opengl matrix stack
  g_QglTable.m_pfn_qglPushMatrix();
  // apply the parent-to-local transform
	g_QglTable.m_pfn_qglMultMatrixf(m_transform);

  pivot_draw(m_pivot);

  // draw children
  if(m_model && m_model->pRender)  
  {
    m_model->pRender->Draw(state, rflags);
  }
 
  g_QglTable.m_pfn_qglPopMatrix();
}

// ISelect

bool CEntityMiscModel::TestRay(const ray_t *ray, vec_t *dist) const
{
  vec_t dist_start = *dist;
  vec_t dist_local = *dist;
	ray_t ray_local = *ray;

  if (aabb_test_ray(&m_BBox, ray) == 0)
    return false;

  ray_transform(&ray_local, m_inverse_transform);

  if(m_model && m_model->pSelect)
  {
    if(m_model->pSelect->TestRay(&ray_local, &dist_local))
        *dist = dist_local;
  }
  else *dist = dist_local;

  return *dist < dist_start;
}


//IEdit

void CEntityMiscModel::Translate(const vec3_t translation)
{
  VectorIncrement(translation, m_translate);
  UpdateCachedData();
}

void CEntityMiscModel::Rotate(const vec3_t pivot, const vec3_t rotation)
{
  m4x4_t rotation_matrix;

  m4x4_identity(rotation_matrix);
  m4x4_pivoted_rotate_by_vec3(rotation_matrix, rotation, eXYZ, pivot);
  m4x4_transform_point(rotation_matrix, m_translate);

  VectorIncrement(rotation, m_euler);

  UpdateCachedData();
}

void CEntityMiscModel::OnKeyValueChanged(entity_t *e, const char *key, const char* value)
{
  if(strcmp(key, "model") == 0)
    SetName(value);
  else if(strcmp(key, "_frame") == 0)
  {
    SetName(ValueForKey(e, "model"));
  }
  else if(strcmp(key, "angle") == 0)
  {
    VectorSet(m_euler, 0.f, 0.f, 0.f);
    m_euler[2] = atof(value);
    UpdateCachedData();
  }
  else if(strcmp(key, "angles") == 0)
  {
    VectorSet(m_euler, 0.f, 0.f, 0.f);
    if (value[0] != '\0')
      sscanf (value, "%f %f %f", &m_euler[1], &m_euler[2], &m_euler[0]);
    UpdateCachedData();
  }
  else if(strcmp(key, "modelscale") == 0 || strcmp(key,"modelscale_vec") == 0)
  {
    const char *s;
    VectorSet(m_scale, 1.f, 1.f, 1.f);
    s = ValueForKey(e,"modelscale");
    if (s[0] != '\0')
    {
      float f = atof(s);
      if( f != 0 )
        VectorSet(m_scale, f, f, f);
      else
        Sys_FPrintf(SYS_WRN, "WARNING: ignoring 0 modelscale key\n");
    }
    s = ValueForKey(e,"modelscale_vec");
    if (s[0] != '\0')
    {
      sscanf (s, "%f %f %f", &m_scale[0], &m_scale[1], &m_scale[2]);
      if (m_scale[0] == 0.0 && m_scale[1] == 0.0 && m_scale[2] == 0.0)
      {
        VectorSet(m_scale, 1,1,1);
        Sys_FPrintf(SYS_WRN, "WARNING: ignoring 0 0 0 modelscale_vec key\n");
      }
    }
    UpdateCachedData();
  }
  else if(strcmp(key, "origin") == 0)
  {
    sscanf(value, "%f %f %f", &m_translate[0], &m_translate[1], &m_translate[2]); 
    UpdateCachedData();
  }
  else if(strncmp(key,"_remap",6) == 0)
  {
    SetName(ValueForKey(e, "model"));
  }
}

//
// CEntityMiscModel
//

// private:

void CEntityMiscModel::BuildCacheRequestString(const char *name)
{
  bool hasRemaps = false;

  m_cachereq.Format( "%s:%i", name, IntForKey(m_entity,"_frame") );

  for (epair_t* ep = m_entity->epairs ; ep ; ep=ep->next)
  {
    if( strncmp(ep->key,"_remap",6) == 0 )
    {
      if( !hasRemaps )
      {
        hasRemaps = true;
        m_cachereq += "?";
      } else {
        m_cachereq += "&";
      }
      m_cachereq += ep->value;
    }
  }
}

void CEntityMiscModel::SetName(const char *name)
{
  Str m_oldcachereq = m_cachereq;

  if( name[0] == '\0' ) {
    return;
  }

  BuildCacheRequestString(name);

  if(strcmp(m_oldcachereq, m_cachereq) == 0)
    return;

  if(m_cachereq.GetBuffer()[0] != ':'
    && m_version.c_str()[0] != '\0')
    GetModelCache()->DeleteByID(m_cachereq.GetBuffer(), m_version.c_str());

  m_model = NULL;

  if(name[0] != '\0')
  {
    const char* dot = strrchr(name, '.');
    if(dot != NULL)
    {
      m_version = ++dot;
      m_model = GetModelCache()->GetByID(m_cachereq.GetBuffer(), m_version.c_str());
    }
  }

  UpdateCachedData();
}


void CEntityMiscModel::UpdateCachedData()
{
  aabb_t aabb_temp;

  m4x4_identity(m_transform);
  m4x4_pivoted_transform_by_vec3(m_transform, m_translate, m_euler, eXYZ, m_scale, m_pivot);
  memcpy(m_inverse_transform, m_transform, sizeof(m4x4_t));
  m4x4_invert(m_inverse_transform);

  aabb_clear(&aabb_temp);

  if(m_model && m_model->pRender)
    aabb_extend_by_aabb(&aabb_temp, m_model->pRender->GetAABB());
  else
    VectorSet(aabb_temp.extents, 8, 8, 8);

  aabb_for_transformed_aabb(&m_BBox, &aabb_temp, m_transform);
}