mirror of
https://github.com/brmlab/lasic.git
synced 2025-06-08 09:14:01 +02:00
31 lines
504 B
Perl
Executable file
31 lines
504 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Simple Brm::Lasic example - draw a 100x100 rectangle.
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
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(0, 0);
|
|
$lasic->laser_off();
|
|
print "laser off\n";
|