/**

  * $Id: ta.c,v 1.3 2006-03-15 13:16:50 nkeynes Exp $

  *

  * PVR2 Tile Accelerator support. In principle this does a lot more work

  * than is currently implemented - we cheat. A lot.

  *

  * 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 "pvr2/pvr2.h"

 #include "asic.h"

 #include "dream.h"

 /** Tile Accelerator */

 struct tacmd {

     uint32_t command;

     uint32_t param1;

     uint32_t param2;

     uint32_t texture;

     float alpha;

     float red;

     float green;

     float blue;

 };

 struct vertex_type1 {

     uint32_t command;

     float x, y, z;

     uint32_t blank, blank2;

     uint32_t col;

     float f;

 };

 struct pvr2_ta_status {

     uint32_t *length;

     unsigned int last_poly_type;

 } pvr2_ta_status = {NULL,0};

 /**

  * (Re)initialize the tile accelerator in preparation for the next scene.

  * Normally called immediately before commencing polygon transmission.

  */

 void pvr2_ta_init( void )

 {

     /* Set the buffer indexes */

     MMIO_WRITE( PVR2, TAOBJPOS, MMIO_READ( PVR2, TAOBJBASE ) );

     MMIO_WRITE( PVR2, TAOBJPPOS, MMIO_READ( PVR2, TAOBJPBASE ) );

     pvr2_ta_status.last_poly_type = 0;

     pvr2_ta_status.length = NULL;

 }

 /**

  * Write a block of data to the tile accelerator, adding the data to the 

  * current scene. We don't make any particular attempt to interpret the data

  * at this stage, deferring that until render time.

  *

  * Currently copies the data verbatim to the vertex buffer, processing only

  * far enough to generate the correct end-of-list events. Tile buffer is

  * entirely ignored.

  */

 void pvr2_ta_write( char *buf, uint32_t length )

 {

     int i;

     struct tacmd *cmd_list = (struct tacmd *)buf;

     uint32_t obj_addr = MMIO_READ( PVR2, TAOBJPOS );

     if( pvr2_ta_status.length == NULL ) { /* Start */

 	pvr2_ta_status.length = (uint32_t *)mem_get_region( PVR2_RAM_BASE + obj_addr );

 	obj_addr += 4;

 	*pvr2_ta_status.length = length;

     } else {

 	*pvr2_ta_status.length = *pvr2_ta_status.length + length;

     }

     mem_copy_to_sh4( PVR2_RAM_BASE + obj_addr, buf, length );

     MMIO_WRITE( PVR2, TAOBJPOS, obj_addr + length );

     int count = length >> 5;

     for( i=0; i<count; i++ ){

 	unsigned int type = (cmd_list[i].command >> 24) & 0xFF;

 	if( type == 0xE0 || type == 0xF0 ) {

 	    struct vertex_type1 *vert = (struct vertex_type1 *)&cmd_list[i];

 	    //	    DEBUG( "PVR2 vrt: %f %f %f %08X %08X %08X %f", vert->x, vert->y, vert->z, vert->blank, vert->blank2, vert->col, vert->f );

 	} else {

 	    //	    DEBUG( "PVR2 cmd: %08X %08X %08X %08X %08X %08X %08X %08X", cmd_list[i].command, cmd_list[i].param1, cmd_list[i].param2, cmd_list[i].texture, cmd_list[i].alpha, cmd_list[i].red, cmd_list[i].green, cmd_list[i].blue );

 	}

 	if( type == 0 ) {

 	    /* End of list */

 	    switch( pvr2_ta_status.last_poly_type ) {

 	    case 0x80: /* Opaque polys */

 		asic_event( EVENT_PVR_OPAQUE_DONE );

 		break;

 	    case 0x81: /* Opaque poly modifier */

 		asic_event( EVENT_PVR_OPAQUEMOD_DONE );

 		break;

 	    case 0x82: /* Transparent polys */

 		asic_event( EVENT_PVR_TRANS_DONE );

 		break;

 	    case 0x83: /* Transparent poly modifier */

 		asic_event( EVENT_PVR_TRANSMOD_DONE );

 		break;

 	    case 0x84: /* Punchthrough */

 		asic_event( EVENT_PVR_PUNCHOUT_DONE );

 		break;

 	    }

 	    pvr2_ta_status.last_poly_type = 0;

 	} else if( type >= 0x80 && type <= 0x84 ) {

 	    pvr2_ta_status.last_poly_type = type;

 	}

     }

 }