mirror of
https://github.com/brmlab/lasic.git
synced 2025-06-07 16:54:00 +02:00
17 lines
338 B
Perl
Executable file
17 lines
338 B
Perl
Executable file
#!/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();
|
|
$lasic->move(0, 0);
|