add key to disable timings graph

Author: wchristian

lib/Microidium/ClientRole.pm

@@ -6,7 +6,7 @@ use strictures;
 
 use lib '..';
 use 5.010;
-use SDL::Constants map "SDLK_$_", qw( q UP LEFT RIGHT d n o l );
+use SDL::Constants map "SDLK_$_", qw( q UP LEFT RIGHT d n o l t );
 use List::Util qw( min max );
 use Carp::Always;
 use Microidium::Helpers 'dfile';
@@ -134,6 +134,7 @@ sub on_keydown {
     $self->client_state->{fire}       = 1 if $sym == SDLK_d;
     $self->change_fov( $self->fov - 10 ) if $sym == SDLK_o;
     $self->change_fov( $self->fov + 10 ) if $sym == SDLK_l;
+    $self->client_state->{skip_timings} = !$self->client_state->{skip_timings} if $sym == SDLK_t;
 
     if ( $self->in_network_game ) {
         $self->log( "sent: DOWN $sym" );
@@ -445,7 +446,8 @@ sub render_ui {
     }
 
     push @texts,
-      [ [ 0, $self->height - 12 ], "Controls: left up right d - Quit: q - Connect to server: n - Zoom in/out: o l" ];
+      [ [ 0, $self->height - 12 ], "Controls: left up right d - Quit: q - Connect to server: n - Zoom in/out: o l" ],
+      [ [ 0, $self->height - 22 ], "          Disable time graph: t" ];
 
     push @texts, [ [ 0, 90 ], "Perl v$]" ];
 
@@ -489,13 +491,10 @@ sub render_ui {
             "no_cache",
           ];
     }
-    push @texts,
-      [
-        [ 0, 20 ],
-        sprintf "FPS: %5.1f // Load: % 7.2f %%",
-        1 / $self->frame_time,
+    push @texts, [
+        [ 0, 20 ], sprintf "FPS: %5.1f // Load: % 7.2f %%", 1 / $self->frame_time,    #
         100 * $self->frame_calc_time * $self->fps_aim
-      ];
+    ];
     my $tick = $game_state->{tick} || 0;
     push @texts, [
         [ 0, 10 ],
@@ -505,7 +504,7 @@ sub render_ui {
 
     my $con = $self->console;
     my @to_display = grep defined, @{$con}[ max( 0, $#$con - 10 ) .. $#$con ];
-    push @texts, [ [ 0, $self->height - 22 - $_ * 10 ], $to_display[$_] ] for 0 .. $#to_display;
+    push @texts, [ [ 0, $self->height - 32 - $_ * 10 ], $to_display[$_] ] for 0 .. $#to_display;
 
     my %timing_types  = %{ $self->timing_types };
     my @timing_colors = $self->timing_colors;

lib/Microidium/SDLRole.pm

@@ -227,7 +227,7 @@ sub on_show {
     $self->frame( $self->frame + 1 );
 
     $self->render;
-    $self->render_timings;
+    $self->render_timings if !$self->client_state->{skip_timings};
 
     SDL::Video::GL_swap_buffers;
     my $end = time;
@@ -528,6 +528,7 @@ sub _build_timing_types {
       event_end__frame_start
       move_start__move_end
       move_end__move_start
+      move_end__event_start
       move_end__frame_start
       frame_start__integrate_end
       frame_start__sprite_prepare_end
@@ -537,7 +538,10 @@ sub _build_timing_types {
       sprite_render_end__world_render_end
       world_render_end__postprocess_render_end
       postprocess_render_end__screen_render_end
+      event_end__ui_render_end
       screen_render_end__ui_render_end
+      screen_render_end__event_start
+      ui_render_end__sync_end
       ui_render_end__timings_render_start
       timings_render_start__timings_render_end
       timings_render_end__sync_end