render.pl -> bitmap.pl

perl/bitmap.pl

@@ -0,0 +1,17 @@
+#!/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);