/**

 * $Id$

 *

 * Scene-save loader support. This is the other side of rendsave.c

 *

 * Copyright (c) 2005 Nathan Keynes.

 *

 * 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.

 */

#include <stdio.h>

#include <errno.h>

#include "lib.h"

#include "asic.h"

#include "pvr.h"

char *scene_magic = "%!-lxDream!Scene";

#define PVR2_BASE 0xA05F8000

#define COPYREG(x) long_write( (PVR2_BASE+x), scene_header.pvr2_regs[(x>>2)] )

int pvr2_render_load_scene( FILE *f )

{

    struct {

	char magic[16];

	uint32_t version;

	uint32_t timestamp;

	uint32_t frame_count;

	uint32_t pvr2_regs[0x400];

	uint32_t palette[0x400];

    } scene_header;

    uint32_t start = 0xFFFFFFFF, length;

    if( fread( &scene_header, sizeof(scene_header), 1, f ) != 1 ) {

	fprintf( stderr, "Failed to read scene header (%s)\n", strerror(errno) );

	return -1;

    }

    if( memcmp( scene_magic, scene_header.magic, 16 ) != 0 ) {

	fprintf( stderr, "Failed to load scene data: Header not found\n" );

	fclose(f);

	return -1;

    }

    fprintf( stdout, "Loaded header\n" );

    /* Load the VRAM sections */

    while(1) {

	fread( &start, sizeof(uint32_t), 1, f );

	if( start == 0xFFFFFFFF ) { /* EOF */

	    break;

	}

	fread( &length, sizeof(uint32_t), 1, f );

	int read = fread( (char *)(0xA5000000 + start), 1, length, f );

	if( read != length ) {

	    fprintf( stderr, "Failed to load %d bytes at %08X (Got %d - %s)\n",

		     length, start, read, strerror(errno) );

	    fclose(f);

	    return -2;

	} else {

	    fprintf( stdout, "Loaded %d bytes at %08X\n", length, start );

	}

    }

    /* Copy the fog table */

    memcpy( (char *)0xA05F8200, ((char *)scene_header.pvr2_regs) + 0x200, 0x200 );

    /* Copy the palette data */

    memcpy( (char *)0xA05F9000, scene_header.palette, 4096 );

    /* And now the other registers */

    COPYREG(0x018);

    COPYREG(0x020);

    COPYREG(0x02C);

    COPYREG(0x030);

    COPYREG(0x044);

    COPYREG(0x048);

    COPYREG(0x04C);

    COPYREG(0x05C);

    COPYREG(0x060);

    COPYREG(0x064);

    COPYREG(0x068);

    COPYREG(0x06C);

    COPYREG(0x074);

    COPYREG(0x078);

    COPYREG(0x07C);

    COPYREG(0x080);

    COPYREG(0x084);

    COPYREG(0x088);

    COPYREG(0x08C);

    COPYREG(0x098);

    COPYREG(0x0B0);

    COPYREG(0x0B4);

    COPYREG(0x0B8);

    COPYREG(0x0BC);

    COPYREG(0x0C0);

    COPYREG(0x0E4);

    COPYREG(0x0F4);

    COPYREG(0x108);

    COPYREG(0x110);

    COPYREG(0x114);

    COPYREG(0x118);    

    fprintf( stdout, "Load complete\n" );

    fclose(f);

}

void pvr2_render_loaded_scene()

{

    asic_clear();

    long_write( (PVR2_BASE+0x14), 0xFFFFFFFF );

    asic_wait( EVENT_PVR_RENDER_DONE );

    asic_clear();

    asic_wait( EVENT_RETRACE );

    uint32_t addr = long_read( (PVR2_BASE+0x060) );

    uint32_t mod = long_read( (PVR2_BASE+0x04C) );

    long_write( (PVR2_BASE+0x050), addr);

    long_write( (PVR2_BASE+0x054), addr + (mod<<3) );

}

int main()

{

    pvr_init();

    pvr2_render_load_scene(stdin);

    pvr2_render_loaded_scene();

    asic_clear();

    asic_wait(EVENT_RETRACE);

    asic_clear();

    asic_wait(EVENT_RETRACE);

    asic_clear();

    asic_wait(EVENT_RETRACE);

}