From 466f14dec298d9f56b0a7ab651c88adfe9009575 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Mon, 3 Aug 2015 18:21:36 +0200 Subject: [PATCH] DAQi test script --- atmega32u4/daqi/test.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/atmega32u4/daqi/test.pl b/atmega32u4/daqi/test.pl index c852591..4038e88 100755 --- a/atmega32u4/daqi/test.pl +++ b/atmega32u4/daqi/test.pl @@ -9,17 +9,17 @@ my $i = 10; while($i--){ for(my $i = 0; $i<=255; $i+=4) { - $s = sprintf('%02x%02x%02x',$i,$i,$i); + $s = sprintf('%02x%02x%02x',255-$i,$i,$i); print MYFILE "#1".$s."\n"; - $s = sprintf('%02x%02x%02x',255-$i,255-$i,255-$i); + #$s = sprintf('%02x%02x%02x',255-$i,255,255-$i); print MYFILE "#0".$s."\n"; - usleep(1000); + usleep(20000); } for(my $i = 255; $i>=0; $i-=4) { - $s = sprintf('%02x%02x%02x',$i,$i,$i); + $s = sprintf('%02x%02x%02x',255-$i,$i,$i); print MYFILE "#1".$s."\n"; - $s = sprintf('%02x%02x%02x',255-$i,255-$i,255-$i); + #$s = sprintf('%02x%02x%02x',255-$i,255-$i,255-$i); print MYFILE "#0".$s."\n"; - usleep(1000); + usleep(20000); } -} \ No newline at end of file +} -- 2.43.0