brmlab/lasic
4
0
Fork 0
mirror of https://github.com/brmlab/lasic.git synced 2025-06-08 09:14:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

box.pl: Add progress prints

Browse source
This commit is contained in:
Petr Baudis 2011-12-27 23:02:22 +01:00
parent 688d2450d0
commit c7f9e94160
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
perl/box.pl
View file

@ -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";