From e5a977ef5e1cc6229994556b89429b1dd019b42b Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Wed, 28 Dec 2011 00:11:49 +0100
Subject: [PATCH] box.pl: Enable focusing

---
 perl/box.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/perl/box.pl b/perl/box.pl
index b849bc9..98f3cee 100755
--- a/perl/box.pl
+++ b/perl/box.pl
@@ -13,12 +13,12 @@ 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 "focus -50\n";
+$lasic->focus(-50);
+sleep 1;
+print "focus 50\n";
+$lasic->focus(50);
+sleep 1;
 
 print "laser on\n";
 $lasic->laser_on();