brmlab/lasic
4
0
Fork 0
mirror of https://github.com/brmlab/lasic.git synced 2025-06-08 17:23:59 +02:00
Code Issues Projects Releases Packages Wiki Activity

svg.pl: More time-efficient execution

Browse source
This commit is contained in:
Petr Baudis 2011-12-28 06:05:24 +01:00
parent d881d154fd
commit cf5214d3e3
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
perl/svg.pl
View file

@ -7,10 +7,6 @@ use strict;
use lib qw(.);
use Brm::Lasic;
use Brm::Lasic::PBM;
my $lasic = Brm::Lasic->new(dev => '/dev/ttyUSB0');
# $lasic->reset();
open my $fd, '-|', '../svg/showsvg.py', $ARGV[0] or die "showsvg.py: $!";
my @cmd = <$fd>;
@ -31,8 +27,11 @@ foreach (@cmd) {
print $plot "$c[2] $c[3]\n";
}
close $plot;
print "If the plot looked wrong, press Ctrl-C now! Waiting 5 seconds.\n";
sleep 5;
print "If the plot looked wrong, press Ctrl-C now! Waiting for a few seconds.\n";
sleep 3;
my $lasic = Brm::Lasic->new(dev => '/dev/ttyUSB0');
# $lasic->reset();
foreach (@cmd) {
$lasic->msg(@$_);