From: Jan Michel <j.michel@gsi.de>
Date: Mon, 3 Aug 2015 16:21:36 +0000 (+0200)
Subject: DAQi test script
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=466f14dec298d9f56b0a7ab651c88adfe9009575;p=avr.git

DAQi test script
---

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
+}