better print for scurve procedure

diff --git a/scripts/modules/Mimosis/lib/Mimosis.pm b/scripts/modules/Mimosis/lib/Mimosis.pm
index c805fb89ff9b87f2805aaeff1eb195c02bf315b3..119b82214975691be13834bfed88bebe8d821985 100755 (executable)
--- a/scripts/modules/Mimosis/lib/Mimosis.pm
+++ b/scripts/modules/Mimosis/lib/Mimosis.pm
@@ -17,6 +17,8 @@ use POSIX;
 use Data::Dump qw( dump );
 use Data::Dumper;
 
+use threads;
+
 our @ISA = qw(Exporter);
 
 # Items to export into callers namespace by default. Note: do not export
@@ -318,6 +320,9 @@ sub mimosis_i2c_command {
       $wordByte
      ) = @_;
 
+    # print "$_\t" foreach @_;
+    # print "\n";
+
     my $regData =
       ( $data << 16 ) + ( $cmd << 8 ) + ( $addr << 1 );
 
@@ -388,6 +393,9 @@ sub mimosis_register_write {
       $mimData,
      ) = @_;
 
+    # print "$_\t" foreach @_;
+    # print "\n";
+
     my $addr =
       ($chipid << 4) +  0x2;
 
@@ -821,8 +829,11 @@ sub mimosis_scan_rows {
 
         my $yHigh = $yLow + $ySpan - 1;
 
-        printf("Mark pixels: %d - %d, %d - %d\n",
+        # printf("Mark pixels: %d - %d, %d - %d\n",
+        #        $yLow, $yHigh, $xStart, $xStop);
+        printf("           |  Pixels: %3d - %3d, %4d - %4d\r",
                $yLow, $yHigh, $xStart, $xStop);
+       select()->flush();
 
         mimosis_select_pixel(
             ystart => $yLow,
@@ -971,7 +982,8 @@ sub mimosis_scurves {
 
         mimosis_register_write( $vcasnReg, $vcasnSet );
 
-        print "DAC: $vcasnSet\n" if $printall;
+        # print "DAC: $vcasnSet\n" if $printall;
+        printf("                                              |  DAC: %s\r", $vcasnRegStr);
 
         mimosis_scan_rows (
             ystart => $yStart,