]> www.fi.muni.cz Git - slotcarman.git/blobdiff - gui.pl
Button reporting, fullscreen mode.
[slotcarman.git] / gui.pl
diff --git a/gui.pl b/gui.pl
index 85b994d5e9f6c2ded95af22509928cb57eff0816..3f74cc4f8a3f7764f7806a7ba6022f816f5e3d8e 100755 (executable)
--- a/gui.pl
+++ b/gui.pl
@@ -10,7 +10,7 @@ use SCX::GUI;
 use SCX::Track;
 use SCX::Reader;
 
-my $gui = SCX::GUI->new({ img_height => 100 });
+my $gui = SCX::GUI->new({ img_height => 80 });
 my $track = SCX::Track->new({ gui => $gui });
 
 my $reader;
@@ -72,7 +72,7 @@ if ($reader) {
        $track->car(2)->set_fuel(8);
 
        $track->car(0)->set_throttle(0);
-       $track->car(1)->set_throttle(8);
+       $track->car(1)->set_throttle(8, 1);
        $track->car(2)->set_throttle(12);
 }