Perl Lasic driver - basic module, PBM renderer and two example scripts.

Untested with real hardware yet.
This commit is contained in:
Petr Baudis 2011-12-27 21:05:50 +01:00
parent 781fe97c3e
commit 688d2450d0
4 changed files with 321 additions and 0 deletions

22
perl/box.pl Executable file
View file

@ -0,0 +1,22 @@
#!/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');
$lasic->reset();
$lasic->focus(-2);
$lasic->focus(2);
$lasic->laser_on();
$lasic->move(100, 0);
$lasic->move(0, 100);
$lasic->move(-100, 0);
$lasic->move(0, -100);
$lasic->laser_off();