X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FGUI.pm;h=4f02edc74a4c682c1d4173d7f687195a268549b7;hb=8b83962ae36e5857f1da21b451b0acbb3a55a289;hp=9190fe39a328a4660dcb2e612d65893751aeea24;hpb=e22f8cbb94df063c77cc9ee5f5bae839e252777d;p=slotcarman.git diff --git a/SCX/GUI.pm b/SCX/GUI.pm index 9190fe3..4f02edc 100755 --- a/SCX/GUI.pm +++ b/SCX/GUI.pm @@ -5,22 +5,20 @@ package SCX::GUI; use strict; use utf8; +use Encode; use Gtk2 '-init'; use Glib qw(TRUE FALSE); -use SCX::Reader; +our $BASE_SIZE; sub new { my ($class, $args) = @_; my $self = { - throttle_images => [ - load_image_set('img/throttle%d.svg', 13, 100) - ], - fuel_images => [ - load_image_set('img/fuel%d.svg', 8, 100) - ], + img_height => $args->{img_height} || 100, builder => Gtk2::Builder->new, + semaphore_win => Gtk2::Window->new('popup'), + semaphore_img => Gtk2::Image->new, }; bless $self, $class; @@ -28,7 +26,24 @@ sub new { $self->{builder}->add_from_file('slotcarman.glade'); $self->{builder}->connect_signals(undef); + $self->load_all_images; + $self->set_font_sizes; + my $pixbuf = $self->{semaphore_images}->[0]; + $self->{semaphore_img}->set_from_pixbuf($pixbuf); + $self->{semaphore_img}->show; + $self->{semaphore_win}->add($self->{semaphore_img}); + $self->{semaphore_win}->set_type_hint('splashscreen'); + $self->{semaphore_win}->set_position('center-on-parent'); + $self->{semaphore_win}->set_transient_for( + $self->get_object('slotcarman') + ); + + $self->get_object('image_car1')->signal_connect( + 'size_allocate' => \&watch_resize, + $self, + ); + return $self; } @@ -36,11 +51,73 @@ sub show { my ($self) = @_; my $window = $self->{builder}->get_object('slotcarman'); + $window->signal_connect(delete_event => \&delete_event); $window->show(); } +sub delete_event { Gtk2->main_quit; } + +sub quit { Gtk2->main_quit; } + +sub fullscreen { + my ($self) = @_; + + $self->get_object('slotcarman')->fullscreen; + my $h = $self->get_object('image_car1')->allocation->height; + print "h=$h\n"; +} + +sub watch_resize { + my ($window, $rectangle, $self) = @_; + print "w=", $rectangle->width, ", h=", $rectangle->height, "\n"; + # TODO +} + sub get_object { return shift->{builder}->get_object(@_); } +sub set_font_sizes { + my ($self) = @_; + + if ($self->{img_height} <= 80) { + $self->{label_font} = 10; + $self->{value_font} = 18; + $self->{lap_font} = 24; + } elsif ($self->{img_height} <= 100) { + $self->{label_font} = 12; + $self->{value_font} = 20; + $self->{lap_font} = 28; + } elsif ($self->{img_height} <= 120) { + $self->{label_font} = 14; + $self->{value_font} = 24; + $self->{lap_font} = 32; + } elsif ($self->{img_height} <= 150) { + $self->{label_font} = 16; + $self->{value_font} = 28; + $self->{lap_font} = 36; + } else { + $self->{label_font} = 18; + $self->{value_font} = 32; + $self->{lap_font} = 40; + } +} + +sub load_all_images { + my ($self) = @_; + + my $h = $self->{img_height}; + + $self->{throttle_images} = [ + load_image_set('img/throttle%d.svg', 13, $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) + ]; +}; + sub load_image_set { my ($pattern, $limit, $height) = @_; @@ -57,6 +134,30 @@ sub load_image_set { return @rv; } +sub load_image_dir { + my ($dir, $height) = @_; + + my %rv; + for my $file (<$dir/*>) { + $file = Encode::decode('utf-8', $file); + my $name = $file; + $name =~ s/.*\///; + $name =~ s/\..*?$//; + $name =~ s/[-_]/ /g; + $name =~ s/\s+/ /g; + + + my $dummy = Gtk2::Gdk::Pixbuf->new_from_file($file) + or next; + + my $width = $dummy->get_width * $height / $dummy->get_height; + $rv{$name} = Gtk2::Gdk::Pixbuf->new_from_file_at_scale( + $file, $width, $height, TRUE + ); + } + return \%rv; +} + sub set_throttle { my ($self, $row, $val) = @_; @@ -77,5 +178,124 @@ sub set_fuel { $image->set_from_pixbuf($self->{fuel_images}->[$val]); } +sub set_car_icon { + my ($self, $row, $name) = @_; + + $row++; + my $pixbuf = $self->{car_images}->{$name}; + if (!$pixbuf) { + print "No car image for $name.\n"; + return; + } + + my $image = $self->get_object("image_car$row"); + $image->set_from_pixbuf($pixbuf); +} + +sub set_lap { + my ($self, $row, $text) = @_; + + ++$row; + my $label = $self->get_object("label_lap$row") + or die "Can't get label_lap$row"; + $label->set_markup(''.$text.''); +} + +sub set_laptime { + my ($self, $row, $text) = @_; + + ++$row; + my $label = $self->get_object("label_laptime$row") + or die "Can't get label_laptime$row"; + $label->set_markup(''.$text.''); +} + +sub set_avg_lap { + my ($self, $row, $text) = @_; + + ++$row; + my $label = $self->get_object("label_avg_lap$row") + or die "Can't get label_avg_lap$row"; + $label->set_markup(''.$text.''); +} + +sub set_best_lap { + my ($self, $row, $text, $global) = @_; + + ++$row; + my $label = $self->get_object("label_best_lap$row") + or die "Can't get label_best_lap$row"; + + if ($global) { + $global = ' foreground="#e00000"'; + } else { + $global = ''; + } + + $label->set_markup('' + .$text.''); +} + +sub set_driver { + my ($self, $row, $text) = @_; + + ++$row; + my $label = $self->get_object("label_name$row") + or die "Can't get label_lap$row"; + $label->set_markup(''.$text.''); +} + +sub enter_pit_lane { + my ($self, $row) = @_; + $self->set_laptime($row, 'PIT'); +} + +sub leave_pit_lane { + my ($self, $row) = @_; + $self->set_laptime($row, 'GO!'); +} + +sub show_semaphore { + my ($self, $num) = @_; + + my $win = $self->{semaphore_win}; + if (defined $num) { + my $img = $self->{semaphore_img}; + my $pixbuf = $self->{semaphore_images}->[$num]; + $img->set_from_pixbuf($pixbuf); + $win->show; + } else { + $win->hide; + } +} + +sub rounds { + my ($self, $text) = @_; + + my $label = $self->get_object("label_lap_global") + or die "Can't get label_lap_global"; + $label->set_markup(''.$text.''); +} + +sub time { + my ($self, $text) = @_; + + my $label = $self->get_object("label_time_global") + or die "Can't get label_time_global"; + $label->set_markup(''.$text.''); +} + +sub best_lap { + my ($self, $time, $who) = @_; + + my $text = $time; + $text .= ' by ' . $who + if defined $who; + + my $label = $self->get_object("label_best_lap_global") + or die "Can't get label_best_lap_global"; + $label->set_markup(''.$text.''); +} + 1;