gui.pl renamed to slotcarman

[slotcarman.git] / slotcarman

diff --git a/slotcarman b/slotcarman
new file mode 100755 (executable)
index 0000000..0efe3f3
--- /dev/null
+++ b/slotcarman
@@ -0,0 +1,109 @@
+#!/usr/bin/perl -w
+
+use strict;
+use utf8;
+
+use Gtk2 '-init';
+use Glib qw(TRUE FALSE);
+
+use SCX::GUI;
+use SCX::Track;
+use SCX::Reader;
+use SCX::RaceParser;
+
+my $gui = SCX::GUI->new({ img_height => 100 });
+my $track = SCX::Track->new({ gui => $gui });
+
+my $logfile = 'log';
+my $tty = '/dev/ttyUSB0';
+
+if (defined $ARGV[0] && $ARGV[0] eq '-') {
+       $logfile = undef;
+       $tty = '-';
+}
+
+my $parser = SCX::RaceParser->new({
+       track => $track,
+       logfile => $logfile,
+});
+
+my $reader = eval {
+       SCX::Reader->new({
+               filename   => $tty,
+               parser     => $parser,
+       });
+};
+
+if ($@) {
+       print STDERR "Demo mode only: $@";
+}
+
+$track->car(0)->set_model('F1 Ferrari');
+$track->car(1)->set_model('F1 McLaren');
+#$track->car(2)->set_model('F1 Williams');
+$track->car(2)->set_model('Citroen Xsara');
+$track->car(3)->set_model('Chevrolet Corvette gelb');
+$track->car(4)->set_model('Ferrari 360 Red Bull');
+$track->car(5)->set_model('Ferrari 360 Cric Crac');
+
+$track->car(0)->set_driver('Ferrari');
+$track->car(1)->set_driver('McLaren');
+$track->car(2)->set_driver('Xsara');
+
+if ($reader) {
+       Glib::IO->add_watch(fileno($reader->fh), 'in', \&scx_read, $reader);
+} else {
+       # Just display some random values
+
+       $gui->rounds('5/13');
+       $gui->time('53.4');
+       $gui->best_lap('12.3');
+
+       my $now = time;
+       $track->{race_running_since} = $now;
+       $track->{race_running} = 1;
+
+       $track->finish_line($now + 0.5, 1, 2);
+       $track->finish_line($now + 0.7, 1, 1);
+       $track->finish_line($now + 4.9, 1, 1);
+       $track->finish_line($now + 5.3, 1, 2);
+       $track->finish_line($now + 7.2, 1, 1);
+       $track->finish_line($now + 8.1, 0, 2);
+#      $track->car(0)->set_lap(13);
+#      $track->car(1)->set_lap(11);
+#      $track->car(2)->set_lap(10);
+#      $track->car(3)->set_lap(undef);
+#      $track->car(4)->set_lap(undef);
+#      $track->car(5)->set_lap(undef);
+
+       $track->car(0)->set_laptime(9.12322);
+       $track->car(1)->set_laptime(15.313);
+       $track->car(2)->set_laptime(5.989);
+
+       $track->car(0)->set_fuel(6);
+       $track->car(1)->set_fuel(2);
+       $track->car(2)->set_fuel(8);
+
+       $track->car(0)->set_throttle(0);
+       $track->car(1)->set_throttle(8, 1);
+       $track->car(2)->set_throttle(12);
+}
+
+$gui->show;
+
+Gtk2->main();
+
+exit 0;
+
+sub quit {
+       Gtk2->main_quit;
+       return FALSE;
+}
+
+sub scx_read {
+       my ($event, $fh, $reader) = @_;
+
+       $reader->read();
+       return TRUE;
+}
+