Fuel level can sometimes(?) be 0xA - ignore it.

[slotcarman.git] / SCX / GUI.pm

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index c073560dce160881098a93395c3ba8b7756a6010..a57c653de6fddd1b80dcd4ca247a86591aab4b03 100755 (executable)
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -8,6 +8,7 @@ use utf8;
 use Carp;
 use Encode;
 use Gtk2 '-init';
+use Gtk2::Gdk::Keysyms;
 use Glib qw(TRUE FALSE);
 
 our $BASE_SIZE;
@@ -26,7 +27,7 @@ sub new {
 
        $self->{builder}->add_from_file('slotcarman.glade');
 
-       $self->{builder}->connect_signals(undef);
+       $self->{builder}->connect_signals($self);
        $self->load_all_images;
        $self->set_font_sizes;
 
@@ -60,14 +61,52 @@ sub delete_event { Gtk2->main_quit; }
 
 sub quit { Gtk2->main_quit; }
 
+use Data::Dumper;
+
+sub hotkey {
+       my ($window, $key, $self) = @_;
+
+       if ($key->keyval == $Gtk2::Gdk::Keysyms{F5}) {
+               if ($self->{fullscreen}) {
+                       leave_fullscreen($window, $self);
+               } else {
+                       fullscreen($window, $self);
+               }
+               return 1;
+       }
+       return 0;
+}
+
 sub fullscreen {
-       my ($self) = @_;
+       my ($widget, $self) = @_;
+
+       return if $self->{fullscreen};
 
+       $self->get_object('menubar1')->hide;
+       $self->get_object('statusbar1')->hide;
        $self->get_object('slotcarman')->fullscreen;
+
+       $self->{fullscreen} = 1;
        my $h = $self->get_object('image_car1')->allocation->height;
-       print "h=$h\n";
+       my $h1 = $self->get_object('slotcarman')->allocation->height;
+       print "h=$h, h1=$h1\n";
 }
-       
+
+sub leave_fullscreen {
+       my ($widget, $self) = @_;
+
+       return if !$self->{fullscreen};
+
+       $self->get_object('menubar1')->show;
+       $self->get_object('statusbar1')->show;
+       $self->get_object('slotcarman')->unfullscreen;
+
+       $self->{fullscreen} = undef;;
+       my $h = $self->get_object('image_car1')->allocation->height;
+       my $h1 = $self->get_object('slotcarman')->allocation->height;
+       print "h=$h, h1=$h1\n";
+}
+
 sub watch_resize {
        my ($window, $rectangle, $self) = @_;
        print "w=", $rectangle->width, ", h=", $rectangle->height, "\n";
@@ -110,12 +149,16 @@ sub load_all_images {
        $self->{throttle_images} = [
                load_image_set('img/throttle%d.svg', 13, $h)
        ];
+       $self->{throttle_button_images} = [
+               load_image_set('img/throttle%dbutton.svg', 12, $h)
+       ];
        $self->{fuel_images} = [
                        load_image_set('img/fuel%d.svg', 8, int(0.6 * $h))
        ];
-       $self->{car_images} = load_image_dir('img/SCXCars', $h),
-       $self->{semaphore_images} => [
-                       load_image_set('img/semaphore%d.svg', 5, 2 * $h)
+       $self->{car_images} = load_images_glob('img/SCXCars/*', $h);
+       $self->{state_images} = load_images_glob('img/state*.svg', $h);
+       $self->{semaphore_images} = [
+                       load_image_set('img/semaphore%d.svg', 5, 1.5 * $h)
        ];
 };
 
@@ -135,11 +178,11 @@ sub load_image_set {
        return @rv;
 }
 
-sub load_image_dir {
-       my ($dir, $height) = @_;
+sub load_images_glob {
+       my ($glob, $height) = @_;
 
        my %rv;
-       for my $file (<$dir/*>) {
+       for my $file (glob($glob)) {
                $file = Encode::decode('utf-8', $file);
                my $name = $file;
                $name =~ s/.*\///;
@@ -193,15 +236,18 @@ sub set_image {
 }
 
 sub set_throttle {
-       my ($self, $row, $val) = @_;
+       my ($self, $row, $val, $button) = @_;
 
        $val = 13 if !defined $val;
-       $self->set_image('image_throttle', $row, 'throttle', $val);
+       $self->set_image('image_throttle', $row,
+               $button ? 'throttle_button' : 'throttle', $val);
 }
 
 sub set_fuel {
        my ($self, $row, $val) = @_;
 
+       return if $val > 8;
+
        $self->set_image('image_fuel', $row, 'fuel', $val || 0);
 }
 
@@ -214,9 +260,32 @@ sub set_car_icon {
 sub set_lap {
        my ($self, $row, $text) = @_;
 
+       $text = '--' if !defined $text;
+
        $self->set_label('label_lap', $row, $text, 'lap');
 }
 
+sub set_distance {
+       my ($self, $row, $time, $lap_diff, $time_diff, $greyout) = @_;
+
+       my $text = '--';
+
+       if (defined $time) {
+               $text = format_race_time($time);
+       } elsif (defined $time_diff) {
+               $text = '−' . format_lap_time($time_diff);
+       } elsif (defined $lap_diff) {
+               $text = '−' . $lap_diff
+                       . ($lap_diff == 1 ? ' lap' : ' laps');
+       }
+
+       if ($greyout) {
+               $text = '<span fgcolor="grey">' . $text . '</span>';
+       }
+
+       $self->set_label('label_distance', $row, $text);
+}
+
 sub set_laptime {
        my ($self, $row, $text) = @_;
 
@@ -241,15 +310,10 @@ sub set_name {
        $self->set_label('label_name', $row, $text);
 }
 
-sub enter_pit_lane {
-       my ($self, $row) = @_;
-       $self->set_label('label_laptime', $row, 'PIT');
-}
-
-sub leave_pit_lane {
-       my ($self, $row) = @_;
+sub set_car_id {
+       my ($self, $row, $text) = @_;
 
-       $self->set_label('label_laptime', $row, 'GO!');
+       $self->set_label('label_car_id', $row, $text);
 }
 
 sub show_semaphore {
@@ -299,8 +363,8 @@ sub format_race_time {
        $seconds -= 60 * $mins;
 
        return $hours
-               ? sprintf('%d:%02d:%05.2f', $hours, $mins, $seconds)
-               : sprintf('%d:%05.2f', $mins, $seconds);
+               ? sprintf('%d:%02d:%04.1f', $hours, $mins, $seconds)
+               : sprintf('%d:%04.1f', $mins, $seconds);
 }
 
 sub format_lap_time {
@@ -311,5 +375,11 @@ sub format_lap_time {
                : '--';
 }
 
+sub set_state {
+       my ($self, $num, $name) = @_;
+
+       $self->set_image('image_status', $num, 'state', 'state '.$name);
+}
+
 1;