slotcarman

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use utf8;
   5
   6 use Getopt::Std;
   7
   8 use Gtk2 '-init';
   9 use Glib qw(TRUE FALSE);
  10 use Time::HiRes qw(time usleep);
  11
  12 use SCX::GUI;
  13 use SCX::Track;
  14 use SCX::Reader;
  15 use SCX::LogReader;
  16 use SCX::RaceParser;
  17
  18 my %opt;
  19 if (!getopts('b:e:ft:l:', \%opt)) {
  20         usage();
  21 }
  22
  23 if (($opt{t} && $opt{l})
  24         || (!$opt{l} && ($opt{b} || $opt{e} || $opt{f}))) {
  25         usage();
  26 }
  27
  28 my $gui = SCX::GUI->new({ img_height => 70 });
  29 my $track = SCX::Track->new({ gui => $gui, no_semaphore => $opt{f} });
  30
  31 my $logfile = 'log';
  32
  33 my $parser = SCX::RaceParser->new({
  34         track => $track,
  35         logfile => $opt{l} ? undef : $logfile,
  36 });
  37
  38 my ($log_reader, $tty_reader);
  39
  40 if ($opt{l}) { # Log file replay mode
  41         $log_reader = SCX::LogReader->new({
  42                 filename   => $opt{l},
  43                 begin_time => $opt{b},
  44                 end_time   => $opt{e},
  45         });
  46 } else {
  47         my $tty = $opt{t} || '/dev/ttyUSB0';
  48
  49         $tty_reader = eval {
  50                 SCX::Reader->new({
  51                         filename   => $tty,
  52                         parser     => $parser,
  53                 });
  54         };
  55
  56         if ($@) {
  57                 if ($opt{t}) {
  58                         exit 1;
  59                 }
  60                 print STDERR "Demo mode only: $@";
  61         }
  62 }
  63
  64 $track->car(0)->set_model('F1 Ferrari');
  65 $track->car(1)->set_model('F1 McLaren');
  66 #$track->car(2)->set_model('F1 Williams');
  67 $track->car(2)->set_model('Citroen Xsara');
  68 $track->car(3)->set_model('Chevrolet Corvette gelb');
  69 $track->car(4)->set_model('Ferrari 360 Red Bull');
  70 $track->car(5)->set_model('Ferrari 360 Cric Crac');
  71
  72 $track->car(0)->set_driver('Ferrari');
  73 $track->car(1)->set_driver('McLaren');
  74 $track->car(2)->set_driver('Xsara');
  75
  76 if ($tty_reader) {
  77         Glib::IO->add_watch(fileno($tty_reader->fh), 'in',
  78                 \&scx_read, $tty_reader);
  79         $track->{sound}->unmute();
  80 } elsif ($log_reader) {
  81         Glib::Idle->add(\&log_read_start, [ $log_reader, $parser, $opt{f} ]);
  82 } else {
  83         # Just display some random values
  84
  85         $gui->rounds('5/13');
  86         $gui->time('53.4');
  87         $gui->best_lap('12.3');
  88
  89         my $now = time;
  90         $track->{race_running_since} = $now;
  91         $track->{race_running} = 1;
  92
  93         $track->finish_line($now + 0.5, 1, 2);
  94         $track->finish_line($now + 0.7, 1, 1);
  95         $track->finish_line($now + 4.9, 1, 1);
  96         $track->finish_line($now + 5.3, 1, 2);
  97         $track->finish_line($now + 7.2, 1, 1);
  98         $track->finish_line($now + 8.1, 0, 2);
  99 #       $track->car(0)->set_lap(13);
 100 #       $track->car(1)->set_lap(11);
 101 #       $track->car(2)->set_lap(10);
 102 #       $track->car(3)->set_lap(undef);
 103 #       $track->car(4)->set_lap(undef);
 104 #       $track->car(5)->set_lap(undef);
 105
 106         $track->car(0)->set_laptime(9.12322);
 107         $track->car(1)->set_laptime(15.313);
 108         $track->car(2)->set_laptime(5.989);
 109
 110         $track->car(0)->set_fuel(6);
 111         $track->car(1)->set_fuel(2);
 112         $track->car(2)->set_fuel(8);
 113
 114         $track->car(0)->set_throttle(0);
 115         $track->car(1)->set_throttle(8, 1);
 116         $track->car(2)->set_throttle(12);
 117 }
 118
 119 $gui->show;
 120
 121 Gtk2->main();
 122
 123 exit 0;
 124
 125 sub quit {
 126         Gtk2->main_quit;
 127         return FALSE;
 128 }
 129
 130 sub scx_read {
 131         my ($event, $fh, $reader) = @_;
 132
 133         $reader->read();
 134         return TRUE;
 135 }
 136
 137 sub usage {
 138         die "Usage: $0 [-t tty_line]\n"
 139                 . "or: $0 -l logfile [-b starttime] [-e endtime] [-f]\n"
 140                 . "-f ... replay as fast as possible\n";
 141 }
 142
 143
 144 sub log_read_start {
 145         my ($data) = @_;
 146         my ($logreader, $parser, $fast) = @$data;
 147
 148         our ($starttime, $log_starttime);
 149
 150         my ($l_time, @data) = $logreader->get_data();
 151         return FALSE if !$l_time;
 152
 153         my $now = time;
 154         $starttime ||= $now;
 155
 156         $log_starttime ||= $l_time;
 157
 158         my $time_diff = ($l_time - $log_starttime) - ($now - $starttime);
 159         if (!$fast && $time_diff > 0) {
 160                 # print "sleeping for $time_diff s\n";
 161                 usleep(1_000_000 * $time_diff);
 162         }
 163
 164         $parser->add_data($l_time, @data);
 165
 166         return TRUE;
 167 }