add late flips

[carveJwlIkooP6JGAAIwe30JlM.git] / world_routes.c

/*
 * Copyright (C) 2021-2023 Mt.ZERO Software, Harry Godden - All Rights Reserved
 */

#ifndef ROUTES_C
#define ROUTES_C

#include <time.h>
#include "entity.h"
#include "world_routes.h"
#include "world_gate.h"
#include "world_load.h"
#include "highscores.h"
#include "network.h"

#include "font.h"
#include "gui.h"
#include "steam.h"
#include "network_msg.h"
#include "network_common.h"

#include "shaders/scene_route.h"
#include "shaders/routeui.h"
#include "ent_region.h"

static void world_routes_clear( world_instance *world )
{
   for( u32 i=0; i<mdl_arrcount( &world->ent_route ); i++ ){
      ent_route *route = mdl_arritm( &world->ent_route, i );
      route->active_checkpoint = 0xffff;
   }

   for( u32 i=0; i<mdl_arrcount( &world->ent_gate ); i++ ){
      ent_gate *rg = mdl_arritm( &world->ent_gate, i );
      rg->timing_version = 0;
      rg->timing_time = 0.0;
   }

   world_static.current_run_version += 4;
   world_static.last_use = 0.0;
}

static void world_routes_time_lap( world_instance *world, ent_route *route ){
   vg_info( "------- time lap %s -------\n", 
            mdl_pstr(&world->meta,route->pstr_name) );

   double start_time = 0.0;
   u32 last_version=0;
   f64 last_time = 0.0;
   ent_checkpoint *last_cp = NULL;

   u32 valid_sections=0;
   int clean = !localplayer.rewinded_since_last_gate;

   for( u32 i=0; i<route->checkpoints_count; i++ ){
      u32 cpid  = (i+route->active_checkpoint) % route->checkpoints_count;
          cpid += route->checkpoints_start;

      ent_checkpoint *cp = mdl_arritm( &world->ent_checkpoint, cpid );
      ent_gate *rg = mdl_arritm( &world->ent_gate, cp->gate_index );
                rg = mdl_arritm( &world->ent_gate, rg->target );

      if( i == 1 ){
         route->timing_base = rg->timing_time;
      }

      if( i == 0 )
         start_time = rg->timing_time;
      else{
         if( last_version+1 == rg->timing_version ) valid_sections ++;
         else valid_sections = 0;
      }

      vg_info( "%u %f [%s]\n", rg->timing_version, rg->timing_time,
            i? ((rg->flags & k_ent_gate_clean_pass)? "CLEAN": "     "):
                " N/A ");

      if( !(rg->flags & k_ent_gate_clean_pass) )
         clean = 0;

      last_version = rg->timing_version;
      last_time = rg->timing_time;
      last_cp = cp;
   }

   if( world_static.current_run_version == last_version+1 ){
      valid_sections ++;

      if( route->checkpoints_count == 1 ){
         route->timing_base = world_static.time;
      }

      f32 section = world_static.time - last_time;
      if( (section < last_cp->best_time) || (last_cp->best_time == 0.0f) ){
         last_cp->best_time = section;
      }
   }
   else valid_sections = 0;

   vg_info( "%u %f [%s]\n", 
            world_static.current_run_version, world_static.time,
           !localplayer.rewinded_since_last_gate? "CLEAN": "     " );

   if( valid_sections==route->checkpoints_count ){
      f64 lap_time = world_static.time - start_time;

      if( (route->best_laptime == 0.0) || (lap_time < route->best_laptime) ){
         route->best_laptime = lap_time;
      }

      route->flags |= k_ent_route_flag_achieve_silver;
      if( clean ) route->flags |= k_ent_route_flag_achieve_gold;
      ent_region_re_eval( world );

      /* for steam achievements. */
      if( route->anon.official_track_id != 0xffffffff ){
         struct track_info *ti = &track_infos[ route->anon.official_track_id ];
         if( ti->achievement_id ){
            steam_set_achievement( ti->achievement_id );
            steam_store_achievements();
         }
      }

      addon_alias *alias = 
         &world_static.instance_addons[ world_static.active_instance ]->alias;

      char mod_uid[ ADDON_UID_MAX ];
      addon_alias_uid( alias, mod_uid );
      network_publish_laptime( mod_uid, 
                               mdl_pstr( &world->meta, route->pstr_name ),
                               lap_time );
   }

   route->valid_checkpoints = valid_sections+1;

   vg_info( "valid sections: %u\n", valid_sections );
   vg_info( "----------------------------\n" );

   route->ui_residual = 1.0f;
   route->ui_residual_block_w = route->ui_first_block_width;
}

/*
 * When going through a gate this is called for bookkeeping purposes
 */
static void world_routes_activate_entry_gate( world_instance *world, 
                                                 ent_gate *rg )
{
   world_static.last_use = world_static.time;
   ent_gate *dest = mdl_arritm( &world->ent_gate, rg->target );

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm( &world->ent_route, i );

      u32 active_prev = route->active_checkpoint;
      route->active_checkpoint = 0xffff;

      for( u32 j=0; j<4; j++ ){
         if( dest->routes[j] == i ){
            for( u32 k=0; k<route->checkpoints_count; k++ ){
               ent_checkpoint *cp = mdl_arritm( &world->ent_checkpoint, 
                                                 route->checkpoints_start+k );

               ent_gate *gk = mdl_arritm( &world->ent_gate, cp->gate_index );
                         gk = mdl_arritm( &world->ent_gate, gk->target );
               if( gk == dest ){
                  route->active_checkpoint = k;
                  world_routes_time_lap( world, route );
                  break;
               }
            }
            break;
         }
      }
   }

   dest->timing_version = world_static.current_run_version;
   dest->timing_time = world_static.time;

   if( localplayer.rewinded_since_last_gate ){
      localplayer.rewinded_since_last_gate = 0;
      dest->flags &= ~k_ent_gate_clean_pass;
   }
   else
      dest->flags |= k_ent_gate_clean_pass;

   world_static.current_run_version ++;
}

/* draw lines along the paths */
static void world_routes_debug( world_instance *world )
{
   for( u32 i=0; i<mdl_arrcount(&world->ent_route_node); i++ ){
      ent_route_node *rn = mdl_arritm(&world->ent_route_node,i);
      vg_line_point( rn->co, 0.25f, VG__WHITE );
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm(&world->ent_route, i);

      u32 colours[] = { 0xfff58142, 0xff42cbf5, 0xff42f56c, 0xfff542b3,
                        0xff5442f5 };

      u32 cc = 0xffcccccc;
      if( route->active_checkpoint != 0xffff ){
         cc = colours[i%vg_list_size(colours)];
      }

      for( int i=0; i<route->checkpoints_count; i++ ){
         int i0 = route->checkpoints_start+i,
             i1 = route->checkpoints_start+((i+1)%route->checkpoints_count);

         ent_checkpoint *c0 = mdl_arritm(&world->ent_checkpoint, i0),
                        *c1 = mdl_arritm(&world->ent_checkpoint, i1);

         ent_gate *start_gate = mdl_arritm( &world->ent_gate, c0->gate_index );
         ent_gate *end_gate = mdl_arritm( &world->ent_gate, c1->gate_index );

         v3f p0, p1;
         v3_copy( start_gate->co[1], p0 );

         for( int j=0; j<c0->path_count; j ++ ){
            ent_path_index *index = mdl_arritm( &world->ent_path_index, 
                                                c0->path_start+j );

            ent_route_node *rn = mdl_arritm( &world->ent_route_node,
                                             index->index );

            v3_copy( rn->co, p1 );
            vg_line( p0, p1, cc );
            v3_copy( p1, p0 );
         }

         v3_copy( end_gate->co[0], p1 );
         vg_line( p0, p1, cc );
      }
   }
}


static 
void world_routes_place_curve( world_instance *world, ent_route *route,
                               v4f h[3], v3f n0, v3f n2, scene_context *scene )
{
   float t;
   v3f p, pd;
   int last_valid=0;

   float total_length = 0.0f,
         travel_length = 0.0;

   v3f last;
   v3_copy( h[0], last );
   for( int it=0; it<128; it ++ ){
      t = (float)(it+1) * (1.0f/128.0f);
      eval_bezier3( h[0], h[1], h[2], t, p );
      total_length += v3_dist( p, last );
      v3_copy( p, last );
   }

   float patch_size = 4.0f,
         patch_count = ceilf( total_length / patch_size );

   t = 0.0f;
   v3_copy( h[0], last );

   for( int it=0; it<128; it ++ ){
      float const k_sample_dist = 0.0025f,
                  k_line_width = 1.5f;

      eval_bezier3( h[0], h[1], h[2], t, p );
      eval_bezier3( h[0], h[1], h[2], t+k_sample_dist, pd );

      travel_length += v3_dist( p, last );

      float mod = k_sample_dist / v3_dist( p, pd );

      v3f v0,up, right;

      v3_muls( n0, -(1.0f-t), up );
      v3_muladds( up, n2, -t, up );
      v3_normalize( up );

      v3_sub( pd,p,v0 );
      v3_cross( up, v0, right );
      v3_normalize( right );

      float cur_x = (1.0f-t)*h[0][3] + t*h[2][3];
      
      v3f sc, sa, sb, down;
      v3_muladds( p, right, cur_x * k_line_width, sc );
      v3_muladds( sc, up, 1.5f, sc );
      v3_muladds( sc, right, k_line_width*0.95f, sa );
      v3_muladds( sc, right, 0.0f, sb );
      v3_muls( up, -1.0f, down );
      
      ray_hit ha, hb;
      ha.dist = 8.0f;
      hb.dist = 8.0f;

      int resa = ray_world( world, sa, down, &ha, k_material_flag_ghosts ),
          resb = ray_world( world, sb, down, &hb, k_material_flag_ghosts );

      if( resa && resb ){
         struct world_surface *surfa = ray_hit_surface( world, &ha ),
                              *surfb = ray_hit_surface( world, &hb );

         if( (surfa->info.flags & k_material_flag_skate_target) &&
             (surfb->info.flags & k_material_flag_skate_target) )
         {
            scene_vert va, vb;

            float gap = vg_fractf(cur_x*0.5f)*0.02f;
            
            v3_muladds( ha.pos, up, 0.06f+gap, va.co );
            v3_muladds( hb.pos, up, 0.06f+gap, vb.co );

            scene_vert_pack_norm( &va, up, 0.0f );
            scene_vert_pack_norm( &vb, up, 0.0f );

            float t1 = (travel_length / total_length) * patch_count;
            va.uv[0] = t1;
            va.uv[1] = 0.0f;
            vb.uv[0] = t1;
            vb.uv[1] = 1.0f;

            scene_push_vert( scene, &va );
            scene_push_vert( scene, &vb );

            if( last_valid ){
               /* Connect them with triangles */
               scene_push_tri( scene, (u32[3]){ 
                     last_valid+0-2, last_valid+1-2, last_valid+2-2} );
               scene_push_tri( scene, (u32[3]){ 
                     last_valid+1-2, last_valid+3-2, last_valid+2-2} );
            }
            
            last_valid = scene->vertex_count;
         }
         else
            last_valid = 0;
      }
      else
         last_valid = 0;

      if( t == 1.0f )
         return;

      t += 1.0f*mod;
      if( t > 1.0f )
         t = 1.0f;

      v3_copy( p, last );
   }
}

static void world_routes_gen_meshes( world_instance *world, u32 route_id, 
                                        scene_context *sc )
{
   ent_route *route = mdl_arritm( &world->ent_route, route_id );
   u8 colour[4];
   colour[0] = route->colour[0] * 255.0f;
   colour[1] = route->colour[1] * 255.0f;
   colour[2] = route->colour[2] * 255.0f;
   colour[3] = route->colour[3] * 255.0f;

   u32 last_valid = 0;

   for( int i=0; i<route->checkpoints_count; i++ ){
      int i0 = route->checkpoints_start+i,
          i1 = route->checkpoints_start+((i+1)%route->checkpoints_count);

      ent_checkpoint *c0 = mdl_arritm(&world->ent_checkpoint, i0),
                     *c1 = mdl_arritm(&world->ent_checkpoint, i1);

      ent_gate *start_gate = mdl_arritm( &world->ent_gate, c0->gate_index );
      start_gate = mdl_arritm( &world->ent_gate, start_gate->target );

      ent_gate *end_gate = mdl_arritm( &world->ent_gate, c1->gate_index ),
               *collector = mdl_arritm( &world->ent_gate, end_gate->target );

      v4f p[3];

      v3_add( (v3f){0.0f,0.1f,0.0f}, start_gate->co[0], p[0] );
      p[0][3]  = start_gate->ref_count;
      p[0][3] -= (float)start_gate->route_count * 0.5f;
      start_gate->ref_count ++;

      if( !c0->path_count )
         continue;

      /* this is so that we get nice flow through the gates */
      v3f temp_alignments[2];
      ent_gate *both[] = { start_gate, end_gate };

      for( int j=0; j<2; j++ ){
         int pi = c0->path_start + ((j==1)? c0->path_count-1: 0);

         ent_path_index *index = mdl_arritm( &world->ent_path_index, pi );
         ent_route_node *rn = mdl_arritm( &world->ent_route_node,
                                          index->index );
         v3f v0;
         v3_sub( rn->co, both[j]->co[0], v0 );
         float d = v3_dot( v0, both[j]->to_world[2] );

         v3_muladds( both[j]->co[0], both[j]->to_world[2], d, 
                     temp_alignments[j] );
         v3_add( (v3f){0.0f,0.1f,0.0f}, temp_alignments[j], temp_alignments[j]);
      }


      for( int j=0; j<c0->path_count; j ++ ){
         ent_path_index *index = mdl_arritm( &world->ent_path_index, 
                                             c0->path_start+j );
         ent_route_node *rn = mdl_arritm( &world->ent_route_node,
                                          index->index );
         if( j==0 || j==c0->path_count-1 )
            if( j == 0 )
               v3_copy( temp_alignments[0], p[1] );
            else
               v3_copy( temp_alignments[1], p[1] );
         else
            v3_copy( rn->co, p[1] );

         p[1][3] = rn->ref_count;
         p[1][3] -= (float)rn->ref_total * 0.5f;
         rn->ref_count ++;

         if( j+1 < c0->path_count ){
            index = mdl_arritm( &world->ent_path_index, 
                                c0->path_start+j+1 );
            rn = mdl_arritm( &world->ent_route_node, index->index );

            if( j+1 == c0->path_count-1 )
               v3_lerp( p[1], temp_alignments[1], 0.5f, p[2] );
            else
               v3_lerp( p[1], rn->co, 0.5f, p[2] );

            p[2][3] = rn->ref_count;
            p[2][3] -= (float)rn->ref_total * 0.5f;
         }
         else{
            v3_copy( end_gate->co[0], p[2] );
            v3_add( (v3f){0.0f,0.1f,0.0f}, p[2], p[2] );
            p[2][3] = collector->ref_count;

            if( i == route->checkpoints_count-1)
               p[2][3] -= 1.0f;

            p[2][3] -= (float)collector->route_count * 0.5f;
            //collector->ref_count ++;
         }

         /* p0,p1,p2 bezier patch is complete
          * --------------------------------------*/
         v3f surf0, surf2, n0, n2;

         if( bh_closest_point( world->geo_bh, p[0], surf0, 5.0f ) == -1 )
            v3_add( (v3f){0.0f,-0.1f,0.0f}, p[0], surf0 );

         if( bh_closest_point( world->geo_bh, p[2], surf2, 5.0f ) == -1 )
            v3_add( (v3f){0.0f,-0.1f,0.0f}, p[2], surf2 );

         v3_sub( surf0, p[0], n0 );
         v3_sub( surf2, p[2], n2 );
         v3_normalize( n0 );
         v3_normalize( n2 );

         world_routes_place_curve( world, route, p, n0, n2, sc );

         /* --- */
         v4_copy( p[2], p[0] );
      }
   }

   scene_copy_slice( sc, &route->sm );
}

static 
struct world_surface *world_tri_index_surface( world_instance *world, 
                                                 u32 index );

/* 
 * Create the strips of colour that run through the world along course paths
 */
static void world_gen_routes_generate( u32 instance_id ){
   world_instance *world = &world_static.instances[ instance_id ];
   vg_info( "Generating route meshes\n" );
   vg_async_stall();

   vg_rand_seed( 2000 );
   vg_async_item *call_scene = scene_alloc_async( &world->scene_lines, 
                                                  &world->mesh_route_lines,
                                                  200000, 300000 );

   for( u32 i=0; i<mdl_arrcount(&world->ent_gate); i++ ){
      ent_gate *gate = mdl_arritm( &world->ent_gate, i );
      gate->ref_count = 0;
      gate->route_count = 0;
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_route_node); i++ ){
      ent_route_node *rn = mdl_arritm( &world->ent_route_node, i );
      rn->ref_count = 0;
      rn->ref_total = 0;
   }

   for( u32 k=0; k<mdl_arrcount(&world->ent_route); k++ ){
      ent_route *route = mdl_arritm( &world->ent_route, k );

      for( int i=0; i<route->checkpoints_count; i++ ){
         int i0 = route->checkpoints_start+i,
             i1 = route->checkpoints_start+((i+1)%route->checkpoints_count);

         ent_checkpoint *c0 = mdl_arritm(&world->ent_checkpoint, i0),
                        *c1 = mdl_arritm(&world->ent_checkpoint, i1);

         ent_gate *start_gate = mdl_arritm( &world->ent_gate, c0->gate_index );
         start_gate = mdl_arritm( &world->ent_gate, start_gate->target );
         start_gate->route_count ++;

         if( !c0->path_count )
            continue;

         for( int j=0; j<c0->path_count; j ++ ){
            ent_path_index *index = mdl_arritm( &world->ent_path_index, 
                                                c0->path_start+j );
            ent_route_node *rn = mdl_arritm( &world->ent_route_node,
                                             index->index );
            rn->ref_total ++;
         }
      }
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      world_routes_gen_meshes( world, i, &world->scene_lines );
   }

   vg_async_dispatch( call_scene, async_scene_upload );
   world_routes_clear( world );
}

/* load all routes from model header */
static void world_gen_routes_ent_init( world_instance *world ){
   vg_info( "Initializing routes\n" );

   for( u32 i=0; i<mdl_arrcount(&world->ent_gate); i++ ){
      ent_gate *gate = mdl_arritm( &world->ent_gate, i );
      for( u32 j=0; j<4; j++ ){
         gate->routes[j] = 0xffff;
      }
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm(&world->ent_route,i);
      mdl_transform_m4x3( &route->anon.transform, route->board_transform );

      route->flags = 0x00;
      route->best_laptime = 0.0;
      route->ui_stopper = 0.0f;
      route->ui_residual = 0.0f;
      
      if( mdl_arrcount(&world->ent_region) )
         route->flags |= k_ent_route_flag_out_of_zone;

      route->anon.official_track_id = 0xffffffff;
      for( u32 j=0; j<vg_list_size(track_infos); j ++ ){
         if( !strcmp(track_infos[j].name, 
                     mdl_pstr(&world->meta,route->pstr_name))){
            route->anon.official_track_id = j;
         }
      }

      for( u32 j=0; j<route->checkpoints_count; j++ ){
         u32 id = route->checkpoints_start + j;
         ent_checkpoint *cp = mdl_arritm(&world->ent_checkpoint,id);
         
         ent_gate *gate = mdl_arritm( &world->ent_gate, cp->gate_index );

         for( u32 k=0; k<4; k++ ){
            if( gate->routes[k] == 0xffff ){
               gate->routes[k] = i;
               break;
            }
         }

         if( (gate->flags & k_ent_gate_linked) &
            !(gate->flags & k_ent_gate_nonlocal) ){
            gate = mdl_arritm(&world->ent_gate, gate->target );

            for( u32 k=0; k<4; k++ ){
               if( gate->routes[k] == i ){
                  vg_error( "already assigned route to gate\n" );
                  break;
               }
               if( gate->routes[k] == 0xffff ){
                  gate->routes[k] = i;
                  break;
               }
            }
         }
      }
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_gate); i++ ){
      ent_gate *gate = mdl_arritm( &world->ent_gate, i );
   }

   for( u32 i=0; i<mdl_arrcount(&world->ent_checkpoint); i++ ){
      ent_checkpoint *cp = mdl_arritm( &world->ent_checkpoint, i );
      cp->best_time = 0.0;
   }

   world_routes_clear( world );
}

static void world_routes_recv_scoreboard( world_instance *world, 
                                          vg_msg *body, u32 route_id,
                                          enum request_status status ){
   if( route_id >= mdl_arrcount( &world->ent_route ) ){
      vg_error( "Scoreboard route_id out of range (%u)\n", route_id );
      return;
   }

   struct leaderboard_cache *board = &world->leaderboard_cache[ route_id ];
   board->status = status;

   if( body == NULL ){
      board->data_len = 0;
      return;
   }

   if( body->max > NETWORK_REQUEST_MAX ){
      vg_error( "Scoreboard leaderboard too big (%u>%u)\n", body->max,
                NETWORK_REQUEST_MAX );
      return;
   }

   memcpy( board->data, body->buf, body->max );
   board->data_len = body->max;
}

/* 
 * -----------------------------------------------------------------------------
 *                                    Events
 * -----------------------------------------------------------------------------
 */

static void world_routes_init(void){
   world_static.current_run_version = 200;
   world_static.time = 300.0;
   world_static.last_use = 0.0;

   shader_scene_route_register();
   shader_routeui_register();
}

static void world_routes_update( world_instance *world ){
   world_static.time += vg.time_delta;

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm( &world->ent_route, i );
      
      int target = route->active_checkpoint == 0xffff? 0: 1;
      route->factive = vg_lerpf( route->factive, target, 
                                 0.6f*vg.time_frame_delta );
   }

   for( u32 i=0; i<world_render.text_particle_count; i++ ){
      struct text_particle *particle = &world_render.text_particles[i];
      rb_object_debug( &particle->obj, VG__RED );
   }
}

static void world_routes_fixedupdate( world_instance *world ){
   rb_solver_reset();

   for( u32 i=0; i<world_render.text_particle_count; i++ ){
      struct text_particle *particle = &world_render.text_particles[i];

      if( rb_global_has_space() ){
         rb_ct *buf = rb_global_buffer();

         int l = rb_sphere__scene( particle->obj.rb.to_world,
                                   &particle->obj.inf.sphere,
                                   NULL, &world->rb_geo.inf.scene, buf,
                                   k_material_flag_ghosts );

         for( int j=0; j<l; j++ ){
            buf[j].rba = &particle->obj.rb;
            buf[j].rbb = &world->rb_geo.rb;
         }

         rb_contact_count += l;
      }
   }

   rb_presolve_contacts( rb_contact_buffer, rb_contact_count );

   for( int i=0; i<rb_contact_count; i++ ){
      rb_contact_restitution( rb_contact_buffer+i, vg_randf64() );
   }

   for( int i=0; i<6; i++ ){
      rb_solve_contacts( rb_contact_buffer, rb_contact_count );
   }

   for( u32 i=0; i<world_render.text_particle_count; i++ ){
      struct text_particle *particle = &world_render.text_particles[i];
      rb_iter( &particle->obj.rb );
   }

   for( u32 i=0; i<world_render.text_particle_count; i++ ){
      struct text_particle *particle = &world_render.text_particles[i];
      rb_update_transform( &particle->obj.rb );
   }
}

static void bind_terrain_noise(void);
static void world_bind_light_array( world_instance *world,
                                       GLuint shader, GLuint location, 
                                       int slot );
static void world_bind_light_index( world_instance *world,
                                       GLuint shader, GLuint location, 
                                       int slot );

static void world_routes_update_timer_texts( world_instance *world ){
   world_render.timer_text_count = 0;

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm( &world->ent_route, i );

      if( route->active_checkpoint != 0xffff ){
         u32 next = route->active_checkpoint+1;
             next = next % route->checkpoints_count;
             next += route->checkpoints_start;

         ent_checkpoint *cp = mdl_arritm( &world->ent_checkpoint, next );
         ent_gate *gate = mdl_arritm( &world->ent_gate, cp->gate_index );
         ent_gate *dest = mdl_arritm( &world->ent_gate, gate->target );
         
         u32 j=0;
         for( ; j<4; j++ ){
            if( dest->routes[j] == i ){
               break;
            }
         }

         float h0 = 0.8f,
               h1 = 1.2f,
               depth = 0.4f,
               size = 0.4f;

         struct timer_text *text = 
            &world_render.timer_texts[ world_render.timer_text_count ++ ];

         text->gate = gate;
         text->route = route;

         if( route->valid_checkpoints >= route->checkpoints_count ){
            double lap_time = world_static.time - route->timing_base,
                   time_centiseconds = lap_time * 100.0;

            if( time_centiseconds > (float)0xfffe ) time_centiseconds = 0.0;

            u16 centiseconds = time_centiseconds,
                seconds      = centiseconds / 100,
                minutes      = seconds / 60;

            centiseconds %= 100;
            seconds     %= 60;
            minutes     %= 60;

            if( minutes > 9 ) minutes = 9;
            
            int j=0;
            if( minutes ){
               highscore_intr( text->text, minutes, 1, ' ' ); j++;
               text->text[j++] = ':';
            }
            
            if( seconds >= 10 || minutes ){
               highscore_intr( text->text+j, seconds, 2, '0' ); j+=2;
            }
            else{
               highscore_intr( text->text+j, seconds, 1, '0' ); j++;
            }

            text->text[j++] = '.';
            highscore_intr( text->text+j, centiseconds, 1, '0' ); j++;
            text->text[j] = '\0';
         }
         else{
            highscore_intr( text->text, route->valid_checkpoints, 1, ' ' );
            text->text[1] = '/';
            highscore_intr( text->text+2, route->checkpoints_count+1, 1, ' ' );
            text->text[3] = '\0';
         }
   
         gui_font3d.font = &gui.font;
         float align_r  = font3d_string_width( 0, text->text );
               align_r *= size;

         v3f positions[] = {
            { -0.92f, h0, depth },
            {  0.92f - align_r, h0, depth },
            { -0.92f, h1, depth },
            {  0.92f - align_r, h1, depth },
         };

         if( dest->route_count == 1 ){
            positions[0][0] = -align_r*0.5f;
            positions[0][1] = h1;
         }

         m4x3f mmdl;
         ent_gate_get_mdl_mtx( gate, mmdl );

         m3x3_copy( mmdl, text->transform );
         float ratio = v3_length(text->transform[0]) / 
                        v3_length(text->transform[1]);

         m3x3_scale( text->transform, (v3f){ size, size*ratio, 0.1f } );
         m4x3_mulv( mmdl, positions[j], text->transform[3] );
      }
   }
}

static void world_routes_fracture( world_instance *world, ent_gate *gate,
                                      v3f imp_co, v3f imp_v )
{
   world_render.text_particle_count = 0;
   
   for( u32 i=0; i<world_render.timer_text_count; i++ ){
      struct timer_text *text = &world_render.timer_texts[i];

      if( text->gate != gate ) continue;

      m4x3f transform;
      m4x3_mul( gate->transport, text->transform, transform );

      v3f co, s;
      v4f q;
      m4x3_decompose( transform, co, q, s );

      v3f offset;
      v3_zero( offset );

      v4f colour;
      float brightness = 0.3f + world->ub_lighting.g_day_phase;
      v3_muls( text->route->colour, brightness, colour );
      colour[3] = 1.0f-text->route->factive;

      for( u32 j=0;; j++ ){
         char c = text->text[j];
         if( !c ) break;

         ent_glyph *glyph = font3d_glyph( &gui.font, 0, c );
         if( !glyph ) continue;

         if( c >= (u32)'0' && c <= (u32)'9' && glyph->indice_count ){
            struct text_particle *particle = 
               &world_render.text_particles[world_render.text_particle_count++];

            particle->glyph = glyph;
            v4_copy( colour, particle->colour );

            v3f origin;
            v2_muls( glyph->size, 0.5f, origin );
            origin[2] = -0.5f;

            v3f world_co;

            v3_add( offset, origin, world_co );
            m4x3_mulv( transform, world_co, world_co );

            float r = vg_maxf( s[0]*glyph->size[0], s[1]*glyph->size[1] )*0.5f;

            m3x3_identity( particle->mlocal );
            m3x3_scale( particle->mlocal, s );
            origin[2] *= s[2];
            v3_muls( origin, -1.0f, particle->mlocal[3] );

            v3_copy( world_co, particle->obj.rb.co );
            v3_muls( imp_v, 1.0f+vg_randf64(), particle->obj.rb.v );
            particle->obj.rb.v[1] += 2.0f;

            v4_copy( q, particle->obj.rb.q );
            particle->obj.rb.w[0] = vg_randf64()*2.0f-1.0f;
            particle->obj.rb.w[1] = vg_randf64()*2.0f-1.0f;
            particle->obj.rb.w[2] = vg_randf64()*2.0f-1.0f;

            particle->obj.type = k_rb_shape_sphere;
            particle->obj.inf.sphere.radius = r*0.6f;

            rb_init_object( &particle->obj );
         }
         offset[0] += glyph->size[0];
      }
   }
}

static void render_gate_markers( m4x3f world_mmdl, int run_id, ent_gate *gate ){
   for( u32 j=0; j<4; j++ ){
      if( gate->routes[j] == run_id ){
         m4x3f mmdl;
         m4x3_copy( gate->to_world, mmdl );
         m3x3_scale( mmdl, (v3f){ gate->dimensions[0], 
                                  gate->dimensions[1], 1.0f } );

         m4x3_mul( world_mmdl, mmdl, mmdl );
         shader_model_gate_uMdl( mmdl );
         mdl_draw_submesh( &world_gates.sm_marker[j] );
         break;
      }
   }
}

static void render_world_routes( world_instance *world, 
                                 world_instance *host_world,
                                 m4x3f mmdl, camera *cam, 
                                 int viewing_from_gate, int viewing_from_hub ){

   shader_scene_route_use();
   shader_scene_route_uTexGarbage(0);
   world_link_lighting_ub( host_world, _shader_scene_route.id );
   world_bind_position_texture( host_world, _shader_scene_route.id, 
                        _uniform_scene_route_g_world_depth, 2 );
   world_bind_light_array( host_world, _shader_scene_route.id,
                        _uniform_scene_route_uLightsArray, 3 );
   world_bind_light_index( host_world, _shader_scene_route.id,
                                 _uniform_scene_route_uLightsIndex, 4 );
   bind_terrain_noise();

   shader_scene_route_uPv( cam->mtx.pv );

   if( viewing_from_hub ){
      m4x4f m4mdl, pvm;
      m4x3_expand( mmdl, m4mdl );
      m4x4_mul( cam->mtx_prev.pv, m4mdl, pvm );
      shader_scene_route_uMdl( mmdl );
      shader_scene_route_uPvmPrev( pvm );

      m3x3f mnormal;
      m3x3_inv( mmdl, mnormal );
      m3x3_transpose( mnormal, mnormal );
      v3_normalize( mnormal[0] );
      v3_normalize( mnormal[1] );
      v3_normalize( mnormal[2] );
      shader_scene_route_uNormalMtx( mnormal );
   }
   else{
      shader_scene_route_uMdl( mmdl );
      shader_scene_route_uPvmPrev( cam->mtx_prev.pv );
      m3x3f ident;
      m3x3_identity( ident );
      shader_scene_route_uNormalMtx( ident );
   }

   shader_scene_route_uCamera( cam->transform[3] );

   mesh_bind( &world->mesh_route_lines );

   for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
      ent_route *route = mdl_arritm( &world->ent_route, i );

      f32 t = viewing_from_hub? 1.0f: route->factive;

      v4f colour;
      v3_lerp( (v3f){0.7f,0.7f,0.7f}, route->colour, t, colour );
      colour[3] = t*0.2f;

      shader_scene_route_uColour( colour );
      mdl_draw_submesh( &route->sm );
   }

   /* timers
    * ---------------------------------------------------- */
   if( !viewing_from_gate && !viewing_from_hub ){
      font3d_bind( &gui.font, k_font_shader_default, 0, world, cam );

      for( u32 i=0; i<world_render.timer_text_count; i++ ){
         struct timer_text *text = &world_render.timer_texts[i];

         v4f colour;
         float brightness = 0.3f + world->ub_lighting.g_day_phase;
         v3_muls( text->route->colour, brightness, colour );
         colour[3] = 1.0f-text->route->factive;

         shader_model_font_uColour( colour );
         font3d_simple_draw( 0, text->text, cam, text->transform );
      }

      shader_model_font_uOffset( (v4f){0.0f,0.0f,0.0f,1.0f} );

      for( u32 i=0; i<world_render.text_particle_count; i++ ){
         struct text_particle *particle = &world_render.text_particles[i];

         m4x4f prev_mtx;

         m4x3_expand( particle->mdl, prev_mtx );
         m4x4_mul( cam->mtx_prev.pv, prev_mtx, prev_mtx );

         shader_model_font_uPvmPrev( prev_mtx );

         v4f q;
         m4x3f model;
         rb_extrapolate( &particle->obj.rb, model[3], q );
         q_m3x3( q, model );

         m4x3_mul( model, particle->mlocal, particle->mdl );
         shader_model_font_uMdl( particle->mdl );
         shader_model_font_uColour( particle->colour );

         mesh_drawn( particle->glyph->indice_start, 
                     particle->glyph->indice_count );
      }
   }

   /* gate markers 
    * ---------------------------------------------------- */

   shader_model_gate_use();
   shader_model_gate_uPv( cam->mtx.pv );
   shader_model_gate_uCam( cam->pos );
   shader_model_gate_uTime( vg.time*0.25f );
   shader_model_gate_uInvRes( (v2f){
         1.0f / (float)vg.window_x,
         1.0f / (float)vg.window_y });

   mesh_bind( &world_gates.mesh );

   /* skip writing into the motion vectors for this */
   glDrawBuffers( 1, (GLenum[]){ GL_COLOR_ATTACHMENT0 } );
   glDisable( GL_CULL_FACE );

   if( viewing_from_hub ){
      for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
         ent_route *route = mdl_arritm( &world->ent_route, i );

         v4f colour;
         v3_muls( route->colour, 1.6666f, colour );
         colour[3] = 0.0f;

         shader_model_gate_uColour( colour );

         for( u32 j=0; j<mdl_arrcount(&world->ent_gate); j ++ ){
            ent_gate *gate = mdl_arritm( &world->ent_gate, j );
            if( !(gate->flags & k_ent_gate_nonlocal) )
               render_gate_markers( mmdl, i, gate );
         }
      }
   }
   else{
      for( u32 i=0; i<mdl_arrcount(&world->ent_route); i++ ){
         ent_route *route = mdl_arritm( &world->ent_route, i );

         if( route->active_checkpoint != 0xffff ){
            v4f colour;
            float brightness = 0.3f + world->ub_lighting.g_day_phase;
            v3_muls( route->colour, brightness, colour );
            colour[3] = 1.0f-route->factive;

            shader_model_gate_uColour( colour );

            u32 next = route->active_checkpoint+1+viewing_from_gate;
                next = next % route->checkpoints_count;
                next += route->checkpoints_start;

            ent_checkpoint *cp = mdl_arritm( &world->ent_checkpoint, next );
            ent_gate *gate = mdl_arritm( &world->ent_gate, cp->gate_index );
            render_gate_markers( mmdl, i, gate );
         }
      }
   }
   glEnable( GL_CULL_FACE );
   glDrawBuffers( 2, (GLenum[]){ GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1 } );
}

#endif /* ROUTES_C */