From 5767e0022767bf34c27eabea82a3c79d8bf5d52f Mon Sep 17 00:00:00 2001
From: Maps <maps@ikf>
Date: Mon, 14 Apr 2025 09:08:01 +0200
Subject: [PATCH] better print for scurve procedure

---
 scripts/modules/Mimosis/lib/Mimosis.pm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/scripts/modules/Mimosis/lib/Mimosis.pm b/scripts/modules/Mimosis/lib/Mimosis.pm
index c805fb8..119b822 100755
--- 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,
-- 
2.43.0