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

16
perl/render.pl Executable file
View file

@ -0,0 +1,16 @@
#!/usr/bin/perl
#
# Render a PBM image using Brm::Lasic - pass it as a parameter!
use warnings;
use strict;
use lib qw(.);
use Brm::Lasic;
use Brm::Lasic::PBM;
my $lasic = Brm::Lasic->new(dev => '/dev/ttyUSB0');
$lasic->reset();
my $pbm = Brm::Lasic::PBM->new(lasic => $lasic, file => $ARGV[0]);
$pbm->render();