mirror of
https://github.com/brmlab/lasic.git
synced 2025-06-09 09:43:59 +02:00
Perl Lasic driver - basic module, PBM renderer and two example scripts.
Untested with real hardware yet.
This commit is contained in:
parent
781fe97c3e
commit
688d2450d0
4 changed files with 321 additions and 0 deletions
22
perl/box.pl
Executable file
22
perl/box.pl
Executable 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();
|
Loading…
Add table
Add a link
Reference in a new issue