-VG_STATIC
-void ray_world_get_tri( world_instance *world, ray_hit *hit, v3f tri[3] );
-
-VG_STATIC
-int ray_world( world_instance *world, v3f pos, v3f dir, ray_hit *hit );
-
-/*
- * Submodules
- */
-
-#include "world_routes.h"
-#include "world_sfd.h"
-#include "world_render.h"
-#include "world_water.h"
-#include "world_volumes.h"
-#include "world_gen.h"
-#include "world_gate.h"
-
-/*
- * -----------------------------------------------------------------------------
- * Events
- * -----------------------------------------------------------------------------
- */
-
-VG_STATIC int world_stop_sound( int argc, const char *argv[] )
-{
- world_instance *world = get_active_world();
- return 0;
-}
-
-VG_STATIC void world_init(void)
-{
- world_global.sky_rate = 1.0;
- world_global.sky_target_rate = 1.0;
-
- shader_scene_standard_register();
- shader_scene_standard_alphatest_register();
- shader_scene_vertex_blend_register();
- shader_scene_terrain_register();
- shader_scene_depth_register();
- shader_scene_position_register();
-
- shader_model_sky_register();
-
- vg_info( "Loading world resources\n" );
-
- vg_linear_clear( vg_mem.scratch );
-
- mdl_context msky;
- mdl_open( &msky, "models/rs_skydome.mdl", vg_mem.scratch );
- mdl_load_metadata_block( &msky, vg_mem.scratch );
- mdl_load_mesh_block( &msky, vg_mem.scratch );
- mdl_close( &msky );
-
- vg_acquire_thread_sync();
- {
- mdl_unpack_glmesh( &msky, &world_global.skydome );
- }
- vg_release_thread_sync();
-
- /* Other systems */
- vg_info( "Loading other world systems\n" );
-
- vg_loader_step( world_render_init, NULL );
- vg_loader_step( world_sfd_init, NULL );
- vg_loader_step( world_water_init, NULL );
- vg_loader_step( world_gates_init, NULL );
- vg_loader_step( world_routes_init, NULL );
-
- /* Allocate dynamic world memory arena */
- u32 max_size = 76*1024*1024;
- world_global.generic_heap = vg_create_linear_allocator( vg_mem.rtmemory,
- max_size,
- VG_MEMORY_SYSTEM );
-}
-
-VG_STATIC void world_update( world_instance *world, v3f pos )
-{
- /* TEMP!!!!!! */
- static double g_time = 0.0;
- g_time += vg.time_delta * (1.0/(k_day_length*60.0));
-
-
- struct ub_world_lighting *state = &world->ub_lighting;
-
- state->g_time = g_time;
- state->g_realtime = vg.time;
- state->g_debug_indices = k_debug_light_indices;
- state->g_light_preview = k_light_preview;
- state->g_debug_complexity = k_debug_light_complexity;
-
- state->g_time_of_day = vg_fractf( g_time );
- state->g_day_phase = cosf( state->g_time_of_day * VG_PIf * 2.0f );
- state->g_sunset_phase= cosf( state->g_time_of_day * VG_PIf * 4.0f + VG_PIf );
-
- state->g_day_phase = state->g_day_phase * 0.5f + 0.5f;
- state->g_sunset_phase = powf( state->g_sunset_phase * 0.5f + 0.5f, 6.0f );
-
- float a = state->g_time_of_day * VG_PIf * 2.0f;
- state->g_sun_dir[0] = sinf( a );
- state->g_sun_dir[1] = cosf( a );
- state->g_sun_dir[2] = 0.2f;
- v3_normalize( state->g_sun_dir );
-
-
-
- glBindBuffer( GL_UNIFORM_BUFFER, world->ubo_lighting );
- glBufferSubData( GL_UNIFORM_BUFFER, 0,
- sizeof(struct ub_world_lighting), &world->ub_lighting );
- /* TEMP!!!!!! */
-
- world_global.sky_time += world_global.sky_rate * vg.time_delta;
- world_global.sky_rate = vg_lerp( world_global.sky_rate,
- world_global.sky_target_rate,
- vg.time_delta * 5.0 );
-
- world_routes_update( world );
- world_routes_debug( world );
-
- /* ---- SFD ------------ */
-
- if( mdl_arrcount( &world->ent_route ) ){
- u32 closest = 0;
- float min_dist = INFINITY;
-
- for( u32 i=0; i<mdl_arrcount( &world->ent_route ); i++ ){
- ent_route *route = mdl_arritm( &world->ent_route, i );
- float dist = v3_dist2( route->board_transform[3], pos );
-
- if( dist < min_dist ){
- min_dist = dist;
- closest = i;
- }
- }
-
- if( (world_global.sfd.active_route_board != closest)
- || network_scores_updated )
- {
- network_scores_updated = 0;
- world_global.sfd.active_route_board = closest;
-
- ent_route *route = mdl_arritm( &world->ent_route, closest );
- u32 id = route->official_track_id;
-
- if( id != 0xffffffff ){
- struct netmsg_board *local_board =
- &scoreboard_client_data.boards[id];
-
- for( int i=0; i<13; i++ ){
- sfd_encode( i, &local_board->data[27*i] );
- }
- }else{
- sfd_encode( 0, mdl_pstr( &world->meta, route->pstr_name ) );
- sfd_encode( 1, "No data" );
- }
- }
- }
- sfd_update();
-
-#if 0
- /* TODO: Bvh */
-
- static float random_accum = 0.0f;
- random_accum += vg.time_delta;
-
- u32 random_ticks = 0;
-
- while( random_accum > 0.1f ){
- random_accum -= 0.1f;
- random_ticks ++;
- }
-
- float radius = 25.0f;
- boxf volume_proximity;
- v3_add( pos, (v3f){ radius, radius, radius }, volume_proximity[1] );
- v3_sub( pos, (v3f){ radius, radius, radius }, volume_proximity[0] );
-
- bh_iter it;
- bh_iter_init( 0, &it );
- int idx;
-
- int in_volume = 0;
-
- while( bh_next( world->volume_bh, &it, volume_proximity, &idx ) )
- {
- struct world_volume *zone = &world->volumes[idx];
-
- if( zone->node->classtype == k_classtype_volume_audio )
- {
- vg_line_boxf_transformed( zone->transform, (boxf){{-1.0f,-1.0f,-1.0f},
- { 1.0f, 1.0f, 1.0f}},
- 0xff00c0ff );
-#if 0
- for( int j=0; j<random_ticks; j++ )
- {
- logic_packet packet;
- packet.location = zone->target_logic_brick;
- packet.function = 0;
-
- packet.type = k_mdl_128bit_datatype_vec3;
- packet.data._v4f[0] = vg_randf()*2.0f-1.0f;
- packet.data._v4f[1] = vg_randf()*2.0f-1.0f;
- packet.data._v4f[2] = vg_randf()*2.0f-1.0f;
- m4x3_mulv( zone->transform, packet.data._v4f, packet.data._v4f );
-
- logic_bricks_send_packet( world, &packet );
- }
-#endif
- continue;
- }
-
- v3f local;
- m4x3_mulv( zone->inv_transform, pos, local );
-
- if( (fabsf(local[0]) <= 1.0f) &&
- (fabsf(local[1]) <= 1.0f) &&
- (fabsf(local[2]) <= 1.0f) )
- {
- in_volume = 1;
-
- if( !world_global.in_volume )
- {
-#if 0
- logic_packet packet;
- packet.location = zone->target_logic_brick;
- packet.function = 0;
-
- packet.type = k_mdl_128bit_datatype_vec3;
- v3_copy( pos, packet.data._v4f );
-
- logic_bricks_send_packet( world, &packet );
-#endif
- }
-
- vg_line_boxf_transformed( zone->transform, (boxf){{-1.0f,-1.0f,-1.0f},
- { 1.0f, 1.0f, 1.0f}},
- 0xff00ff00 );
- }
- else
- {
- vg_line_boxf_transformed( zone->transform, (boxf){{-1.0f,-1.0f,-1.0f},
- { 1.0f, 1.0f, 1.0f}},
- 0xff0000ff );
- }
- }
-#endif
-
-#if 0
- if( k_debug_light_indices )
- {
- for( int i=0; i<world->light_count; i++ ){
- struct world_light *light = &world->lights[i];
- struct classtype_world_light *inf = light->inf;
-
- u32 colour = 0xff000000;
- u8 r = inf->colour[0] * 255.0f,
- g = inf->colour[1] * 255.0f,
- b = inf->colour[2] * 255.0f;
-
- colour |= r;
- colour |= g << 8;
- colour |= b << 16;
-
- vg_line_pt3( light->node->co, 0.25f, colour );
- }
- }
-
- world_global.in_volume = in_volume;
-#endif
-
-#if 0
-
- /* process soundscape transactions */
- audio_lock();
- for( int i=0; i<world->soundscape_count; i++ )
- {
- struct soundscape *s = &world->soundscapes[i];
- s->usage_count = 0;
-
- for( int j=0; j<s->max_instances; j++ )
- {
- if( s->channels[j] )
- {
- if( audio_channel_finished(s->channels[j]) )
- s->channels[j] = audio_relinquish_channel( s->channels[j] );
- else
- s->usage_count ++;
- }
- }
- }
- audio_unlock();
-#endif
-}
-
-/*
- * -----------------------------------------------------------------------------
- * API implementation
- * -----------------------------------------------------------------------------
- */
-
-VG_STATIC void ray_world_get_tri( world_instance *world,
- ray_hit *hit, v3f tri[3] )
-{
- for( int i=0; i<3; i++ )
- v3_copy( world->scene_geo->arrvertices[ hit->tri[i] ].co, tri[i] );
-}
-
-VG_STATIC int ray_world( world_instance *world,
- v3f pos, v3f dir, ray_hit *hit )
-{
- return scene_raycast( world->scene_geo, world->geo_bh, pos, dir, hit );
-}
-
-/*
- * Cast a sphere from a to b and see what time it hits
- */
-VG_STATIC int spherecast_world( world_instance *world,
- v3f pa, v3f pb, float r, float *t, v3f n )
-{
- bh_iter it;
- bh_iter_init( 0, &it );
-
- boxf region;
- box_init_inf( region );
- box_addpt( region, pa );
- box_addpt( region, pb );
-
- v3_add( (v3f){ r, r, r}, region[1], region[1] );
- v3_add( (v3f){-r,-r,-r}, region[0], region[0] );
-
- v3f dir;
- v3_sub( pb, pa, dir );
-
- v3f dir_inv;
- dir_inv[0] = 1.0f/dir[0];
- dir_inv[1] = 1.0f/dir[1];
- dir_inv[2] = 1.0f/dir[2];
-
- int hit = -1;
- float min_t = 1.0f;
-
- int idx;
- while( bh_next( world->geo_bh, &it, region, &idx ) ){
- u32 *ptri = &world->scene_geo->arrindices[ idx*3 ];
- v3f tri[3];
-
- boxf box;
- box_init_inf( box );
-
- for( int j=0; j<3; j++ ){
- v3_copy( world->scene_geo->arrvertices[ptri[j]].co, tri[j] );
- box_addpt( box, tri[j] );
- }
-
- v3_add( (v3f){ r, r, r}, box[1], box[1] );
- v3_add( (v3f){-r,-r,-r}, box[0], box[0] );
-
- if( !ray_aabb1( box, pa, dir_inv, 1.0f ) )
- continue;
-
- float t;
- v3f n1;
- if( spherecast_triangle( tri, pa, dir, r, &t, n1 ) ){
- if( t < min_t ){
- min_t = t;
- hit = idx;
- v3_copy( n1, n );
- }
- }