DAQi test script

diff --git a/atmega32u4/daqi/test.pl b/atmega32u4/daqi/test.pl
index c85259150bc6591bfc11d8fd2dbcbeda7ec38d4e..4038e88a0f2189674fbdd21f688cf8182ee07133 100755 (executable)
--- 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
+}