world.h

   1 /*
   2  * Copyright (C) 2021-2022 Mt.ZERO Software, Harry Godden - All Rights Reserved
   3  */
   4
   5 #include "common.h"
   6
   7 #ifndef WORLD_H
   8 #define WORLD_H
   9
  10 typedef struct world_instance world_instance;
  11
  12 #include "vg/vg_loader.h"
  13
  14 #include "network.h"
  15 #include "network_msg.h"
  16 #include "scene.h"
  17 #include "render.h"
  18 #include "rigidbody.h"
  19 #include "bvh.h"
  20 #include "model.h"
  21 #include "entity.h"
  22 #include "font.h"
  23
  24 #include "shaders/scene_standard.h"
  25 #include "shaders/scene_standard_alphatest.h"
  26 #include "shaders/scene_vertex_blend.h"
  27 #include "shaders/scene_terrain.h"
  28 #include "shaders/scene_depth.h"
  29 #include "shaders/scene_position.h"
  30
  31 #include "shaders/model_sky.h"
  32
  33 enum { k_max_ui_segments = 8 };
  34
  35 enum { k_max_ui_elements = k_max_ui_segments };
  36 enum { k_max_element_verts = 10 };
  37 enum { k_max_element_indices = 20 };
  38
  39 enum { k_route_ui_max_verts = k_max_ui_elements*k_max_element_verts };
  40 enum { k_route_ui_max_indices = k_max_ui_elements*k_max_element_indices };
  41
  42 enum logic_type
  43 {
  44    k_logic_type_relay         = 1,
  45    k_logic_type_chance        = 2,
  46    k_logic_type_achievement   = 3
  47 };
  48
  49 enum geo_type
  50 {
  51    k_geo_type_solid = 0,
  52    k_geo_type_nonsolid = 1,
  53    k_geo_type_water = 2
  54 };
  55
  56 static const float k_light_cube_size = 8.0f;
  57
  58 struct world_instance {
  59    /* Fixed items
  60     * -------------------------------------------------------
  61     */
  62
  63    void *heap;
  64    char  world_name[ 64 ];
  65
  66    struct{
  67       boxf depthbounds;
  68       int depth_computed;
  69
  70       float height;
  71       int enabled;
  72       v4f plane;
  73    }
  74    water;
  75
  76    /* STD140 */
  77    struct ub_world_lighting{
  78       v4f g_cube_min,
  79           g_cube_inv_range;
  80
  81       v4f g_water_plane,
  82           g_depth_bounds;
  83
  84       v4f g_daysky_colour;
  85       v4f g_nightsky_colour;
  86       v4f g_sunset_colour;
  87       v4f g_ambient_colour;
  88       v4f g_sunset_ambient;
  89       v4f g_sun_colour;
  90       v4f g_sun_dir;
  91       v4f g_board_0;
  92       v4f g_board_1;
  93
  94       float g_water_fog;
  95       float g_time;
  96       float g_realtime;
  97       float g_shadow_length;
  98       float g_shadow_spread;
  99
 100       float g_time_of_day;
 101       float g_day_phase;
 102       float g_sunset_phase;
 103
 104       int g_light_preview;
 105       int g_shadow_samples;
 106
 107       int g_debug_indices;
 108       int g_debug_complexity;
 109    }
 110    ub_lighting;
 111    GLuint ubo_lighting;
 112    int    ubo_bind_point;
 113
 114    GLuint tbo_light_entities,
 115           tex_light_entities,
 116           tex_light_cubes;
 117
 118    float probabilities[3];
 119
 120    v3i light_cubes;
 121
 122    struct framebuffer heightmap;
 123
 124    /*
 125     * Dynamically allocated when world_load is called.
 126     *
 127     *                  the following arrays index somewhere into this linear
 128     *                  allocator
 129     *
 130     * (world_gen.h)
 131     * --------------------------------------------------------------------------
 132     */
 133
 134    /*
 135     * Main world .mdl
 136     */
 137    mdl_context meta;
 138
 139    GLuint *textures;
 140    u32 texture_count;
 141
 142    struct world_surface{
 143       mdl_material info;
 144       mdl_submesh sm_geo,
 145                   sm_no_collide;
 146    }
 147    * surfaces;
 148    u32 surface_count;
 149
 150    mdl_array_ptr ent_spawn,
 151                  ent_gate,
 152                  ent_light,
 153                  ent_route_node,
 154                  ent_path_index,
 155                  ent_checkpoint,
 156                  ent_route,
 157                  ent_water,
 158
 159                  ent_audio_clip,
 160                  ent_audio,
 161                  ent_volume;
 162
 163    ent_gate *rendering_gate;
 164
 165    /* logic
 166     * ----------------------------------------------------
 167     */
 168
 169    /* world geometry */
 170    scene *scene_geo,
 171          *scene_no_collide,
 172          *scene_lines;
 173
 174    /* spacial mappings */
 175    bh_tree *audio_bh,
 176            *volume_bh,
 177            *geo_bh;
 178
 179    /* graphics */
 180    glmesh mesh_route_lines;
 181    glmesh mesh_geo,
 182           mesh_no_collide,
 183           mesh_water;
 184
 185    rb_object rb_geo;
 186 };
 187
 188 struct world_global{
 189    /*
 190     * Allocated as system memory
 191     * --------------------------------------------------------------------------
 192     */
 193    void *heap;
 194
 195    /* rendering */
 196    glmesh skydome;
 197    glmesh mesh_gate;
 198    mdl_submesh sm_gate_surface,
 199                sm_gate_marker[4];
 200
 201    double sky_time, sky_rate, sky_target_rate;
 202
 203    u32 current_run_version;
 204    double time, rewind_from, rewind_to, last_use;
 205
 206    /* water rendering */
 207    struct{
 208       struct framebuffer fbreflect, fbdepth;
 209    }
 210    water;
 211
 212    /* split flap display */
 213    struct{
 214       glmesh mesh_base, mesh_display;
 215       mdl_submesh sm_base;
 216       u32 active_route_board;
 217
 218       u32 w, h;
 219       float *buffer;
 220    }
 221    sfd;
 222
 223    v3f render_gate_pos;
 224    int in_volume;
 225
 226    int switching_to_new_world;
 227
 228    world_instance worlds[4];
 229    u32            world_count;
 230    u32            active_world;
 231
 232    /* text particles */
 233    font3d font;
 234
 235    struct timer_text{
 236       char text[8];
 237       m4x3f transform;
 238       ent_gate *gate;
 239       ent_route *route;
 240    }
 241    timer_texts[4];
 242    u32 timer_text_count;
 243
 244    struct text_particle{
 245       rb_object obj;
 246       m4x3f mlocal;
 247       ent_glyph *glyph;
 248       v4f colour;
 249
 250       m4x3f mdl;
 251    }
 252    text_particles[6*4];
 253    u32 text_particle_count;
 254 }
 255 static world_global;
 256
 257 VG_STATIC world_instance *get_active_world( void )
 258 {
 259    return &world_global.worlds[ world_global.active_world ];
 260 }
 261
 262 /*
 263  * API
 264  */
 265
 266 VG_STATIC
 267 int ray_hit_is_ramp( world_instance *world, ray_hit *hit );
 268
 269 VG_STATIC
 270 struct world_surface *ray_hit_surface( world_instance *world, ray_hit *hit );
 271
 272 VG_STATIC
 273 void ray_world_get_tri( world_instance *world, ray_hit *hit, v3f tri[3] );
 274
 275 VG_STATIC
 276 int ray_world( world_instance *world, v3f pos, v3f dir, ray_hit *hit );
 277
 278 VG_STATIC
 279 ent_spawn *world_find_closest_spawn( world_instance *world, v3f position )
 280 {
 281    ent_spawn *rp = NULL, *r;
 282    float min_dist = INFINITY;
 283
 284    for( u32 i=0; i<mdl_arrcount(&world->ent_spawn); i++ ){
 285       r = mdl_arritm( &world->ent_spawn, i );
 286       float d = v3_dist2( r->transform.co, position );
 287
 288       if( d < min_dist ){
 289          min_dist = d;
 290          rp = r;
 291       }
 292    }
 293
 294    if( !rp ){
 295       if( mdl_arrcount(&world->ent_spawn) ){
 296          vg_warn( "Invalid distances to spawns.. defaulting to first one.\n" );
 297          return mdl_arritm( &world->ent_spawn, 0 );
 298       }
 299       else{
 300          vg_error( "There are no spawns in the level!\n" );
 301       }
 302    }
 303
 304    return rp;
 305 }
 306
 307 VG_STATIC
 308 ent_spawn *world_find_spawn_by_name( world_instance *world, const char *name )
 309 {
 310    ent_spawn *rp = NULL, *r;
 311    for( u32 i=0; i<mdl_arrcount(&world->ent_spawn); i++ ){
 312       r = mdl_arritm( &world->ent_spawn, i );
 313       if( !strcmp( mdl_pstr(&world->meta, r->pstr_name), name ) ){
 314          rp = r;
 315          break;
 316       }
 317    }
 318
 319    if( !rp )
 320       vg_warn( "No spawn named '%s'\n", name );
 321
 322    return rp;
 323 }
 324
 325 /*
 326  * Submodules
 327  */
 328
 329 VG_STATIC float
 330    k_day_length            = 30.0f; /* minutes */
 331
 332 VG_STATIC int   k_debug_light_indices = 0,
 333                 k_debug_light_complexity = 0,
 334                 k_light_preview = 0;
 335
 336 #include "world_routes.h"
 337 #include "world_sfd.h"
 338 #include "world_render.h"
 339 #include "world_water.h"
 340 #include "world_volumes.h"
 341 #include "world_gen.h"
 342 #include "world_gate.h"
 343
 344 /*
 345  * -----------------------------------------------------------------------------
 346  *                                    Events
 347  * -----------------------------------------------------------------------------
 348  */
 349
 350 VG_STATIC int world_stop_sound( int argc, const char *argv[] )
 351 {
 352    world_instance *world = get_active_world();
 353    return 0;
 354 }
 355
 356 VG_STATIC void world_init(void)
 357 {
 358    VG_VAR_F32( k_day_length );
 359    VG_VAR_I32( k_debug_light_indices );
 360    VG_VAR_I32( k_debug_light_complexity );
 361    VG_VAR_I32( k_light_preview );
 362
 363    world_global.sky_rate = 1.0;
 364    world_global.sky_target_rate = 1.0;
 365
 366    shader_scene_standard_register();
 367    shader_scene_standard_alphatest_register();
 368    shader_scene_vertex_blend_register();
 369    shader_scene_terrain_register();
 370    shader_scene_depth_register();
 371    shader_scene_position_register();
 372
 373    shader_model_sky_register();
 374
 375    vg_info( "Loading world resources\n" );
 376
 377    vg_linear_clear( vg_mem.scratch );
 378
 379    mdl_context msky;
 380    mdl_open( &msky, "models/rs_skydome.mdl", vg_mem.scratch );
 381    mdl_load_metadata_block( &msky, vg_mem.scratch );
 382    mdl_load_mesh_block( &msky, vg_mem.scratch );
 383    mdl_close( &msky );
 384
 385    vg_acquire_thread_sync();
 386    {
 387       mdl_unpack_glmesh( &msky, &world_global.skydome );
 388    }
 389    vg_release_thread_sync();
 390
 391    /* Other systems */
 392    vg_info( "Loading other world systems\n" );
 393
 394    vg_loader_step( world_render_init, NULL );
 395    vg_loader_step( world_sfd_init, NULL );
 396    vg_loader_step( world_water_init, NULL );
 397    vg_loader_step( world_gates_init, NULL );
 398    vg_loader_step( world_routes_init, NULL );
 399
 400    /* Allocate dynamic world memory arena */
 401    u32 max_size = 76*1024*1024;
 402    world_global.heap = vg_create_linear_allocator( vg_mem.rtmemory, max_size,
 403                                                    VG_MEMORY_SYSTEM );
 404 }
 405
 406 typedef struct ent_call ent_call;
 407 struct ent_call{
 408    ent_index ent;
 409    u32 function;
 410    void *data;
 411 };
 412
 413 VG_STATIC void entity_call( world_instance *world, ent_call *call );
 414
 415 VG_STATIC void ent_volume_call( world_instance *world, ent_call *call )
 416 {
 417    ent_volume *volume = mdl_arritm( &world->ent_volume, call->ent.index );
 418    if( !volume->target.type ) return;
 419
 420    if( call->function == k_ent_function_trigger ){
 421       call->ent = volume->target;
 422
 423       if( volume->type == k_volume_subtype_particle ){
 424          float *co = alloca( sizeof(float)*3 );
 425          co[0] = vg_randf()*2.0f-1.0f;
 426          co[1] = vg_randf()*2.0f-1.0f;
 427          co[2] = vg_randf()*2.0f-1.0f;
 428          m4x3_mulv( volume->to_world, co, co );
 429
 430          call->function = k_ent_function_particle_spawn;
 431          call->data = co;
 432          entity_call( world, call );
 433       }
 434       else
 435          entity_call( world, call );
 436    }
 437 }
 438
 439 VG_STATIC void ent_audio_call( world_instance *world, ent_call *call )
 440 {
 441    ent_audio *audio = mdl_arritm( &world->ent_audio, call->ent.index );
 442
 443    v3f sound_co;
 444
 445    if( call->function == k_ent_function_particle_spawn ){
 446       v3_copy( call->data, sound_co );
 447    }
 448    else if( call->function == k_ent_function_trigger ){
 449       v3_copy( audio->transform.co, sound_co );
 450    }
 451    else
 452       vg_fatal_exit_loop( "ent_audio_call (invalid function id)" );
 453
 454    float chance = vg_randf()*100.0f,
 455          bar = 0.0f;
 456
 457    for( u32 i=0; i<audio->clip_count; i++ ){
 458       ent_audio_clip *clip = mdl_arritm( &world->ent_audio_clip,
 459                                           audio->clip_start+i );
 460
 461       float mod = world->probabilities[ audio->probability_curve ],
 462             p   = clip->probability * mod;
 463
 464       bar += p;
 465
 466       if( chance < bar ){
 467
 468          audio_lock();
 469
 470          if( audio->behaviour == k_channel_behaviour_unlimited ){
 471             audio_oneshot_3d( &clip->clip, sound_co,
 472                               audio->transform.s[0],
 473                               audio->volume );
 474          }
 475          else if( audio->behaviour == k_channel_behaviour_discard_if_full ){
 476             audio_channel *ch =
 477                audio_get_group_idle_channel( audio->group,
 478                                              audio->max_channels );
 479
 480             if( ch ){
 481                audio_channel_init( ch, &clip->clip, audio->flags );
 482                audio_channel_group( ch, audio->group );
 483                audio_channel_set_spacial( ch, sound_co, audio->transform.s[0] );
 484                audio_channel_edit_volume( ch, audio->volume, 1 );
 485                ch = audio_relinquish_channel( ch );
 486             }
 487          }
 488          else if( audio->behaviour == k_channel_behaviour_crossfade_if_full){
 489             audio_channel *ch =
 490                audio_get_group_idle_channel( audio->group,
 491                                              audio->max_channels );
 492
 493             /* group is full */
 494             if( !ch ){
 495                audio_channel *existing =
 496                   audio_get_group_first_active_channel( audio->group );
 497
 498                if( existing ){
 499                   if( existing->source == &clip->clip ){
 500                      audio_unlock();
 501                      return;
 502                   }
 503
 504                   existing->group = 0;
 505                   existing = audio_channel_fadeout(existing, audio->crossfade);
 506                }
 507
 508                ch = audio_get_first_idle_channel();
 509             }
 510
 511             if( ch ){
 512                audio_channel_init( ch, &clip->clip, audio->flags );
 513                audio_channel_group( ch, audio->group );
 514                audio_channel_fadein( ch, audio->crossfade );
 515                ch = audio_relinquish_channel( ch );
 516             }
 517          }
 518
 519          audio_unlock();
 520          return;
 521       }
 522    }
 523 }
 524
 525 VG_STATIC void entity_call( world_instance *world, ent_call *call )
 526 {
 527    if( call->ent.type == k_ent_volume ){
 528       ent_volume_call( world, call );
 529    } else if( call->ent.type == k_ent_audio ){
 530       ent_audio_call( world, call );
 531    }
 532 }
 533
 534 VG_STATIC void world_update( world_instance *world, v3f pos )
 535 {
 536    world_global.sky_time += world_global.sky_rate * vg.time_delta;
 537    world_global.sky_rate = vg_lerp( world_global.sky_rate,
 538                                     world_global.sky_target_rate,
 539                                     vg.time_delta * 5.0 );
 540
 541    world_routes_update_timer_texts( world );
 542    world_routes_update( world );
 543    //world_routes_debug( world );
 544
 545    /* ---- SFD ------------ */
 546
 547    if( mdl_arrcount( &world->ent_route ) ){
 548       u32 closest = 0;
 549       float min_dist = INFINITY;
 550
 551       for( u32 i=0; i<mdl_arrcount( &world->ent_route ); i++ ){
 552          ent_route *route = mdl_arritm( &world->ent_route, i );
 553          float dist = v3_dist2( route->board_transform[3], pos );
 554
 555          if( dist < min_dist ){
 556             min_dist = dist;
 557             closest = i;
 558          }
 559       }
 560
 561       if( (world_global.sfd.active_route_board != closest)
 562           || network_scores_updated )
 563       {
 564          network_scores_updated = 0;
 565          world_global.sfd.active_route_board = closest;
 566
 567          ent_route *route = mdl_arritm( &world->ent_route, closest );
 568          u32 id = route->official_track_id;
 569
 570          if( id != 0xffffffff ){
 571             struct netmsg_board *local_board =
 572                &scoreboard_client_data.boards[id];
 573
 574             for( int i=0; i<13; i++ ){
 575                sfd_encode( i, &local_board->data[27*i] );
 576             }
 577          }else{
 578             sfd_encode( 0, mdl_pstr( &world->meta, route->pstr_name ) );
 579             sfd_encode( 1, "No data" );
 580          }
 581       }
 582    }
 583    sfd_update();
 584
 585    static float random_accum = 0.0f;
 586    random_accum += vg.time_delta;
 587
 588    u32 random_ticks = 0;
 589
 590    while( random_accum > 0.1f ){
 591       random_accum -= 0.1f;
 592       random_ticks ++;
 593    }
 594
 595    float radius = 25.0f;
 596    boxf volume_proximity;
 597    v3_add( pos, (v3f){ radius, radius, radius }, volume_proximity[1] );
 598    v3_sub( pos, (v3f){ radius, radius, radius }, volume_proximity[0] );
 599
 600    bh_iter it;
 601    bh_iter_init( 0, &it );
 602    int idx;
 603
 604    int in_volume = 0;
 605
 606    while( bh_next( world->volume_bh, &it, volume_proximity, &idx ) ){
 607       ent_volume *volume = mdl_arritm( &world->ent_volume, idx );
 608
 609       boxf cube = {{-1.0f,-1.0f,-1.0f},{1.0f,1.0f,1.0f}};
 610
 611       if( volume->type == k_volume_subtype_trigger ){
 612          v3f local;
 613          m4x3_mulv( volume->to_local, pos, local );
 614
 615          if( (fabsf(local[0]) <= 1.0f) &&
 616              (fabsf(local[1]) <= 1.0f) &&
 617              (fabsf(local[2]) <= 1.0f) )
 618          {
 619             in_volume = 1;
 620             vg_line_boxf_transformed( volume->to_world, cube, 0xff00ff00 );
 621
 622             if( !world_global.in_volume ){
 623                ent_call basecall;
 624                basecall.ent.index = idx;
 625                basecall.ent.type = k_ent_volume;
 626                basecall.function = k_ent_function_trigger;
 627                basecall.data = NULL;
 628
 629                entity_call( world, &basecall );
 630             }
 631          }
 632          else
 633             vg_line_boxf_transformed( volume->to_world, cube, 0xff0000ff );
 634       }
 635       else if( volume->type == k_volume_subtype_particle ){
 636          vg_line_boxf_transformed( volume->to_world, cube, 0xff00c0ff );
 637
 638          for( int j=0; j<random_ticks; j++ ){
 639             ent_call basecall;
 640             basecall.ent.index = idx;
 641             basecall.ent.type = k_ent_volume;
 642             basecall.function = k_ent_function_trigger;
 643             basecall.data = NULL;
 644
 645             entity_call( world, &basecall );
 646          }
 647       }
 648    }
 649    world_global.in_volume = in_volume;
 650
 651 #if 0
 652    if( k_debug_light_indices )
 653    {
 654       for( int i=0; i<world->light_count; i++ ){
 655          struct world_light *light = &world->lights[i];
 656          struct classtype_world_light *inf = light->inf;
 657
 658          u32 colour = 0xff000000;
 659          u8 r = inf->colour[0] * 255.0f,
 660             g = inf->colour[1] * 255.0f,
 661             b = inf->colour[2] * 255.0f;
 662
 663          colour |= r;
 664          colour |= g << 8;
 665          colour |= b << 16;
 666
 667          vg_line_pt3( light->node->co, 0.25f, colour );
 668       }
 669    }
 670
 671 #endif
 672 }
 673
 674 /*
 675  * -----------------------------------------------------------------------------
 676  *                              API implementation
 677  * -----------------------------------------------------------------------------
 678  */
 679
 680 VG_STATIC void ray_world_get_tri( world_instance *world,
 681                                   ray_hit *hit, v3f tri[3] )
 682 {
 683    for( int i=0; i<3; i++ )
 684       v3_copy( world->scene_geo->arrvertices[ hit->tri[i] ].co, tri[i] );
 685 }
 686
 687 VG_STATIC int ray_world( world_instance *world,
 688                          v3f pos, v3f dir, ray_hit *hit )
 689 {
 690    return scene_raycast( world->scene_geo, world->geo_bh, pos, dir, hit );
 691 }
 692
 693 /*
 694  * Cast a sphere from a to b and see what time it hits
 695  */
 696 VG_STATIC int spherecast_world( world_instance *world,
 697                                 v3f pa, v3f pb, float r, float *t, v3f n )
 698 {
 699    bh_iter it;
 700    bh_iter_init( 0, &it );
 701
 702    boxf region;
 703    box_init_inf( region );
 704    box_addpt( region, pa );
 705    box_addpt( region, pb );
 706
 707    v3_add( (v3f){ r, r, r}, region[1], region[1] );
 708    v3_add( (v3f){-r,-r,-r}, region[0], region[0] );
 709
 710    v3f dir;
 711    v3_sub( pb, pa, dir );
 712
 713    v3f dir_inv;
 714    dir_inv[0] = 1.0f/dir[0];
 715    dir_inv[1] = 1.0f/dir[1];
 716    dir_inv[2] = 1.0f/dir[2];
 717
 718    int hit = -1;
 719    float min_t = 1.0f;
 720
 721    int idx;
 722    while( bh_next( world->geo_bh, &it, region, &idx ) ){
 723       u32 *ptri = &world->scene_geo->arrindices[ idx*3 ];
 724       v3f tri[3];
 725
 726       boxf box;
 727       box_init_inf( box );
 728
 729       for( int j=0; j<3; j++ ){
 730          v3_copy( world->scene_geo->arrvertices[ptri[j]].co, tri[j] );
 731          box_addpt( box, tri[j] );
 732       }
 733
 734       v3_add( (v3f){ r, r, r}, box[1], box[1] );
 735       v3_add( (v3f){-r,-r,-r}, box[0], box[0] );
 736
 737       if( !ray_aabb1( box, pa, dir_inv, 1.0f ) )
 738          continue;
 739
 740       float t;
 741       v3f n1;
 742       if( spherecast_triangle( tri, pa, dir, r, &t, n1 ) ){
 743          if( t < min_t ){
 744             min_t = t;
 745             hit = idx;
 746             v3_copy( n1, n );
 747          }
 748       }
 749    }
 750
 751    *t = min_t;
 752    return hit;
 753 }
 754
 755 VG_STATIC
 756 struct world_surface *world_tri_index_surface( world_instance *world,
 757                                                  u32 index )
 758 {
 759    for( int i=1; i<world->surface_count; i++ ){
 760       struct world_surface *surf = &world->surfaces[i];
 761
 762       if( (index >= surf->sm_geo.vertex_start) &&
 763           (index  < surf->sm_geo.vertex_start+surf->sm_geo.vertex_count ) )
 764       {
 765          return surf;
 766       }
 767    }
 768
 769    return &world->surfaces[0];
 770 }
 771
 772 VG_STATIC struct world_surface *world_contact_surface( world_instance *world,
 773                                                          rb_ct *ct )
 774 {
 775    return world_tri_index_surface( world, ct->element_id );
 776 }
 777
 778 VG_STATIC struct world_surface *ray_hit_surface( world_instance *world,
 779                                                  ray_hit *hit )
 780 {
 781    return world_tri_index_surface( world, hit->tri[0] );
 782 }
 783
 784 /*
 785  * -----------------------------------------------------------------------------
 786  *                              Audio sampling
 787  * -----------------------------------------------------------------------------
 788  */
 789
 790 VG_STATIC
 791 enum audio_sprite_type world_audio_sample_sprite_random(v3f origin, v3f output);
 792 VG_STATIC void world_audio_sample_distances( v3f co, int *index, float *value );
 793
 794 #include "audio.h"
 795
 796 /*
 797  * Trace out a random point, near the player to try and determine water areas
 798  */
 799 VG_STATIC
 800 enum audio_sprite_type world_audio_sample_sprite_random(v3f origin, v3f output)
 801 {
 802    v3f chance = { (vg_randf()-0.5f) * 30.0f,
 803                   8.0f,
 804                   (vg_randf()-0.5f) * 30.0f };
 805
 806    v3f pos;
 807    v3_add( chance, origin, pos );
 808
 809    ray_hit contact;
 810    contact.dist = vg_minf( 16.0f, pos[1] );
 811
 812    world_instance *world = get_active_world();
 813
 814    if( ray_world( world, pos, (v3f){0.0f,-1.0f,0.0f}, &contact ) ){
 815       struct world_surface *mat = ray_hit_surface( world, &contact );
 816
 817       if( mat->info.surface_prop == k_surface_prop_grass){
 818          v3_copy( contact.pos, output );
 819          return k_audio_sprite_type_grass;
 820       }
 821       else{
 822          return k_audio_sprite_type_none;
 823       }
 824    }
 825
 826    output[0] = pos[0];
 827    output[1] = 0.0f;
 828    output[2] = pos[2];
 829
 830    float dist = fabsf(output[1] - origin[1]);
 831
 832    if( world->water.enabled && dist<=40.0f )
 833       return k_audio_sprite_type_water;
 834    else
 835       return k_audio_sprite_type_none;
 836 }
 837
 838 VG_STATIC void world_audio_sample_distances( v3f co, int *index, float *value )
 839 {
 840    float inr3 = 0.57735027,
 841          inr2 = 0.70710678118;
 842
 843    v3f sample_directions[] = {
 844       { -1.0f,  0.0f,  0.0f },
 845       {  1.0f,  0.0f,  0.0f },
 846       {  0.0f,  0.0f,  1.0f },
 847       {  0.0f,  0.0f, -1.0f },
 848       {  0.0f,  1.0f,  0.0f },
 849       {  0.0f, -1.0f,  0.0f },
 850       { -inr3,  inr3,  inr3 },
 851       {  inr3,  inr3,  inr3 },
 852       { -inr3,  inr3, -inr3 },
 853       {  inr3,  inr3, -inr3 },
 854       { -inr2,  0.0f,  inr2 },
 855       {  inr2,  0.0f,  inr2 },
 856       { -inr2,  0.0f, -inr2 },
 857       {  inr2,  0.0f, -inr2 },
 858    };
 859
 860    static int si = 0;
 861    static float distances[16];
 862
 863    ray_hit ray;
 864    ray.dist = 5.0f;
 865
 866    v3f rc, rd, ro;
 867    v3_copy( sample_directions[ si ], rd );
 868    v3_add( co, (v3f){0.0f,1.5f,0.0f}, ro );
 869    v3_copy( ro, rc );
 870
 871    float dist = 200.0f;
 872
 873    for( int i=0; i<10; i++ ){
 874       if( ray_world( get_active_world(), rc, rd, &ray ) ){
 875          dist = (float)i*5.0f + ray.dist;
 876          break;
 877       }
 878       else{
 879          v3_muladds( rc, rd, ray.dist, rc );
 880       }
 881    }
 882
 883    distances[si] = dist;
 884
 885    if( vg_lines.draw ){
 886       for( int i=0; i<14; i++ ){
 887          if( distances[i] != 200.0f ){
 888             u32 colours[] = { VG__RED, VG__BLUE, VG__GREEN,
 889                               VG__CYAN, VG__YELOW, VG__PINK,
 890                               VG__WHITE };
 891
 892             u32 colour = colours[i%7];
 893
 894             v3f p1;
 895             v3_muladds( ro, sample_directions[i], distances[i], p1 );
 896             vg_line( ro, p1, colour );
 897             vg_line_pt3( p1, 0.1f, colour );
 898          }
 899       }
 900    }
 901
 902    *index = si;
 903    *value = dist;
 904
 905    si ++;
 906    if( si >= 14 )
 907       si = 0;
 908 }
 909
 910 #endif /* WORLD_H */