display surrounding stuff like it says in the comment. now seems to work

diff --git a/detpic/display-nmra-decoded b/detpic/display-nmra-decoded
index 59c67b94ec322f4d1e4ab6ac1d25ba5082067548..3ca18fb462d8044f4a9a6c38e937bccc7d4fbeb9 100755 (executable)
--- a/detpic/display-nmra-decoded
+++ b/detpic/display-nmra-decoded
@@ -142,6 +142,8 @@ sub found_interval ($$$) {
     my ($value, $minlen, $maxlen) = @_;
     die "$value $minlen $maxlen" if $minlen > $maxlen;
 
+printf "%6.2f .. %6.2f  %s  ", $minlen, $maxlen, $value;
+
     my ($class, $fudge_class);
     my (@nomlens,$min_char,$max_char,$nomlens_chars);
     my ($bit_half, $bit_value);
@@ -229,7 +231,9 @@ sub found_datapoint ($$) {
 
     if (defined $lastt && $value * $lastvalue < 0) {
        if (defined $begintmin) {
-           found_interval($value > 0,  $lastt-$begintmax, $t-$begintmin);
+           printf "@%10.2f  ", $t;
+           found_interval($value < 0 ? 'H' : 'L',
+                          $lastt-$begintmax, $t-$begintmin);
        }
        $begintmin= $lastt;
        $begintmax= $t;