/**
 * $Id:$
 * ***** BEGIN GPL/BL DUAL LICENSE BLOCK *****
 *
 * The contents of this file may be used under the terms of either the GNU
 * General Public License Version 2 or later (the "GPL", see
 * http://www.gnu.org/licenses/gpl.html ), or the Blender License 1.0 or
 * later (the "BL", see http://www.blender.org/BL/ ) which has to be
 * bought from the Blender Foundation to become active, in which case the
 * above mentioned GPL option does not apply.
 *
 * The Original Code is Copyright (C) 2002 by NaN Holding BV.
 * All rights reserved.
 *
 * The Original Code is: all of this file.
 *
 * Contributor(s): none yet.
 *
 * ***** END GPL/BL DUAL LICENSE BLOCK *****
 */

#include <stdlib.h>

#include <stdarg.h>
#include <stdio.h>
#include <ctype.h>
#include "avi.h"
#include "endian.h"

static int AVI_DEBUG=0;
static char DEBUG_FCC[4];

#define DEBUG(x) if(AVI_DEBUG) printf("AVI DEBUG: " x);

unsigned int GET_FCC (FILE *fp) {
	unsigned char tmp[4];

	tmp[0] = getc(fp);
	tmp[1] = getc(fp);
	tmp[2] = getc(fp);
	tmp[3] = getc(fp);

	return FCC (tmp);
}

unsigned int GET_TCC (FILE *fp) {
	char tmp[5];

	tmp[0] = getc(fp);
	tmp[1] = getc(fp);
	tmp[2] = 0;
	tmp[3] = 0;

	return FCC (tmp);
}

char *fcc_to_char (unsigned int fcc) {
	DEBUG_FCC[0]= (fcc)&0177;
	DEBUG_FCC[1]= (fcc>>8)&0177;
	DEBUG_FCC[2]= (fcc>>16)&0177;
	DEBUG_FCC[3]= (fcc>>24)&0177;

	return DEBUG_FCC;	
}

char *tcc_to_char (unsigned int tcc) {
	DEBUG_FCC[0]= (tcc)&0177;
	DEBUG_FCC[1]= (tcc>>8)&0177;
	DEBUG_FCC[2]= 0;
	DEBUG_FCC[3]= 0;

	return DEBUG_FCC;	
}

int avi_get_stream (AviMovie *movie, int avist_type, int stream_num) {
	int cur_stream;

	if (movie == NULL)
		return -AVI_ERROR_OPTION;

	for (cur_stream=0; cur_stream < movie->header->Streams; cur_stream++) {
		if (movie->streams[cur_stream].sh.Type == avist_type) {
			if (stream_num == 0)
				return cur_stream;
			else
				stream_num--;
		}
	}

	return -AVI_ERROR_FOUND;
}

static int fcc_get_stream (int fcc) {
	char fccs[4];

	fccs[0] = fcc;
	fccs[1] = fcc>>8;
	fccs[2] = fcc>>16;
	fccs[3] = fcc>>24;

	return 10*(fccs[0]-'0') + (fccs[1]-'0');
}

static int fcc_is_data (int fcc) {
	char fccs[4];

	fccs[0] = fcc;
	fccs[1] = fcc>>8;
	fccs[2] = fcc>>16;
	fccs[3] = fcc>>24;

	if (!isdigit (fccs[0]) || !isdigit (fccs[1]) || (fccs[2] != 'd' && fccs[2] != 'w'))
		return 0;
	if (fccs[3] != 'b' && fccs[3] != 'c')
		return 0;

	return 1;
}

AviError avi_print_error (AviError in_error) {
	int error;

	if ((int) in_error < 0)
		error = -in_error;
	else
		error = in_error;

	switch (error) {
	case AVI_ERROR_NONE:
		break;
	case AVI_ERROR_COMPRESSION:
		printf ("AVI ERROR: compressed in an unsupported format\n");
		break;
	case AVI_ERROR_OPEN:
		printf ("AVI ERROR: could not open file\n");
		break;
	case AVI_ERROR_READING:
		printf ("AVI ERROR: could not read from file\n");
		break;
	case AVI_ERROR_WRITING:
		printf ("AVI ERROR: could not write to file\n");
		break;
	case AVI_ERROR_FORMAT:
		printf ("AVI ERROR: file is in an illegal or unrecognized format\n");
		break;
	case AVI_ERROR_ALLOC:
		printf ("AVI ERROR: error encountered while allocating memory\n");
		break;
	case AVI_ERROR_OPTION:
		printf ("AVI ERROR: program made illegal request\n");
		break;
	case AVI_ERROR_FOUND:
		printf ("AVI ERROR: movie did not contain expected item\n");
		break;
	default: 
		break;
	}

	return in_error;
}

void avi_set_debug (int mode) {
	AVI_DEBUG= mode;
}

int avi_is_avi (char *name) {
	FILE *fp;
	int ret;
	
	fp = fopen (name, "rb");
	if (fp == NULL)
		return 0;

	if (GET_FCC (fp) != FCC("RIFF") ||
	    !GET_FCC (fp) ||
	    GET_FCC (fp) != FCC("AVI ")) {
		ret = 0;
	} else {
		ret = 1;
	}

	fclose(fp);
	return ret;
}

AviError avi_open_movie (char *name, AviMovie *movie) {
	unsigned int temp, fcca, size, fcctmp;
	char tmp[5];
	
	DEBUG("opening movie\n");

	memset(movie, 0, sizeof(AviMovie));

	movie->type = AVI_MOVIE_READ;
	movie->fp = fopen (name, "rb");
	movie->offset_table = NULL;

	if (movie->fp == NULL)
		return AVI_ERROR_OPEN;

	if (GET_FCC (movie->fp) != FCC("RIFF") ||
	    !(movie->size = GET_FCC (movie->fp)))
		return AVI_ERROR_FORMAT;

	movie->header = (AviMainHeader *) mallocN (sizeof (AviMainHeader), "movieheader");

	if (GET_FCC (movie->fp) != FCC("AVI ") ||
	    GET_FCC (movie->fp) != FCC("LIST") ||
	    !GET_FCC (movie->fp) ||
	    GET_FCC (movie->fp) != FCC("hdrl") ||
	    (movie->header->fcc = GET_FCC (movie->fp)) != FCC("avih") ||
	    !(movie->header->size = GET_FCC (movie->fp))) {
		DEBUG("bad initial header info\n");
		return AVI_ERROR_FORMAT;
	}
	
	movie->header->MicroSecPerFrame = GET_FCC(movie->fp);
	movie->header->MaxBytesPerSec = GET_FCC(movie->fp);
	movie->header->PaddingGranularity = GET_FCC(movie->fp);
	movie->header->Flags = GET_FCC(movie->fp);
	movie->header->TotalFrames = GET_FCC(movie->fp);
	movie->header->InitialFrames = GET_FCC(movie->fp);
	movie->header->Streams = GET_FCC(movie->fp);
	movie->header->SuggestedBufferSize = GET_FCC(movie->fp);
	movie->header->Width = GET_FCC(movie->fp);
	movie->header->Height = GET_FCC(movie->fp);
	movie->header->Reserved[0] = GET_FCC(movie->fp);
	movie->header->Reserved[1] = GET_FCC(movie->fp);
	movie->header->Reserved[2] = GET_FCC(movie->fp);
	movie->header->Reserved[3] = GET_FCC(movie->fp);

	fseek (movie->fp, movie->header->size-14*4, SEEK_CUR);

	if (movie->header->Streams < 1) {
		DEBUG("streams less than 1\n");
		return AVI_ERROR_FORMAT;
	}
	
	movie->streams = (AviStreamRec *) mallocN (sizeof(AviStreamRec) * movie->header->Streams, "moviestreams");

	for (temp=0; temp < movie->header->Streams; temp++) {
		movie->streams[temp].sf = NULL;

		if (GET_FCC(movie->fp) != FCC("LIST") ||
		    !GET_FCC (movie->fp) ||
		    GET_FCC (movie->fp) != FCC ("strl") ||
		    (movie->streams[temp].sh.fcc = GET_FCC (movie->fp)) != FCC ("strh") ||
		    !(movie->streams[temp].sh.size = GET_FCC (movie->fp))) {
			DEBUG("bad stream header information\n");
			return AVI_ERROR_FORMAT;				
		}

		movie->streams[temp].sh.Type = GET_FCC (movie->fp);
		movie->streams[temp].sh.Handler = GET_FCC (movie->fp);

		fcca = movie->streams[temp].sh.Handler;
		
		if (movie->streams[temp].sh.Type == FCC("vids")) {
			if (fcca == FCC ("DIB ") ||
				fcca == FCC ("RGB ") ||
				fcca == FCC ("rgb ") ||
				fcca == FCC ("RAW ") ||
				fcca == 0) {
				movie->streams[temp].format = AVI_FORMAT_AVI_RGB;
			} else if (fcca == FCC ("JMF "))
				movie->streams[temp].format = AVI_FORMAT_JMF;
			else if (fcca == FCC ("mjpg")||fcca == FCC ("MJPG"))
				movie->streams[temp].format = AVI_FORMAT_MJPEG;
			else {
				return AVI_ERROR_COMPRESSION;
			}
		}
		
		movie->streams[temp].sh.Flags = GET_FCC (movie->fp);
		movie->streams[temp].sh.Priority = GET_TCC (movie->fp);
		movie->streams[temp].sh.Language = GET_TCC (movie->fp);
		movie->streams[temp].sh.InitialFrames = GET_FCC (movie->fp);
		movie->streams[temp].sh.Scale = GET_FCC (movie->fp);
		movie->streams[temp].sh.Rate = GET_FCC (movie->fp);
		movie->streams[temp].sh.Start = GET_FCC (movie->fp);
		movie->streams[temp].sh.Length = GET_FCC (movie->fp);
		movie->streams[temp].sh.SuggestedBufferSize = GET_FCC (movie->fp);
		movie->streams[temp].sh.Quality = GET_FCC (movie->fp);
		movie->streams[temp].sh.SampleSize = GET_FCC (movie->fp);
		movie->streams[temp].sh.left = GET_TCC (movie->fp);
		movie->streams[temp].sh.top = GET_TCC (movie->fp);
		movie->streams[temp].sh.right = GET_TCC (movie->fp);
		movie->streams[temp].sh.bottom = GET_TCC (movie->fp);

		fseek (movie->fp, movie->streams[temp].sh.size-14*4, SEEK_CUR);

		if (GET_FCC (movie->fp) != FCC("strf")) {
			DEBUG("no stream format information\n");
			return AVI_ERROR_FORMAT;
		}

		movie->streams[temp].sf_size= GET_FCC(movie->fp);
		if (movie->streams[temp].sh.Type == FCC("vids")) {
			if (movie->streams[temp].sf_size == sizeof(AviBitmapInfoHeader)-8) {
				AviBitmapInfoHeader *bi;
				
				movie->streams[temp].sf= mallocN(sizeof(AviBitmapInfoHeader), "streamformat");
				
				bi= (AviBitmapInfoHeader *) movie->streams[temp].sf;
				
				bi->fcc= FCC("strf");
				bi->size= movie->streams[temp].sf_size;
				bi->Size= GET_FCC(movie->fp);
				bi->Width= GET_FCC(movie->fp);
				bi->Height= GET_FCC(movie->fp);
				bi->Planes= GET_TCC(movie->fp);
				bi->BitCount= GET_TCC(movie->fp);
				bi->Compression= GET_FCC(movie->fp);
				bi->SizeImage= GET_FCC(movie->fp);
				bi->XPelsPerMeter= GET_FCC(movie->fp);
				bi->YPelsPerMeter= GET_FCC(movie->fp);
				bi->ClrUsed= GET_FCC(movie->fp);
				bi->ClrImportant= GET_FCC(movie->fp);
			} else fseek (movie->fp, movie->streams[temp].sf_size, SEEK_CUR);
		} else fseek (movie->fp, movie->streams[temp].sf_size, SEEK_CUR);
		
		/* Walk to the next LIST */		
		while (GET_FCC (movie->fp) != FCC("LIST")) {
			temp= GET_FCC (movie->fp);
			if (temp<0 || ftell(movie->fp) > movie->size) {
				DEBUG("incorrect size in header or error in AVI\n");
			    return AVI_ERROR_FORMAT;				
			}
			fseek(movie->fp, temp, SEEK_CUR);			
		}
		
		fseek(movie->fp, -4L, SEEK_CUR);		
	}

	while (1) {
		temp = GET_FCC (movie->fp);
		size = GET_FCC (movie->fp);

		if (size == 0)
			break;

		if (temp == FCC("LIST")) {
			if (GET_FCC(movie->fp) == FCC ("movi"))
				break;
			else
				fseek (movie->fp, size-4, SEEK_CUR);
		} else {
			fseek (movie->fp, size, SEEK_CUR);
		}
		if (ftell(movie->fp) > movie->size) {
			DEBUG("incorrect size in header or error in AVI\n");
		    return AVI_ERROR_FORMAT;
		}
	}

	movie->movi_offset = ftell (movie->fp);
	movie->read_offset = movie->movi_offset;
	if (AVI_DEBUG) printf ("movi_offset is %d\n", movie->movi_offset);
	
	/* Read in the index if the file has one, otherwise create one */
	if (movie->header->Flags & AVIF_HASINDEX) {
		fseek(movie->fp, size-4, SEEK_CUR);

		if (GET_FCC(movie->fp) != FCC("idx1")) {
			DEBUG("bad index informatio\n");
			return AVI_ERROR_FORMAT;
		}

		movie->index_entries = GET_FCC (movie->fp)/sizeof(AviIndexEntry);
		if (movie->index_entries == 0) {
			DEBUG("no index entries\n");
			return AVI_ERROR_FORMAT;
		}

		movie->entries = (AviIndexEntry *) mallocN (movie->index_entries * sizeof(AviIndexEntry),"movieentries");

		for (temp=0; temp < movie->index_entries; temp++) {
			movie->entries[temp].ChunkId = GET_FCC (movie->fp);
			movie->entries[temp].Flags = GET_FCC (movie->fp);
			movie->entries[temp].Offset = GET_FCC (movie->fp);
			movie->entries[temp].Size = GET_FCC (movie->fp);
			
			if (AVI_DEBUG) printf ("Index entry %04d: ChunkId:%s Flags:%d Offset:%d Size:%d\n", temp, fcc_to_char(movie->entries[temp].ChunkId), movie->entries[temp].Flags, movie->entries[temp].Offset, movie->entries[temp].Size);
		}

/* Some AVI's have offset entries in absolute coordinates
 * instead of an offset from the movie beginning... this is...
 * wacky, but we need to handle it. The wacky offset always
 * starts at movi_offset it seems... so we'll check that.
 * Note the the offset needs an extra 4 bytes for some 
 * undetermined reason */
 
		if (movie->entries[0].Offset == movie->movi_offset)
			movie->read_offset= 4;
	}

	DEBUG("movie succesfully opened\n");
	return AVI_ERROR_NONE;
}

void *avi_read_frame (AviMovie *movie, AviFormat format, int frame, int stream) {
	int cur_frame=-1, i=0, temp;
	void *buffer;

	/* Retrieve the record number of the desired frame in the index */

	while (cur_frame < frame && i < movie->index_entries) {
		if (fcc_is_data (movie->entries[i].ChunkId) &&
		    fcc_get_stream (movie->entries[i].ChunkId) == stream)
			cur_frame++;

		i++;
	}

	if (cur_frame != frame) return NULL;
	
	fseek (movie->fp, movie->read_offset + movie->entries[i-1].Offset, SEEK_SET);

	temp = GET_FCC(movie->fp);
	buffer = mallocN (temp,"readbuffer");

	if (fread (buffer, 1, temp, movie->fp) != temp) {
		freeN(buffer);

		return NULL;
	}
	
	buffer = avi_format_convert (movie, stream, buffer, movie->streams[stream].format, format, &temp);

	return buffer;
}

AviError avi_close (AviMovie *movie) {
	int i;

	fclose (movie->fp);

	for (i=0; i < movie->header->Streams; i++) {
		if (movie->streams[i].sf != NULL)
			freeN (movie->streams[i].sf);
	}

	if (movie->header != NULL)
		freeN (movie->header);
	if (movie->streams!= NULL)
		freeN (movie->streams);
	if (movie->entries != NULL)
		freeN (movie->entries);
	if (movie->offset_table != NULL)
		freeN (movie->offset_table);

	return AVI_ERROR_NONE;
}

AviError avi_open_compress (char *name, AviMovie *movie, int streams, ...) {
	va_list ap;
	AviList list;
	AviChunk chunk;
	int i;
	int header_pos1, header_pos2;
	int stream_pos1, stream_pos2;

	movie->type = AVI_MOVIE_WRITE;
	movie->fp = fopen (name, "wb");

	movie->index_entries = 0;

	if (movie->fp == NULL)
		return AVI_ERROR_OPEN;

	movie->offset_table = (long *) mallocN ((1+streams*2) * sizeof (long),"offsettable");
	
	for (i=0; i < 1 + streams*2; i++)
		movie->offset_table[i] = -1L;

	movie->entries = NULL;

	movie->header = (AviMainHeader *) mallocN (sizeof(AviMainHeader),"movieheader");

	movie->header->fcc = FCC("avih");
	movie->header->size = 56;
	movie->header->MicroSecPerFrame = 66667;
 	movie->header->MaxBytesPerSec = 0; 
 	movie->header->PaddingGranularity = 0; 
 	movie->header->Flags = AVIF_HASINDEX | AVIF_MUSTUSEINDEX;
	movie->header->TotalFrames = 0;
	movie->header->InitialFrames = 0;
	movie->header->Streams = streams;
	movie->header->SuggestedBufferSize = 0;
	movie->header->Width = 0;
	movie->header->Height = 0;
	movie->header->Reserved[0] = 0;
	movie->header->Reserved[1] = 0;
	movie->header->Reserved[2] = 0;
	movie->header->Reserved[3] = 0;

	movie->streams = (AviStreamRec *) mallocN (sizeof(AviStreamRec) * movie->header->Streams,"moviestreams");

	va_start (ap, streams);

	for (i=0; i < movie->header->Streams; i++) {
		movie->streams[i].format = va_arg(ap, AviFormat);

		movie->streams[i].sh.fcc = FCC ("strh");
		movie->streams[i].sh.size = 56;
		movie->streams[i].sh.Type = avi_get_format_type (movie->streams[i].format);
		if (movie->streams[i].sh.Type == 0)
			return AVI_ERROR_FORMAT;

		movie->streams[i].sh.Handler = avi_get_format_fcc (movie->streams[i].format);
		if (movie->streams[i].sh.Handler == 0)
			return AVI_ERROR_FORMAT;

		movie->streams[i].sh.Flags = 0;
		movie->streams[i].sh.Priority = 0;
		movie->streams[i].sh.Language = 0;
		movie->streams[i].sh.InitialFrames = 0;
		movie->streams[i].sh.Scale = 66667;
		movie->streams[i].sh.Rate = 1000000;
		movie->streams[i].sh.Start = 0;
		movie->streams[i].sh.Length = 0;
		movie->streams[i].sh.SuggestedBufferSize = 0;
		movie->streams[i].sh.Quality = 10000;
		movie->streams[i].sh.SampleSize = 0;
		movie->streams[i].sh.left = 0;
		movie->streams[i].sh.top = 0;
		movie->streams[i].sh.right = 0;
		movie->streams[i].sh.bottom = 0;

		if (movie->streams[i].sh.Type == FCC("vids")) {	
			if (movie->streams[i].format == AVI_FORMAT_MJPEG) {
				movie->streams[i].sf = mallocN (sizeof(AviBitmapInfoHeader) 
										+ sizeof(AviMJPEGUnknown),"moviestreamformatL");
				movie->streams[i].sf_size = sizeof(AviBitmapInfoHeader) + sizeof(AviMJPEGUnknown);
			} else {
				movie->streams[i].sf = mallocN (sizeof(AviBitmapInfoHeader),  "moviestreamformatS");
				movie->streams[i].sf_size = sizeof(AviBitmapInfoHeader);
			}
			((AviBitmapInfoHeader *) movie->streams[i].sf)->fcc = FCC ("strf");
			((AviBitmapInfoHeader *) movie->streams[i].sf)->size = movie->streams[i].sf_size - 8;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->Size = movie->streams[i].sf_size - 8;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->Width = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->Height = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->Planes = 1;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->BitCount = 24;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->Compression = avi_get_format_compression (movie->streams[i].format);
			((AviBitmapInfoHeader *) movie->streams[i].sf)->SizeImage = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->XPelsPerMeter = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->YPelsPerMeter = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->ClrUsed = 0;
			((AviBitmapInfoHeader *) movie->streams[i].sf)->ClrImportant = 0;

			if (movie->streams[i].format == AVI_FORMAT_MJPEG) {
				AviMJPEGUnknown *tmp;
				
				tmp = (AviMJPEGUnknown *) ((char*) movie->streams[i].sf +sizeof(AviBitmapInfoHeader));
				
				tmp->a = 44;
				tmp->b = 24;
				tmp->c = 0;
				tmp->d = 2;
				tmp->e = 8;
				tmp->f = 2;
				tmp->g = 1;
			}
		} else if (movie->streams[i].sh.Type == FCC("auds")) {
			;
		}
	}

	list.fcc = FCC("RIFF");
	list.size = 0;
	list.ids = FCC("AVI ");

	awrite (movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);

	list.fcc = FCC("LIST");
	list.size = 0;
	list.ids = FCC("hdrl");

	awrite (movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);

	header_pos1 = ftell(movie->fp);

	movie->offset_table[0] = ftell(movie->fp);

	awrite (movie, movie->header, 1, sizeof(AviMainHeader), movie->fp, AVI_MAINH);

	for (i=0; i < movie->header->Streams; i++) {
		list.fcc = FCC("LIST");
		list.size = 0;
		list.ids = FCC("strl");

		awrite (movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);

		stream_pos1 = ftell(movie->fp);

		movie->offset_table[1+i*2] = ftell(movie->fp);
		awrite (movie, &movie->streams[i].sh, 1, sizeof(AviStreamHeader), movie->fp, AVI_STREAMH);

		movie->offset_table[1+i*2+1] = ftell(movie->fp);
		awrite (movie, movie->streams[i].sf, 1, movie->streams[i].sf_size, movie->fp, AVI_BITMAPH);

		stream_pos2 = ftell(movie->fp);

		fseek (movie->fp, stream_pos1-8, SEEK_SET);

		PUT_FCCN((stream_pos2-stream_pos1+4L), movie->fp);

		fseek (movie->fp, stream_pos2, SEEK_SET);
	}

	if (ftell(movie->fp) < 2024 - 8) {
		chunk.fcc = FCC("JUNK");
		chunk.size = 2024-8-ftell(movie->fp);

		awrite (movie, &chunk, 1, sizeof(AviChunk), movie->fp, AVI_CHUNK);

		for (i=0; i < chunk.size; i++)
			putc(0, movie->fp);
	}

	header_pos2 = ftell(movie->fp);

	list.fcc = FCC("LIST");
	list.size = 0;
	list.ids = FCC("movi");

	awrite (movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);

	movie->movi_offset = ftell(movie->fp)-8L;

	fseek (movie->fp, AVI_HDRL_SOFF, SEEK_SET);

	PUT_FCCN((header_pos2-header_pos1+4L), movie->fp);

	return AVI_ERROR_NONE;
}

AviError avi_write_frame (AviMovie *movie, int frame_num, ...) {
	AviList list;
	AviChunk chunk;
	AviIndexEntry *temp;
	va_list ap;
	int stream;
	long rec_off;
	AviFormat format;
	void *buffer;
	char *tbuf;
	int size;

	if (frame_num < 0)
		return AVI_ERROR_OPTION;

	/* Allocate the new memory for the index entry */

	if (frame_num+1 > movie->index_entries) {
		temp = (AviIndexEntry *) mallocN ((frame_num+1) * 
		    (movie->header->Streams+1) * sizeof(AviIndexEntry),"newidxentry");
		if (movie->entries != NULL) {
			memcpy (temp, movie->entries, movie->index_entries * (movie->header->Streams+1)
			    * sizeof(AviIndexEntry));
			freeN (movie->entries);
		}

		movie->entries = temp;
		movie->index_entries = frame_num+1;
	}

	/* Slap a new record entry onto the end of the file */

	fseek (movie->fp, 0L, SEEK_END);

	list.fcc = FCC("LIST");
	list.size = 0;
	list.ids = FCC("rec ");

	awrite (movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);

	rec_off = ftell (movie->fp)-8L;

	/* Write a frame for every stream */

	va_start (ap, frame_num);

	for (stream=0; stream < movie->header->Streams; stream++) {
		unsigned int tbuf=0;
		
		format = va_arg (ap, AviFormat);
		buffer = va_arg (ap, void*);
		size = va_arg (ap, int);

		/* Convert the buffer into the output format */
		buffer = avi_format_convert (movie, stream, buffer, format, movie->streams[stream].format, &size);

		/* Write the header info for this data chunk */

		fseek (movie->fp, 0L, SEEK_END);

		chunk.fcc = avi_get_data_id (format, stream);
		chunk.size = size;
		
		if (size%4) chunk.size += 4 - size%4;
		
		awrite (movie, &chunk, 1, sizeof(AviChunk), movie->fp, AVI_CHUNK);

		/* Write the index entry for this data chunk */

		movie->entries[frame_num * (movie->header->Streams+1) + stream + 1].ChunkId = chunk.fcc;
		movie->entries[frame_num * (movie->header->Streams+1) + stream + 1].Flags = AVIIF_KEYFRAME;
		movie->entries[frame_num * (movie->header->Streams+1) + stream + 1].Offset = ftell(movie->fp)-12L-movie->movi_offset;
		movie->entries[frame_num * (movie->header->Streams+1) + stream + 1].Size = chunk.size;

		/* Write the chunk */
		awrite (movie, buffer, 1, size, movie->fp, AVI_RAW);
		freeN (buffer);

		if (size%4) awrite (movie, &tbuf, 1, 4-size%4, movie->fp, AVI_RAW);

		/* Update the stream headers length field */
		movie->streams[stream].sh.Length++;
		fseek (movie->fp, movie->offset_table[1+stream*2], SEEK_SET);
		awrite (movie, &movie->streams[stream].sh, 1, sizeof(AviStreamHeader), movie->fp, AVI_STREAMH);
	}
	va_end (ap);

	/* Record the entry for the new record */

	fseek (movie->fp, 0L, SEEK_END);

	movie->entries[frame_num * (movie->header->Streams+1)].ChunkId = FCC("rec ");
	movie->entries[frame_num * (movie->header->Streams+1)].Flags = AVIIF_LIST;
	movie->entries[frame_num * (movie->header->Streams+1)].Offset = rec_off-8L-movie->movi_offset;
	movie->entries[frame_num * (movie->header->Streams+1)].Size = ftell(movie->fp)-(rec_off+4L);

	/* Update the record size */
	fseek (movie->fp, rec_off, SEEK_SET);
	PUT_FCCN (movie->entries[frame_num * (movie->header->Streams+1)].Size, movie->fp);

	/* Update the main header information in the file */
	movie->header->TotalFrames++;
	fseek (movie->fp, movie->offset_table[0], SEEK_SET);
	awrite (movie, movie->header, 1, sizeof(AviMainHeader), movie->fp, AVI_MAINH);

	return AVI_ERROR_NONE;
}

AviError avi_close_compress (AviMovie *movie) {
	int temp, movi_size, i;

	fseek (movie->fp, 0L, SEEK_END);
	movi_size = ftell (movie->fp);

	PUT_FCC ("idx1", movie->fp);
	PUT_FCCN ((movie->index_entries*(movie->header->Streams+1)*16), movie->fp);

	for (temp=0; temp < movie->index_entries*(movie->header->Streams+1); temp++)
		awrite (movie, &movie->entries[temp], 1, sizeof(AviIndexEntry), movie->fp, AVI_INDEXE);

	temp = ftell (movie->fp);

	fseek (movie->fp, AVI_RIFF_SOFF, SEEK_SET);

	PUT_FCCN((temp-8L), movie->fp);

	fseek (movie->fp, movie->movi_offset, SEEK_SET);

	PUT_FCCN((movi_size-(movie->movi_offset+4L)),movie->fp);

	fclose (movie->fp);

	for (i=0; i < movie->header->Streams; i++) {
		if (movie->streams[i].sf != NULL)
			freeN (movie->streams[i].sf);
	}
	if (movie->header != NULL)
		freeN (movie->header);
	if (movie->entries != NULL)
		freeN (movie->entries);
	if (movie->streams != NULL)
		freeN (movie->streams);
	if (movie->offset_table != NULL)
		freeN (movie->offset_table);
	return AVI_ERROR_NONE;
}