From c7f9e941601089ee75266094469fcdb90e4e81fb Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Tue, 27 Dec 2011 23:02:22 +0100
Subject: [PATCH] box.pl: Add progress prints

---
 perl/box.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/perl/box.pl b/perl/box.pl
index d91c39f..7d9ef88 100755
--- a/perl/box.pl
+++ b/perl/box.pl
@@ -9,14 +9,23 @@ use lib qw(.);
 use Brm::Lasic;
 
 my $lasic = Brm::Lasic->new(dev => '/dev/ttyUSB0');
+print "reset\n";
 $lasic->reset();
+sleep 1;
 
+print "focus -2\n";
 $lasic->focus(-2);
+sleep 1;
+print "focus 2\n";
 $lasic->focus(2);
+sleep 1;
 
+print "laser on\n";
 $lasic->laser_on();
+sleep 1;
 $lasic->move(100, 0);
+$lasic->move(100, 100);
 $lasic->move(0, 100);
-$lasic->move(-100, 0);
-$lasic->move(0, -100);
+$lasic->move(0, 0);
 $lasic->laser_off();
+print "laser off\n";