7 use Glib qw(TRUE FALSE);
15 my $gui = SCX::GUI->new;
16 my $track = SCX::Track->new({ gui => $gui });
19 my $reader = SCX::Reader->new({
20 portname => '/dev/ttyUSB0',
25 Glib::IO->add_watch(fileno($reader->fh), 'in', \&scx_read, $reader);
28 $track->car(0)->set_model('F1 Ferrari');
29 $track->car(1)->set_model('F1 McLaren');
30 $track->car(2)->set_model('F1 Williams');
31 $track->car(3)->set_model('Citroen Xsara');
32 $track->car(4)->set_model('Citroen C4');
33 $track->car(5)->set_model('Ford Focus');
35 $track->car(0)->set_lap(13);
36 $track->car(1)->set_lap(11);
37 $track->car(2)->set_lap(10);
38 $track->car(3)->set_lap(undef);
39 $track->car(4)->set_lap(undef);
40 $track->car(5)->set_lap(undef);
42 $track->car(0)->set_laptime(9.12322);
43 $track->car(1)->set_laptime(15.313);
44 $track->car(2)->set_laptime(8.193);
46 $track->car(0)->set_driver('Ivi');
47 $track->car(1)->set_driver('Filípek');
48 $track->car(2)->set_driver('Táta');
62 my ($event, $fh, $reader) = @_;