From: ian <ian>
Date: Thu, 29 Dec 2005 23:50:42 +0000 (+0000)
Subject: display surrounding stuff like it says in the comment.  now seems to work
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=24957af62c3c51f4a2576e51da844377e397f3d6;p=trains.git

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 59c67b9..3ca18fb 100755
--- 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;