/****************************************************************
 * aframe.c
 * 
 * Copyright (C) 1995-2002 Klaus Ehrenfried
 * 
 * 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 program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 *************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <memory.h>
#include "apro.h"

static unsigned char frame_header[FLI_FRAME_HEADER_SIZE];

/****************************************************************
 * fli_write_frame
 ****************************************************************/

int fli_write_frame(ISS *diff, ISS *prev, ISS *curr)
{
  int chunks, size_color, size_pixel, help;
  int frame_size;

  chunks=0;
  /* fprintf(stdout," Making color chunk .....\n"); */
  size_color=make_color_chunk(diff, prev, curr);

  if (prev == NULL)		        /* if first frame */
    {
      if (size_color == 0)		/* error occured */
	{
	  fprintf(stderr,"Error: no colors in first frame\n");
	  return(-1);
	}

      /* fprintf(stdout," Making brun chunk .....\n"); */
      size_pixel=make_brun_chunk(curr->pixels);

      if (size_pixel == 0)		/* error occured */
	{
	  fprintf(stderr,"Error: no pixels in first frame\n");
	  return(-1);
	}
      chunks=2;
    }
  else
    {
      if (size_color > 0)
	chunks++;

      /* fprintf(stdout," Making delta chunk .....\n"); */
      if (old_format_flag == 1)
	size_pixel=make_lc_chunk(diff->pixels, prev->pixels, curr->pixels);
      else
	size_pixel=make_delta_chunk(diff->pixels, prev->pixels, curr->pixels);

      if (size_pixel > 0)
	chunks++;
      else
	fprintf(stdout," No new pixels\n");
    }

  frame_size=FLI_FRAME_HEADER_SIZE+size_color+size_pixel;

  help=0;
  add_bytes(frame_header, &help, frame_size, IOM_LONG);
  add_bytes(frame_header, &help, FLI_FRAME_MAGIC, IOM_UWORD);
  add_bytes(frame_header, &help, chunks, IOM_UWORD);
  add_bytes(frame_header, &help, 0x0000, IOM_LONG);
  add_bytes(frame_header, &help, 0x0000, IOM_LONG);

  if (fwrite(frame_header, 1, FLI_FRAME_HEADER_SIZE, output) != 
      FLI_FRAME_HEADER_SIZE)
    return(-1);

  if (size_color > 0)
    {
      if (fwrite(color_chunk_buffer, 1, size_color, output) != size_color)
	return(-1);
    }

  if (size_pixel > 0)
    {
      if (fwrite(pixel_chunk_buffer, 1, size_pixel, output) != size_pixel)
	return(-1);
    }

  return(frame_size);
}

/****************************************************************
 * add_bytes
 ****************************************************************/

void add_bytes(unsigned char record[], int *ipos, int value, int mode)
{
    int help;

    switch (mode)
    {
        case IOM_UBYTE:
	    record[(*ipos)++]=value;
	    break;

        case IOM_SBYTE:
	    value=(value >= 0) ? value : (256 + value);
	    value=(value >= 0) ? value : 0;
	    record[(*ipos)++]=value;
	    break;

        case IOM_UWORD:
	    help=value % 256;
	    record[(*ipos)++]=help;
	    help=(value - help)/256;
	    record[(*ipos)++]=help;
	    break;

        case IOM_SWORD:
	    value=(value >= 0) ? value : (65536 + value);
	    value=(value >= 0) ? value : 0;
	    help=value % 256;
	    record[(*ipos)++]=help;
	    help=(value - help)/256;
	    record[(*ipos)++]=help;
	    break;

        case IOM_LONG:
	    value=(value >= 0) ? value : 0;
	    help=value % 256;
	    record[(*ipos)++]=help;
	    value=(value - help)/256;

	    help=value % 256;
	    record[(*ipos)++]=help;
	    value=(value - help)/256;

	    help=value % 256;
	    record[(*ipos)++]=help;
	    value=(value - help)/256;

	    help=value % 256;
	    record[(*ipos)++]=help;
	    break;
    }
}
/* -- FIN -- */