Added timestamp to plots

diff --git a/tools/preview/unpack_hld.pl b/tools/preview/unpack_hld.pl
index 42db30ec38db7bfcfc9f95d2ca9813b510937935..8c3125d3f0fbafe03b350ee6d283501c0fc2e389 100755 (executable)
--- a/tools/preview/unpack_hld.pl
+++ b/tools/preview/unpack_hld.pl
@@ -6,7 +6,7 @@ use Getopt::Long;
 use Data::Dumper;
 use FileHandle;
 use feature "switch";
-
+use POSIX qw/strftime/;
 my $SensorHeaderLength = 7;
 
 my $Statistics;
@@ -489,12 +489,13 @@ sub WriteResults {
     $fh = new FileHandle ("|$fn") or  die "error: no gnuplot";
     $fh->autoflush(1);
 
-    print $fh  "set terminal pngcairo size 800,400;\n";
+    print $fh  "set terminal png size 800,400 font \",9\";\n";
+    print $fh strftime("set label 100 \"%H:%M:%S\" at screen 0.98,0.02 right tc rgb \"#000044\" font \"monospace,8\"\n", localtime());
     print $fh  "set palette model RGB;\n";
     print $fh  "set xrange [0:1152];\n";
     print $fh  "set yrange [0:576];\n";
-    print $fh  "set cbrange [0:20000];\n";
-    print $fh  "set palette defined ( 0 'white', 1 'red', 5 'black', 10 'blue', 20000 'green');\n";
+    print $fh  "set cbrange [0:5000];\n";
+    print $fh  "set palette defined ( 0 'white', 1 'red', 5 'black', 10 'blue', 5000 'green');\n";
     my $s = sprintf("%04x",$id);
     print $fh  "set output './image_recalibrated_$s.png';\n";
     print $fh  "plot '-' matrix with image\n";