/*
    Copyright (C) 1999
    For non-commercial use only.

    File	: tga.c
    Date	: 05/05/1999
    Author	: Nate Miller
    Contact	: vandals1@home.com

    Change Log
    **********
    7/26/99 - added code to fclose () a file when there is an error
    6/11/99 - added support for 8bit images, changed commenting
*/

/*Modif for Texture meneger.
by stalkerg[PLG Team]
stalkerg@newmail.ru 
http://plg.lrn.ru
*/


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef __unix__
#else
#include <windows.h>
#endif
#include <GL/gl.h>
#include <GL/glu.h>
#include "tga.h"

GLenum texFormat;

/*
=============
checkSize

Make sure its a power of 2.
=============
*/
int
checkSize (int x)
{
  if (x == 2 || x == 4 || x == 8 || x == 16 || x == 32 || x == 64 || x == 128 || x == 256 || x == 512)
    return 1;
  else
    return 0;
};

/*
=============
getRGBA

Reads in RGBA data for a 32bit image. 
=============
*/
unsigned char *
getRGBA (FILE * s, int size)
{
  unsigned char *rgba;
  unsigned char temp;
  int bread;
  int i;

  rgba = malloc (size * 4);

  if (rgba == NULL)
    return 0;

  bread = fread (rgba, sizeof (unsigned char), size * 4, s);

  /* TGA is stored in BGRA, make it RGBA */
  if (bread != size * 4)
    {
      free (rgba);
      return 0;
    }

  for (i = 0; i < size * 4; i += 4)
    {
      temp = rgba[i];
      rgba[i] = rgba[i + 2];
      rgba[i + 2] = temp;
    }

  texFormat = GL_RGBA;
  return rgba;
};

/*
=============
getRGB

Reads in RGB data for a 24bit image. 
=============
*/
unsigned char *
getRGB (FILE * s, int size)
{
  unsigned char *rgb;
  unsigned char temp;
  int bread;
  int i;

  rgb = malloc (size * 3);

  if (rgb == NULL)
    return 0;

  bread = fread (rgb, sizeof (unsigned char), size * 3, s);

  if (bread != size * 3)
    {
      free (rgb);
      return 0;
    }

  /* TGA is stored in BGR, make it RGB */
  for (i = 0; i < size * 3; i += 3)
    {
      temp = rgb[i];
      rgb[i] = rgb[i + 2];
      rgb[i + 2] = temp;
    }

  texFormat = GL_RGB;

  return rgb;
}

/*
=============
getGray

Gets the grayscale image data.  Used as an alpha channel.
=============
*/
unsigned char *
getGray (FILE * s, int size)
{
  unsigned char *grayData;
  int bread;

  grayData = malloc (size);

  if (grayData == NULL)
    return 0;

  bread = fread (grayData, sizeof (unsigned char), size, s);

  if (bread != size)
    {
      free (grayData);
      return 0;
    }

  texFormat = GL_ALPHA;

  return grayData;
};

/*
=============
getData

Gets the image data for the specified bit depth.
=============
*/
unsigned char *
getData (FILE * s, int sz, int iBits)
{
  if (iBits == 32)
    return getRGBA (s, sz);
  else if (iBits == 24)
    return getRGB (s, sz);
  else if (iBits == 8)
    return getGray (s, sz);
return NULL;
}

/*
=============
returnError
=============
Called when there is an error loading the .tga file.
*/
int
returnError (FILE * s, int error)
{
  fclose (s);
  return error;
}

/*
=============
loadTGA

Loads up a targa file.  Supported types are 8,24 and 32 uncompressed images.  
id is the texture ID to bind too.
=============
*/
int
loadTGA (char *name, int id, int Param)
{
  unsigned char type[4];
  unsigned char info[7];
  unsigned char *imageData = NULL;
  int imageWidth, imageHeight;
  int imageBits, size;
  FILE *s;

  if (!(s = fopen (name, "rb")))
    return TGA_FILE_NOT_FOUND;

  fread (&type, sizeof (char), 3, s);	// read in colormap info and image type, byte 0 ignored
  fseek (s, 12, SEEK_SET);	// seek past the header and useless info
  fread (&info, sizeof (char), 6, s);

  if (type[1] != 0 || (type[2] != 2 && type[2] != 3))
    returnError (s, TGA_BAD_IMAGE_TYPE);

  imageWidth = info[0] + info[1] * 256;
  imageHeight = info[2] + info[3] * 256;
  imageBits = info[4];

  size = imageWidth * imageHeight;

  /* make sure dimension is a power of 2 */
  if (!checkSize (imageWidth) || !checkSize (imageHeight))
    returnError (s, TGA_BAD_DIMENSION);

  /* make sure we are loading a supported type */
  if (imageBits != 32 && imageBits != 24 && imageBits != 8)
    returnError (s, TGA_BAD_BITS);

  imageData = getData (s, size, imageBits);

  /* no image data */
  if (imageData == NULL)
    returnError (s, TGA_BAD_DATA);

  fclose (s);

  glBindTexture (GL_TEXTURE_2D, id);
  glBindTexture (GL_TEXTURE_2D, id);
  glPixelStorei (GL_UNPACK_ALIGNMENT, 1);
  //glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAX_ANISOTROPY_EXT,3);
  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
  if (Param == 0)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
    };
  if (Param == 1)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    };
  if (Param == 2)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
    };
  if (Param == 3)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    };
  if (Param == 4)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
    };
  if (Param == 5)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR_MIPMAP_LINEAR);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    };
  if (Param == 6)
    {
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR_MIPMAP_LINEAR);
      glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
    };
  glTexEnvf (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
  gluBuild2DMipmaps (GL_TEXTURE_2D, 4, imageWidth, imageHeight, texFormat, GL_UNSIGNED_BYTE, imageData);
  /* release data, its been uploaded */
  free (imageData);

  return 1;
};

struct DTA LDTA(const char *name)
{
  unsigned char type[4];
  unsigned char info[7];
  unsigned char *imageData = NULL;
  int imageWidth, imageHeight;
  int imageBits, size;
  FILE *s;
struct DTA Temp;
  Temp.texFormat=0;
  Temp.wh=0;
  Temp.ww=0;
  Temp.imageData=NULL;
  if (!(s = fopen (name, "rb")))
  return Temp;
    //return TGA_FILE_NOT_FOUND;

  fread (&type, sizeof (char), 3, s);	// read in colormap info and image type, byte 0 ignored
  fseek (s, 12, SEEK_SET);	// seek past the header and useless info
  fread (&info, sizeof (char), 6, s);

  if (type[1] != 0 || (type[2] != 2 && type[2] != 3))
    returnError (s, TGA_BAD_IMAGE_TYPE);

  imageWidth = info[0] + info[1] * 256;
  imageHeight = info[2] + info[3] * 256;
  imageBits = info[4];

  size = imageWidth * imageHeight;

  /* make sure dimension is a power of 2 */
  if (!checkSize (imageWidth) || !checkSize (imageHeight))
    returnError (s, TGA_BAD_DIMENSION);

  /* make sure we are loading a supported type */
  if (imageBits != 32 && imageBits != 24 && imageBits != 8)
    returnError (s, TGA_BAD_BITS);

  imageData = getData (s, size, imageBits);

  /* no image data */
  if (imageData == NULL)
    returnError (s, TGA_BAD_DATA);

  fclose (s);
   
   Temp.imageData=imageData;
   Temp.ww=imageWidth;
   Temp.wh=imageHeight;
   Temp.texFormat=texFormat;
   return Temp;
}