/*
 *	usedidx.c
 *	Palette index usage statistics (cf -usedidx)
 */


/*
This file is part of DeuTex.

DeuTex incorporates code derived from DEU 5.21 that was put in the public
domain in 1994 by Raphaël Quinet and Brendon Wyber.

DeuTex is Copyright © 1994-1995 Olivier Montanuy,
          Copyright © 1999-2000 André Majorel.

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 library; if not, write to the Free Software Foundation, Inc., 59 Temple
Place, Suite 330, Boston, MA 02111-1307, USA.
*/


#include "deutex.h"
#include "tools.h"
#include "usedidx.h"


/*
 *	usedidx_begin_lump
 *	Call this before the first call to usedidx_count for
 *	a given lump.
 */
void usedidx_begin_lump (cusage_t *cusage, const char *name)
{
  int i;

  if (cusage == NULL)
    Bug ("usedidx_begin_lump: bad cusage %p", cusage);
  cusage->lump_uses = Malloc (NCOLOURS * sizeof *cusage->lump_uses);
  for (i = 0; i < NCOLOURS; i++)
    cusage->lump_uses[i] = 0;
  memcpy (cusage->lump_name, name, sizeof cusage->lump_name);
}


/*
 *	usedidx_pixel
 *	Call this for each pixel for a given lump.
 */
void usedidx_pixel (cusage_t *cusage, unsigned char idx)
{
  if (idx > NCOLOURS)  /* Can't happen */
    Bug ("usedidx_pixel: idx %d > NCOLOURS %d", (int) idx, (int) NCOLOURS);
  cusage->lump_uses[idx]++;
}


/*
 *	usedidx_end_lump
 *	Call this when you're done with a given lump.
 */
void usedidx_end_lump (cusage_t *cusage)
{
  int i;
  if (cusage == NULL)
    Bug ("usedidx_end_lump: bad cusage %p", cusage);
  for (i = 0; i < NCOLOURS; i++)
  {
    if (cusage->lump_uses[i] > 0)
    {
      if (cusage->uses[i] == 0)
	memcpy (cusage->where_first[i], cusage->lump_name,
	    sizeof cusage->where_first[i]);
      cusage->uses[i] += cusage->lump_uses[i];
      cusage->nlumps[i]++;
    }
  }
  Free (cusage->lump_uses);
}


/*
 *	usedidx_rectangle
 *	Call this to update the cusage_t structure for a whole
 *	array of pixels at once. The array is supposed not to
 *	contain transparent pixels so this is not for pictures;
 *	it's for flats and rectangular graphic lumps (E.G.
 *	320x200 "TITLE" from Heretic or Hexen and 10x12
 *	"GNUM[0-9]" from Doom alpha.)
 */
void usedidx_rectangle (const char *buf, long buf_size, const char *name,
    cusage_t *cusage)
{
  const unsigned char *p    = (const unsigned char *) buf;
  const unsigned char *pmax = p + buf_size;
  unsigned long       *uses = Malloc (NCOLOURS * sizeof *uses);
  int                  i;

  for (i = 0; i < NCOLOURS; i++)
    uses[i] = 0;
  for (; p < pmax; p++)
    uses[*p]++;
  for (i = 0; i < NCOLOURS; i++)
  {
    if (uses[i] > 0)
    {
      if (cusage->uses[i] == 0)
	memcpy (cusage->where_first[i], name, 8);
      cusage->uses[i] += uses[i];
      cusage->nlumps[i]++;
    }
  }
  Free (uses);
}