From 32c7cc9a1fbd36bad805a030f50e09689a570189 Mon Sep 17 00:00:00 2001
From: Jan Michel <michel@physik.uni-frankfurt.de>
Date: Fri, 2 Sep 2022 11:10:33 +0200
Subject: [PATCH] add default baseline setting

---
 scripts/generate_pasttrec_settings.pl | 14 +++++++++++++-
 scripts/pasttrec_baseline_finder.pl   |  1 +
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/scripts/generate_pasttrec_settings.pl b/scripts/generate_pasttrec_settings.pl
index 6c405fc..2462004 100755
--- a/scripts/generate_pasttrec_settings.pl
+++ b/scripts/generate_pasttrec_settings.pl
@@ -27,11 +27,13 @@ my $settings;  #addr -> @registers(0xa040-0xa07F)
 
 my $threshold = 0;
 my $help = 0;
+my $default_baseline = 0x10;
 
 Getopt::Long::Configure(qw(gnu_getopt));
 GetOptions(
            'help|h' => \$help,
            'threshold|t=i' => \$threshold,
+           'defaultbase|u=i' => \$default_baseline,
            'noload' => \$NO_LOAD_DIRECT,
            'nowrite' => \$NO_WRITE_FILES,
            'debug|d' => \$DEBUG,
@@ -97,8 +99,13 @@ foreach my $a (keys %$addresses) {
       else{  
         foreach my $i (0..7) {                                     #replace baselines
           my $t  = $settings->{$a}[$pt*16+4+$i];
-            $t &= 0xFFF00;
+          $t &= 0xFFF00;
+          if ($baselines->{$addresses->{$a}}{$pt}[$i] != 99) {
             $t += $baselines->{$addresses->{$a}}{$pt}[$i];
+            }
+          else {
+            $t += $default_baseline;
+            }
           $settings->{$a}[$pt*16+4+$i] = $t;
           }
         }  
@@ -150,6 +157,7 @@ generate_pasttrec_settings.pl [options]
    -h, --help          brief help message
    -t, --threshold N   use threshold N
    -d, --debug         write debug messages
+   -u, --defaultbase N    default baseline to use if none has been found
    --noload            don't load settings
    --nowrite           don't save settings
 
@@ -177,6 +185,10 @@ Do not write configuration files
 
 Write debug messages
 
+=item B<-u | --defaultbase>
+
+default baseline to use if none has been found
+
 =back
 
 =head1 DESCRIPTION
diff --git a/scripts/pasttrec_baseline_finder.pl b/scripts/pasttrec_baseline_finder.pl
index 49dab49..2e6c8fe 100755
--- a/scripts/pasttrec_baseline_finder.pl
+++ b/scripts/pasttrec_baseline_finder.pl
@@ -154,6 +154,7 @@ foreach my $b (sort keys %{$rates}) {
       $baselines->{$b}[$p*8+7]+0.5,
       );
     }
+  print("\n");  
   }
 printf(" No baseline found for %i channels. \n", $numOfFailures);
   
-- 
2.43.0