nkeynes@653: /**
nkeynes@653:  * $Id$
nkeynes@653:  *
nkeynes@653:  * Manage the internal vertex/polygon buffers and scene data structure. 
nkeynes@653:  * Where possible this uses VBOs for the vertex + index data.
nkeynes@653:  *
nkeynes@653:  * Copyright (c) 2005 Nathan Keynes.
nkeynes@653:  *
nkeynes@653:  * This program is free software; you can redistribute it and/or modify
nkeynes@653:  * it under the terms of the GNU General Public License as published by
nkeynes@653:  * the Free Software Foundation; either version 2 of the License, or
nkeynes@653:  * (at your option) any later version.
nkeynes@653:  *
nkeynes@653:  * This program is distributed in the hope that it will be useful,
nkeynes@653:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
nkeynes@653:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nkeynes@653:  * GNU General Public License for more details.
nkeynes@653:  */
nkeynes@653: 
nkeynes@653: #include <assert.h>
nkeynes@653: #include <string.h>
nkeynes@653: #include <math.h>
nkeynes@653: #include "lxdream.h"
nkeynes@653: #include "display.h"
nkeynes@653: #include "pvr2/pvr2.h"
nkeynes@677: #include "pvr2/pvr2mmio.h"
nkeynes@653: #include "pvr2/glutil.h"
nkeynes@653: #include "pvr2/scene.h"
nkeynes@653: 
nkeynes@687: static void unpack_bgra(uint32_t bgra, float *rgba)
nkeynes@687: {
nkeynes@687:     rgba[0] = ((float)(((bgra&0x00FF0000)>>16) + 1)) / 256.0;
nkeynes@687:     rgba[1] = ((float)(((bgra&0x0000FF00)>>8) + 1)) / 256.0;
nkeynes@687:     rgba[2] = ((float)((bgra&0x000000FF) + 1)) / 256.0;
nkeynes@687:     rgba[3] = ((float)(((bgra&0xFF000000)>>24) + 1)) / 256.0;
nkeynes@687: }
nkeynes@653: 
nkeynes@653: static inline uint32_t bgra_to_rgba(uint32_t bgra)
nkeynes@653: {
nkeynes@653:     return (bgra&0xFF00FF00) | ((bgra&0x00FF0000)>>16) | ((bgra&0x000000FF)<<16);
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Convert a half-float (16-bit) FP number to a regular 32-bit float.
nkeynes@653:  * Source is 1-bit sign, 5-bit exponent, 10-bit mantissa.
nkeynes@653:  * TODO: Check the correctness of this.
nkeynes@653:  */
nkeynes@653: static float halftofloat( uint16_t half )
nkeynes@653: {
nkeynes@653:     union {
nkeynes@653:         float f;
nkeynes@653:         uint32_t i;
nkeynes@653:     } temp;
nkeynes@653:     temp.i = ((uint32_t)half)<<16;
nkeynes@653:     return temp.f;
nkeynes@653: }
nkeynes@653: 
nkeynes@653: 
nkeynes@653: 
nkeynes@653: 
nkeynes@653: 
nkeynes@653: struct pvr2_scene_struct pvr2_scene;
nkeynes@653: 
nkeynes@653: static gboolean vbo_init = FALSE;
nkeynes@669: 
nkeynes@669: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653: static gboolean vbo_supported = FALSE;
nkeynes@669: #endif
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Test for VBO support, and allocate all the system memory needed for the
nkeynes@653:  * temporary structures. GL context must have been initialized before this
nkeynes@653:  * point.
nkeynes@653:  */
nkeynes@653: void pvr2_scene_init()
nkeynes@653: {
nkeynes@653:     if( !vbo_init ) {
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@736:         if( isGLVertexBufferSupported() ) {
nkeynes@736:             vbo_supported = TRUE;
nkeynes@736:             pvr2_scene.vbo_id = 1;
nkeynes@736:         }
nkeynes@653: #endif
nkeynes@736:         pvr2_scene.vertex_array = NULL;
nkeynes@736:         pvr2_scene.vertex_array_size = 0;
nkeynes@736:         pvr2_scene.poly_array = g_malloc( MAX_POLY_BUFFER_SIZE );
nkeynes@736:         pvr2_scene.buf_to_poly_map = g_malloc0( BUF_POLY_MAP_SIZE );
nkeynes@736:         vbo_init = TRUE;
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Clear the scene data structures in preparation for fresh data
nkeynes@653:  */
nkeynes@653: void pvr2_scene_reset()
nkeynes@653: {
nkeynes@653:     pvr2_scene.poly_count = 0;
nkeynes@653:     pvr2_scene.vertex_count = 0;
nkeynes@653:     memset( pvr2_scene.buf_to_poly_map, 0, BUF_POLY_MAP_SIZE );
nkeynes@653: }
nkeynes@653: 
nkeynes@653: void pvr2_scene_shutdown()
nkeynes@653: {
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653:     if( vbo_supported ) {
nkeynes@736:         glBindBufferARB( GL_ARRAY_BUFFER_ARB, 0 );
nkeynes@736:         glDeleteBuffersARB( 1, &pvr2_scene.vbo_id );
nkeynes@736:         pvr2_scene.vbo_id = 0;
nkeynes@653:     } else {
nkeynes@653: #endif
nkeynes@736:         g_free( pvr2_scene.vertex_array );
nkeynes@736:         pvr2_scene.vertex_array = NULL;
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653:     }
nkeynes@653: #endif
nkeynes@653: 
nkeynes@653:     g_free( pvr2_scene.poly_array );
nkeynes@653:     pvr2_scene.poly_array = NULL;
nkeynes@653:     g_free( pvr2_scene.buf_to_poly_map );
nkeynes@653:     pvr2_scene.buf_to_poly_map = NULL;
nkeynes@653:     vbo_init = FALSE;
nkeynes@653: }
nkeynes@653: 
nkeynes@653: void *vertex_buffer_map()
nkeynes@653: {
nkeynes@687:     // Allow 8 vertexes for the background (4+4)
nkeynes@687:     uint32_t size = (pvr2_scene.vertex_count + 8) * sizeof(struct vertex_struct);
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653:     if( vbo_supported ) {
nkeynes@690:         glGetError();
nkeynes@736:         glBindBufferARB( GL_ARRAY_BUFFER_ARB, pvr2_scene.vbo_id );
nkeynes@736:         if( size > pvr2_scene.vertex_array_size ) {
nkeynes@736:             glBufferDataARB( GL_ARRAY_BUFFER_ARB, size, NULL, GL_DYNAMIC_DRAW_ARB );
nkeynes@736:             int status = glGetError();
nkeynes@736:             if( status != 0 ) {
nkeynes@736:                 fprintf( stderr, "Error %08X allocating vertex buffer\n", status );
nkeynes@736:                 abort();
nkeynes@736:             }
nkeynes@736:             pvr2_scene.vertex_array_size = size;
nkeynes@736:         }
nkeynes@736:         pvr2_scene.vertex_array = glMapBufferARB( GL_ARRAY_BUFFER_ARB, GL_WRITE_ONLY_ARB );
nkeynes@736:         assert(pvr2_scene.vertex_array != NULL );
nkeynes@653:     } else {
nkeynes@653: #endif
nkeynes@736:         if( size > pvr2_scene.vertex_array_size ) {
nkeynes@736:             pvr2_scene.vertex_array = g_realloc( pvr2_scene.vertex_array, size );
nkeynes@736:         }
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653:     }
nkeynes@653: #endif
nkeynes@653:     return pvr2_scene.vertex_array;
nkeynes@653: }
nkeynes@653: 
nkeynes@653: gboolean vertex_buffer_unmap()
nkeynes@653: {
nkeynes@653: #ifdef ENABLE_VERTEX_BUFFER
nkeynes@653:     if( vbo_supported ) {
nkeynes@736:         pvr2_scene.vertex_array = NULL;
nkeynes@736:         return glUnmapBufferARB( GL_ARRAY_BUFFER_ARB );
nkeynes@653:     } else {
nkeynes@736:         return TRUE;
nkeynes@653:     }
nkeynes@653: #else
nkeynes@653:     return TRUE;
nkeynes@653: #endif
nkeynes@653: }
nkeynes@653: 
nkeynes@653: static struct polygon_struct *scene_add_polygon( pvraddr_t poly_idx, int vertex_count,
nkeynes@687:                                                  gboolean is_modified ) 
nkeynes@653: {
nkeynes@653:     int vert_mul = is_modified ? 2 : 1;
nkeynes@653: 
nkeynes@653:     if( pvr2_scene.buf_to_poly_map[poly_idx] != NULL ) {
nkeynes@687:         if( vertex_count > pvr2_scene.buf_to_poly_map[poly_idx]->vertex_count ) {
nkeynes@687:             pvr2_scene.vertex_count += (vertex_count - pvr2_scene.buf_to_poly_map[poly_idx]->vertex_count) * vert_mul;
nkeynes@687:             pvr2_scene.buf_to_poly_map[poly_idx]->vertex_count = vertex_count;
nkeynes@687:         }
nkeynes@687:         return pvr2_scene.buf_to_poly_map[poly_idx];
nkeynes@653:     } else {
nkeynes@687:         struct polygon_struct *poly = &pvr2_scene.poly_array[pvr2_scene.poly_count++];
nkeynes@687:         poly->context = &pvr2_scene.pvr2_pbuf[poly_idx];
nkeynes@687:         poly->vertex_count = vertex_count;
nkeynes@687:         poly->vertex_index = -1;
nkeynes@687:         poly->mod_vertex_index = -1;
nkeynes@687:         poly->next = NULL;
nkeynes@687:         pvr2_scene.buf_to_poly_map[poly_idx] = poly;
nkeynes@687:         pvr2_scene.vertex_count += (vertex_count * vert_mul);
nkeynes@687:         return poly;
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Decode a single PVR2 renderable vertex (opaque/trans/punch-out, but not shadow
nkeynes@653:  * volume)
nkeynes@653:  * @param vert Pointer to output vertex structure
nkeynes@653:  * @param poly1 First word of polygon context (needed to understand vertex)
nkeynes@653:  * @param poly2 Second word of polygon context
nkeynes@653:  * @param pvr2_data Pointer to raw pvr2 vertex data (in VRAM)
nkeynes@653:  * @param modify_offset Offset in 32-bit words to the tex/color data. 0 for
nkeynes@653:  *        the normal vertex, half the vertex length for the modified vertex.
nkeynes@653:  */
nkeynes@653: static void pvr2_decode_render_vertex( struct vertex_struct *vert, uint32_t poly1, 
nkeynes@736:                                        uint32_t poly2, uint32_t *pvr2_data, 
nkeynes@736:                                        int modify_offset )
nkeynes@653: {
nkeynes@653:     gboolean force_alpha = !POLY2_ALPHA_ENABLE(poly2);
nkeynes@653:     union pvr2_data_type {
nkeynes@687:         uint32_t *ival;
nkeynes@687:         float *fval;
nkeynes@653:     } data;
nkeynes@653: 
nkeynes@653:     data.ival = pvr2_data;
nkeynes@687: 
nkeynes@653:     vert->x = *data.fval++;
nkeynes@653:     vert->y = *data.fval++;
nkeynes@653: 
nkeynes@653:     float z = *data.fval++;
nkeynes@653:     if( !isfinite(z) ) {
nkeynes@687:         z = 0;
nkeynes@653:     } else if( z != 0 ) {
nkeynes@687:         z = 1/z;
nkeynes@653:     }
nkeynes@653:     if( z > pvr2_scene.bounds[5] ) {
nkeynes@687:         pvr2_scene.bounds[5] = z;
nkeynes@653:     } else if( z < pvr2_scene.bounds[4] && z != 0 ) {
nkeynes@687:         pvr2_scene.bounds[4] = z;
nkeynes@653:     }
nkeynes@653:     vert->z = z;
nkeynes@653:     data.ival += modify_offset;
nkeynes@653: 
nkeynes@687: 
nkeynes@653:     if( POLY1_TEXTURED(poly1) ) {
nkeynes@687:         if( POLY1_UV16(poly1) ) {
nkeynes@687:             vert->u = halftofloat( *data.ival>>16 );
nkeynes@687:             vert->v = halftofloat( *data.ival );
nkeynes@687:             data.ival++;
nkeynes@687:         } else {
nkeynes@687:             vert->u = *data.fval++;
nkeynes@687:             vert->v = *data.fval++;
nkeynes@687:         }
nkeynes@687:         if( POLY2_TEX_BLEND(poly2) == 1 ) {
nkeynes@687:             force_alpha = TRUE;
nkeynes@687:         }
nkeynes@653:     }
nkeynes@687:     unpack_bgra(*data.ival++, vert->rgba);
nkeynes@687:     if( POLY1_SPECULAR(poly1) ) {
nkeynes@687:         unpack_bgra(*data.ival++, vert->offset_rgba);
nkeynes@687:         vert->offset_rgba[3] = 1.0;
nkeynes@687:     } else {
nkeynes@687:         vert->offset_rgba[0] = 0.0;
nkeynes@687:         vert->offset_rgba[1] = 0.0;
nkeynes@687:         vert->offset_rgba[2] = 0.0;
nkeynes@687:         vert->offset_rgba[3] = 0.0;        
nkeynes@687:     }
nkeynes@687: 
nkeynes@653:     if( force_alpha ) {
nkeynes@687:         vert->rgba[3] = 1.0;
nkeynes@687:         vert->offset_rgba[3] = 1.0;
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@687:  * Compute texture, colour, and z values for 1 or more result points by interpolating from
nkeynes@687:  * a set of 3 input points. The result point(s) must define their x,y.
nkeynes@653:  */
nkeynes@687: static void scene_compute_vertexes( struct vertex_struct *result, 
nkeynes@687:                                     int result_count,
nkeynes@736:                                     struct vertex_struct *input,
nkeynes@736:                                     gboolean is_solid_shaded )
nkeynes@653: {
nkeynes@687:     int i,j;
nkeynes@653:     float sx = input[2].x - input[1].x;
nkeynes@653:     float sy = input[2].y - input[1].y;
nkeynes@653:     float tx = input[0].x - input[1].x;
nkeynes@653:     float ty = input[0].y - input[1].y;
nkeynes@653: 
nkeynes@653:     float detxy = ((sy) * (tx)) - ((ty) * (sx));
nkeynes@653:     if( detxy == 0 ) {
nkeynes@687:         // If the input points fall on a line, they don't define a usable 
nkeynes@687:         // polygon - the PVR2 takes the last input point as the result in
nkeynes@687:         // this case.
nkeynes@687:         for( i=0; i<result_count; i++ ) {
nkeynes@687:             float x = result[i].x;
nkeynes@687:             float y = result[i].y;
nkeynes@687:             memcpy( &result[i], &input[2], sizeof(struct vertex_struct) );
nkeynes@687:             result[i].x = x;
nkeynes@687:             result[i].y = y;
nkeynes@687:         }
nkeynes@687:         return;
nkeynes@653:     }
nkeynes@653:     float sz = input[2].z - input[1].z;
nkeynes@653:     float tz = input[0].z - input[1].z;
nkeynes@653:     float su = input[2].u - input[1].u;
nkeynes@653:     float tu = input[0].u - input[1].u;
nkeynes@653:     float sv = input[2].v - input[1].v;
nkeynes@653:     float tv = input[0].v - input[1].v;
nkeynes@653: 
nkeynes@687:     for( i=0; i<result_count; i++ ) {
nkeynes@687:         float t = ((result[i].x - input[1].x) * sy -
nkeynes@687:                 (result[i].y - input[1].y) * sx) / detxy;
nkeynes@687:         float s = ((result[i].y - input[1].y) * tx -
nkeynes@687:                 (result[i].x - input[1].x) * ty) / detxy;
nkeynes@687: 
nkeynes@687:         float rz = input[1].z + (t*tz) + (s*sz);
nkeynes@687:         if( rz > pvr2_scene.bounds[5] ) {
nkeynes@687:             pvr2_scene.bounds[5] = rz;
nkeynes@687:         } else if( rz < pvr2_scene.bounds[4] ) {
nkeynes@687:             pvr2_scene.bounds[4] = rz; 
nkeynes@687:         }
nkeynes@687:         result[i].z = rz;
nkeynes@687:         result[i].u = input[1].u + (t*tu) + (s*su);
nkeynes@687:         result[i].v = input[1].v + (t*tv) + (s*sv);
nkeynes@687: 
nkeynes@687:         if( is_solid_shaded ) {
nkeynes@687:             memcpy( result->rgba, input[2].rgba, sizeof(result->rgba) );
nkeynes@687:             memcpy( result->offset_rgba, input[2].offset_rgba, sizeof(result->offset_rgba) );
nkeynes@687:         } else {
nkeynes@687:             float *rgba0 = input[0].rgba;
nkeynes@687:             float *rgba1 = input[1].rgba;
nkeynes@687:             float *rgba2 = input[2].rgba;
nkeynes@687:             float *rgba3 = result[i].rgba;
nkeynes@687:             for( j=0; j<8; j++ ) {
nkeynes@687:                 float tc = *rgba0++ - *rgba1;
nkeynes@687:                 float sc = *rgba2++ - *rgba1;
nkeynes@687:                 float rc = *rgba1++ + (t*tc) + (s*sc);
nkeynes@687:                 *rgba3++ = rc;
nkeynes@687:             }
nkeynes@687:         }
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: static void scene_add_vertexes( pvraddr_t poly_idx, int vertex_length,
nkeynes@736:                                 gboolean is_modified )
nkeynes@653: {
nkeynes@653:     struct polygon_struct *poly = pvr2_scene.buf_to_poly_map[poly_idx];
nkeynes@653:     uint32_t *ptr = &pvr2_scene.pvr2_pbuf[poly_idx];
nkeynes@653:     uint32_t *context = ptr;
nkeynes@653:     unsigned int i;
nkeynes@653: 
nkeynes@653:     if( poly->vertex_index == -1 ) {
nkeynes@687:         ptr += (is_modified ? 5 : 3 );
nkeynes@687:         poly->vertex_index = pvr2_scene.vertex_index;
nkeynes@687: 
nkeynes@687:         assert( poly != NULL );
nkeynes@687:         assert( pvr2_scene.vertex_index + poly->vertex_count <= pvr2_scene.vertex_count );
nkeynes@687:         for( i=0; i<poly->vertex_count; i++ ) {
nkeynes@687:             pvr2_decode_render_vertex( &pvr2_scene.vertex_array[pvr2_scene.vertex_index++], context[0], context[1], ptr, 0 );
nkeynes@687:             ptr += vertex_length;
nkeynes@687:         }
nkeynes@687:         if( is_modified ) {
nkeynes@687:             int mod_offset = (vertex_length - 3)>>1;
nkeynes@687:             assert( pvr2_scene.vertex_index + poly->vertex_count <= pvr2_scene.vertex_count );
nkeynes@687:             ptr = &pvr2_scene.pvr2_pbuf[poly_idx] + 5;
nkeynes@687:             poly->mod_vertex_index = pvr2_scene.vertex_index;
nkeynes@687:             for( i=0; i<poly->vertex_count; i++ ) {
nkeynes@687:                 pvr2_decode_render_vertex( &pvr2_scene.vertex_array[pvr2_scene.vertex_index++], context[0], context[3], ptr, mod_offset );
nkeynes@687:                 ptr += vertex_length;
nkeynes@687:             }
nkeynes@687:         }
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: static void scene_add_quad_vertexes( pvraddr_t poly_idx, int vertex_length, 
nkeynes@736:                                      gboolean is_modified )
nkeynes@653: {
nkeynes@653:     struct polygon_struct *poly = pvr2_scene.buf_to_poly_map[poly_idx];
nkeynes@653:     uint32_t *ptr = &pvr2_scene.pvr2_pbuf[poly_idx];
nkeynes@653:     uint32_t *context = ptr;
nkeynes@653:     unsigned int i;
nkeynes@653: 
nkeynes@653:     if( poly->vertex_index == -1 ) {
nkeynes@736:         // Construct it locally and copy to the vertex buffer, as the VBO is 
nkeynes@736:         // allowed to be horribly slow for reads (ie it could be direct-mapped
nkeynes@736:         // vram).
nkeynes@736:         struct vertex_struct quad[4];
nkeynes@736: 
nkeynes@736:         assert( poly != NULL );
nkeynes@736:         assert( pvr2_scene.vertex_index + poly->vertex_count <= pvr2_scene.vertex_count );
nkeynes@736:         ptr += (is_modified ? 5 : 3 );
nkeynes@736:         poly->vertex_index = pvr2_scene.vertex_index;
nkeynes@736:         for( i=0; i<4; i++ ) {
nkeynes@736:             pvr2_decode_render_vertex( &quad[i], context[0], context[1], ptr, 0 );
nkeynes@736:             ptr += vertex_length;
nkeynes@736:         }
nkeynes@687:         scene_compute_vertexes( &quad[3], 1, &quad[0], !POLY1_GOURAUD_SHADED(context[0]) );
nkeynes@736:         // Swap last two vertexes (quad arrangement => tri strip arrangement)
nkeynes@736:         memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index], quad, sizeof(struct vertex_struct)*2 );
nkeynes@736:         memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index+2], &quad[3], sizeof(struct vertex_struct) );
nkeynes@736:         memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index+3], &quad[2], sizeof(struct vertex_struct) );
nkeynes@736:         pvr2_scene.vertex_index += 4;
nkeynes@736: 
nkeynes@736:         if( is_modified ) {
nkeynes@736:             int mod_offset = (vertex_length - 3)>>1;
nkeynes@736:             assert( pvr2_scene.vertex_index + poly->vertex_count <= pvr2_scene.vertex_count );
nkeynes@736:             ptr = &pvr2_scene.pvr2_pbuf[poly_idx] + 5;
nkeynes@736:             poly->mod_vertex_index = pvr2_scene.vertex_index;
nkeynes@736:             for( i=0; i<4; i++ ) {
nkeynes@736:                 pvr2_decode_render_vertex( &quad[4], context[0], context[3], ptr, mod_offset );
nkeynes@736:                 ptr += vertex_length;
nkeynes@736:             }
nkeynes@736:             scene_compute_vertexes( &quad[3], 1, &quad[0], !POLY1_GOURAUD_SHADED(context[0]) );
nkeynes@736:             memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index], quad, sizeof(struct vertex_struct)*2 );
nkeynes@736:             memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index+2], &quad[3], sizeof(struct vertex_struct) );
nkeynes@736:             memcpy( &pvr2_scene.vertex_array[pvr2_scene.vertex_index+3], &quad[2], sizeof(struct vertex_struct) );
nkeynes@736:             pvr2_scene.vertex_index += 4;
nkeynes@736:         }
nkeynes@653:     }
nkeynes@653: }
nkeynes@653: 
nkeynes@653: static void scene_extract_polygons( pvraddr_t tile_entry )
nkeynes@653: {
nkeynes@653:     uint32_t *tile_list = (uint32_t *)(video_base+tile_entry);
nkeynes@653:     do {
nkeynes@687:         uint32_t entry = *tile_list++;
nkeynes@687:         if( entry >> 28 == 0x0F ) {
nkeynes@687:             break;
nkeynes@687:         } else if( entry >> 28 == 0x0E ) {
nkeynes@687:             tile_list = (uint32_t *)(video_base + (entry&0x007FFFFF));
nkeynes@687:         } else {
nkeynes@687:             pvraddr_t polyaddr = entry&0x000FFFFF;
nkeynes@687:             int is_modified = (entry & 0x01000000) && pvr2_scene.full_shadow;
nkeynes@687:             int vertex_length = (entry >> 21) & 0x07;
nkeynes@687:             int context_length = 3;
nkeynes@687:             if( is_modified ) {
nkeynes@687:                 context_length = 5;
nkeynes@687:                 vertex_length <<= 1 ;
nkeynes@687:             }
nkeynes@687:             vertex_length += 3;
nkeynes@687: 
nkeynes@687:             if( (entry & 0xE0000000) == 0x80000000 ) {
nkeynes@687:                 /* Triangle(s) */
nkeynes@687:                 int strip_count = ((entry >> 25) & 0x0F)+1;
nkeynes@687:                 int polygon_length = 3 * vertex_length + context_length;
nkeynes@687:                 int i;
nkeynes@687:                 struct polygon_struct *last_poly = NULL;
nkeynes@687:                 for( i=0; i<strip_count; i++ ) {
nkeynes@687:                     struct polygon_struct *poly = scene_add_polygon( polyaddr, 3, is_modified );
nkeynes@687:                     polyaddr += polygon_length;
nkeynes@687:                     if( last_poly != NULL && last_poly->next == NULL ) {
nkeynes@687:                         last_poly->next = poly;
nkeynes@687:                     }
nkeynes@687:                     last_poly = poly;
nkeynes@687:                 }
nkeynes@687:             } else if( (entry & 0xE0000000) == 0xA0000000 ) {
nkeynes@687:                 /* Sprite(s) */
nkeynes@687:                 int strip_count = ((entry >> 25) & 0x0F)+1;
nkeynes@687:                 int polygon_length = 4 * vertex_length + context_length;
nkeynes@687:                 int i;
nkeynes@687:                 struct polygon_struct *last_poly = NULL;
nkeynes@687:                 for( i=0; i<strip_count; i++ ) {
nkeynes@687:                     struct polygon_struct *poly = scene_add_polygon( polyaddr, 4, is_modified );
nkeynes@687:                     polyaddr += polygon_length;
nkeynes@687:                     if( last_poly != NULL && last_poly->next == NULL ) {
nkeynes@687:                         last_poly->next = poly;
nkeynes@687:                     }
nkeynes@687:                     last_poly = poly;
nkeynes@687:                 }
nkeynes@687:             } else {
nkeynes@687:                 /* Polygon */
nkeynes@687:                 int i, last = -1;
nkeynes@687:                 for( i=5; i>=0; i-- ) {
nkeynes@687:                     if( entry & (0x40000000>>i) ) {
nkeynes@687:                         last = i;
nkeynes@687:                         break;
nkeynes@687:                     }
nkeynes@687:                 }
nkeynes@687:                 if( last != -1 ) {
nkeynes@687:                     scene_add_polygon( polyaddr, last+3, is_modified );
nkeynes@687:                 }
nkeynes@687:             }
nkeynes@687:         }
nkeynes@653:     } while( 1 );
nkeynes@653: }
nkeynes@653: 
nkeynes@653: static void scene_extract_vertexes( pvraddr_t tile_entry )
nkeynes@653: {
nkeynes@653:     uint32_t *tile_list = (uint32_t *)(video_base+tile_entry);
nkeynes@653:     do {
nkeynes@736:         uint32_t entry = *tile_list++;
nkeynes@736:         if( entry >> 28 == 0x0F ) {
nkeynes@736:             break;
nkeynes@736:         } else if( entry >> 28 == 0x0E ) {
nkeynes@736:             tile_list = (uint32_t *)(video_base + (entry&0x007FFFFF));
nkeynes@736:         } else {
nkeynes@736:             pvraddr_t polyaddr = entry&0x000FFFFF;
nkeynes@736:             int is_modified = (entry & 0x01000000) && pvr2_scene.full_shadow;
nkeynes@736:             int vertex_length = (entry >> 21) & 0x07;
nkeynes@736:             int context_length = 3;
nkeynes@736:             if( is_modified ) {
nkeynes@736:                 context_length = 5;
nkeynes@736:                 vertex_length <<=1 ;
nkeynes@736:             }
nkeynes@736:             vertex_length += 3;
nkeynes@736: 
nkeynes@736:             if( (entry & 0xE0000000) == 0x80000000 ) {
nkeynes@736:                 /* Triangle(s) */
nkeynes@736:                 int strip_count = ((entry >> 25) & 0x0F)+1;
nkeynes@736:                 int polygon_length = 3 * vertex_length + context_length;
nkeynes@736:                 int i;
nkeynes@736:                 for( i=0; i<strip_count; i++ ) {
nkeynes@736:                     scene_add_vertexes( polyaddr, vertex_length, is_modified );
nkeynes@736:                     polyaddr += polygon_length;
nkeynes@736:                 }
nkeynes@736:             } else if( (entry & 0xE0000000) == 0xA0000000 ) {
nkeynes@736:                 /* Sprite(s) */
nkeynes@736:                 int strip_count = ((entry >> 25) & 0x0F)+1;
nkeynes@736:                 int polygon_length = 4 * vertex_length + context_length;
nkeynes@736:                 int i;
nkeynes@736:                 for( i=0; i<strip_count; i++ ) {
nkeynes@736:                     scene_add_quad_vertexes( polyaddr, vertex_length, is_modified );
nkeynes@736:                     polyaddr += polygon_length;
nkeynes@736:                 }
nkeynes@736:             } else {
nkeynes@736:                 /* Polygon */
nkeynes@736:                 int i, last = -1;
nkeynes@736:                 for( i=5; i>=0; i-- ) {
nkeynes@736:                     if( entry & (0x40000000>>i) ) {
nkeynes@736:                         last = i;
nkeynes@736:                         break;
nkeynes@736:                     }
nkeynes@736:                 }
nkeynes@736:                 if( last != -1 ) {
nkeynes@736:                     scene_add_vertexes( polyaddr, vertex_length, is_modified );
nkeynes@736:                 }
nkeynes@736:             }
nkeynes@736:         }
nkeynes@653:     } while( 1 );    
nkeynes@653: }
nkeynes@653: 
nkeynes@687: static void scene_extract_background( void )
nkeynes@687: {
nkeynes@687:     uint32_t bgplane = MMIO_READ(PVR2, RENDER_BGPLANE);
nkeynes@687:     int vertex_length = (bgplane >> 24) & 0x07;
nkeynes@687:     int context_length = 3, i;
nkeynes@687:     int is_modified = (bgplane & 0x08000000) && pvr2_scene.full_shadow;
nkeynes@687: 
nkeynes@687:     struct polygon_struct *poly = &pvr2_scene.poly_array[pvr2_scene.poly_count++];
nkeynes@687:     uint32_t *context = &pvr2_scene.pvr2_pbuf[(bgplane & 0x00FFFFFF)>>3];
nkeynes@687:     poly->context = context;
nkeynes@687:     poly->vertex_count = 4;
nkeynes@687:     poly->vertex_index = pvr2_scene.vertex_count;
nkeynes@687:     if( is_modified ) {
nkeynes@687:         context_length = 5;
nkeynes@687:         vertex_length <<= 1;
nkeynes@687:         poly->mod_vertex_index = pvr2_scene.vertex_count + 4;
nkeynes@687:         pvr2_scene.vertex_count += 8;        
nkeynes@687:     } else {
nkeynes@687:         poly->mod_vertex_index = -1;
nkeynes@687:         pvr2_scene.vertex_count += 4;
nkeynes@687:     }
nkeynes@687:     vertex_length += 3;
nkeynes@687:     context_length += (bgplane & 0x07) * vertex_length;
nkeynes@687: 
nkeynes@687:     poly->next = NULL;
nkeynes@687:     pvr2_scene.bkgnd_poly = poly;
nkeynes@736: 
nkeynes@687:     struct vertex_struct base_vertexes[3];
nkeynes@687:     uint32_t *ptr = context + context_length; 
nkeynes@687:     for( i=0; i<3; i++ ) {
nkeynes@687:         pvr2_decode_render_vertex( &base_vertexes[i], context[0], context[1],
nkeynes@736:                 ptr, 0 );
nkeynes@687:         ptr += vertex_length;
nkeynes@687:     }
nkeynes@687:     struct vertex_struct *result_vertexes = &pvr2_scene.vertex_array[poly->vertex_index];
nkeynes@687:     result_vertexes[0].x = result_vertexes[0].y = 0;
nkeynes@687:     result_vertexes[1].x = result_vertexes[3].x = pvr2_scene.buffer_width;
nkeynes@687:     result_vertexes[1].y = result_vertexes[2].x = 0;
nkeynes@687:     result_vertexes[2].y = result_vertexes[3].y  = pvr2_scene.buffer_height;
nkeynes@687:     scene_compute_vertexes( result_vertexes, 4, base_vertexes, !POLY1_GOURAUD_SHADED(context[0]) );
nkeynes@687: 
nkeynes@687:     if( is_modified ) {
nkeynes@687:         int mod_offset = (vertex_length - 3)>>1;
nkeynes@687:         ptr = context + context_length;
nkeynes@687:         for( i=0; i<3; i++ ) {
nkeynes@687:             pvr2_decode_render_vertex( &base_vertexes[i], context[0], context[3],
nkeynes@736:                     ptr, mod_offset );
nkeynes@687:             ptr += vertex_length;
nkeynes@687:         }
nkeynes@687:         result_vertexes = &pvr2_scene.vertex_array[poly->mod_vertex_index];
nkeynes@687:         result_vertexes[0].x = result_vertexes[0].y = 0;
nkeynes@687:         result_vertexes[1].x = result_vertexes[3].x = pvr2_scene.buffer_width;
nkeynes@687:         result_vertexes[1].y = result_vertexes[2].x = 0;
nkeynes@687:         result_vertexes[2].y = result_vertexes[3].y  = pvr2_scene.buffer_height;
nkeynes@687:         scene_compute_vertexes( result_vertexes, 4, base_vertexes, !POLY1_GOURAUD_SHADED(context[0]) );
nkeynes@687:     }
nkeynes@736: 
nkeynes@687: }
nkeynes@687: 
nkeynes@687: 
nkeynes@653: uint32_t pvr2_scene_buffer_width()
nkeynes@653: {
nkeynes@653:     return pvr2_scene.buffer_width;
nkeynes@653: }
nkeynes@653: 
nkeynes@653: uint32_t pvr2_scene_buffer_height()
nkeynes@653: {
nkeynes@653:     return pvr2_scene.buffer_height;
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Extract the current scene into the rendering structures. We run two passes
nkeynes@653:  * - first pass extracts the polygons into pvr2_scene.poly_array (finding vertex counts), 
nkeynes@653:  * second pass extracts the vertex data into the VBO/vertex array.
nkeynes@653:  *
nkeynes@653:  * Difficult to do in single pass as we don't generally know the size of a 
nkeynes@653:  * polygon for certain until we've seen all tiles containing it. It also means we
nkeynes@653:  * can count the vertexes and allocate the appropriate size VBO.
nkeynes@653:  *
nkeynes@653:  * FIXME: accesses into VRAM need to be bounds-checked properly
nkeynes@653:  */
nkeynes@653: void pvr2_scene_read( void )
nkeynes@653: {
nkeynes@653:     pvr2_scene_init();
nkeynes@653:     pvr2_scene_reset();
nkeynes@653: 
nkeynes@653:     pvr2_scene.bounds[0] = MMIO_READ( PVR2, RENDER_HCLIP ) & 0x03FF;
nkeynes@653:     pvr2_scene.bounds[1] = ((MMIO_READ( PVR2, RENDER_HCLIP ) >> 16) & 0x03FF) + 1;
nkeynes@653:     pvr2_scene.bounds[2] = MMIO_READ( PVR2, RENDER_VCLIP ) & 0x03FF;
nkeynes@653:     pvr2_scene.bounds[3] = ((MMIO_READ( PVR2, RENDER_VCLIP ) >> 16) & 0x03FF) + 1;
nkeynes@653:     pvr2_scene.bounds[4] = pvr2_scene.bounds[5] = MMIO_READF( PVR2, RENDER_FARCLIP );
nkeynes@653: 
nkeynes@653:     uint32_t *tilebuffer = (uint32_t *)(video_base + MMIO_READ( PVR2, RENDER_TILEBASE ));
nkeynes@653:     uint32_t *segment = tilebuffer;
nkeynes@653:     pvr2_scene.segment_list = (struct tile_segment *)tilebuffer;
nkeynes@653:     pvr2_scene.pvr2_pbuf = (uint32_t *)(video_base + MMIO_READ(PVR2,RENDER_POLYBASE));
nkeynes@653:     pvr2_scene.full_shadow = MMIO_READ( PVR2, RENDER_SHADOW ) & 0x100 ? FALSE : TRUE;
nkeynes@687: 
nkeynes@653:     int max_tile_x = 0;
nkeynes@653:     int max_tile_y = 0;
nkeynes@653:     int obj_config = MMIO_READ( PVR2, RENDER_OBJCFG );
nkeynes@653:     int isp_config = MMIO_READ( PVR2, RENDER_ISPCFG );
nkeynes@653: 
nkeynes@653:     if( (obj_config & 0x00200000) == 0 ) {
nkeynes@687:         if( isp_config & 1 ) {
nkeynes@687:             pvr2_scene.sort_mode = SORT_NEVER;
nkeynes@687:         } else {
nkeynes@687:             pvr2_scene.sort_mode = SORT_ALWAYS;
nkeynes@687:         }
nkeynes@653:     } else {
nkeynes@687:         pvr2_scene.sort_mode = SORT_TILEFLAG;
nkeynes@653:     }
nkeynes@653: 
nkeynes@653:     // Pass 1: Extract polygon list 
nkeynes@653:     uint32_t control;
nkeynes@653:     int i;
nkeynes@653:     do {
nkeynes@687:         control = *segment++;
nkeynes@687:         int tile_x = SEGMENT_X(control);
nkeynes@687:         int tile_y = SEGMENT_Y(control);
nkeynes@687:         if( tile_x > max_tile_x ) {
nkeynes@687:             max_tile_x = tile_x;
nkeynes@687:         } 
nkeynes@687:         if( tile_y > max_tile_y ) {
nkeynes@687:             max_tile_y = tile_y;
nkeynes@687:         }
nkeynes@687:         for( i=0; i<5; i++ ) {
nkeynes@687:             if( (*segment & NO_POINTER) == 0 ) {
nkeynes@687:                 scene_extract_polygons( *segment );
nkeynes@687:             }
nkeynes@687:             segment++;
nkeynes@687:         }
nkeynes@653:     } while( (control & SEGMENT_END) == 0 );
nkeynes@653: 
nkeynes@653:     pvr2_scene.buffer_width = (max_tile_x+1)<<5;
nkeynes@653:     pvr2_scene.buffer_height = (max_tile_y+1)<<5;
nkeynes@653: 
nkeynes@687:     // Pass 2: Extract vertex data
nkeynes@687:     vertex_buffer_map();
nkeynes@687:     pvr2_scene.vertex_index = 0;
nkeynes@687:     segment = tilebuffer;
nkeynes@687:     do {
nkeynes@687:         control = *segment++;
nkeynes@687:         for( i=0; i<5; i++ ) {
nkeynes@687:             if( (*segment & NO_POINTER) == 0 ) {
nkeynes@687:                 scene_extract_vertexes( *segment );
nkeynes@687:             }
nkeynes@687:             segment++;
nkeynes@687:         }
nkeynes@687:     } while( (control & SEGMENT_END) == 0 );
nkeynes@736: 
nkeynes@687:     scene_extract_background();
nkeynes@736: 
nkeynes@687:     vertex_buffer_unmap();
nkeynes@653: }
nkeynes@653: 
nkeynes@653: /**
nkeynes@653:  * Dump the current scene to file in a (mostly) human readable form
nkeynes@653:  */
nkeynes@653: void pvr2_scene_dump( FILE *f )
nkeynes@653: {
nkeynes@653:     int i,j;
nkeynes@653: 
nkeynes@653:     fprintf( f, "Polygons: %d\n", pvr2_scene.poly_count );
nkeynes@653:     for( i=0; i<pvr2_scene.poly_count; i++ ) {
nkeynes@736:         struct polygon_struct *poly = &pvr2_scene.poly_array[i];
nkeynes@736:         fprintf( f, "  %08X ", ((unsigned char *)poly->context) - video_base );
nkeynes@736:         switch( poly->vertex_count ) {
nkeynes@736:         case 3: fprintf( f, "Tri     " ); break;
nkeynes@736:         case 4: fprintf( f, "Quad    " ); break;
nkeynes@736:         default: fprintf( f,"%d-Strip ", poly->vertex_count-2 ); break;
nkeynes@736:         }
nkeynes@736:         fprintf( f, "%08X %08X %08X ", poly->context[0], poly->context[1], poly->context[2] );
nkeynes@736:         if( poly->mod_vertex_index != -1 ) {
nkeynes@736:             fprintf( f, "%08X %08X\n", poly->context[3], poly->context[5] );
nkeynes@736:         } else {
nkeynes@736:             fprintf( f, "\n" );
nkeynes@736:         }
nkeynes@736: 
nkeynes@736:         for( j=0; j<poly->vertex_count; j++ ) {
nkeynes@736:             struct vertex_struct *v = &pvr2_scene.vertex_array[poly->vertex_index+j];
nkeynes@736:             fprintf( f, "    %.5f %.5f %.5f, (%.5f,%.5f) %08X %08X\n", v->x, v->y, v->z, v->u, v->v,
nkeynes@736:                      v->rgba, v->offset_rgba );
nkeynes@736:         }
nkeynes@736:         if( poly->mod_vertex_index != -1 ) {
nkeynes@736:             fprintf( f, "  ---\n" );
nkeynes@736:             for( j=0; j<poly->vertex_count; j++ ) {
nkeynes@736:                 struct vertex_struct *v = &pvr2_scene.vertex_array[poly->mod_vertex_index+j];
nkeynes@736:                 fprintf( f, "    %.5f %.5f %.5f, (%.5f,%.5f) %08X %08X\n", v->x, v->y, v->z, v->u, v->v,
nkeynes@736:                          v->rgba, v->offset_rgba );
nkeynes@736:             }
nkeynes@736:         }
nkeynes@653:     }
nkeynes@653: 
nkeynes@653: }