From cb2fce4300109e9f88e927dad3061501c1ad722b Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Sat, 3 Aug 2013 20:17:59 +0200 Subject: [PATCH] Added timestamp to plots --- tools/preview/unpack_hld.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tools/preview/unpack_hld.pl b/tools/preview/unpack_hld.pl index 42db30e..8c3125d 100755 --- 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"; -- 2.43.0