Frame Information in plots from unpacker

diff --git a/tools/preview/unpack_hld.pl b/tools/preview/unpack_hld.pl
index c378514bb33bf928567a760b8c3af653a3369eb6..2ee7e90093b7b81d66786ede227930696211d17a 100755 (executable)
--- a/tools/preview/unpack_hld.pl
+++ b/tools/preview/unpack_hld.pl
@@ -514,14 +514,14 @@ sub WriteResults {
       my $s = sprintf("%04x",$id);
 
       print $fg strftime("set label 100 \"%H:%M:%S\" at screen 0.98,0.02 right tc rgb \"#000044\" font \"monospace,8\"\n", localtime());
-      print $fg  "set label 101 \"".$hitcount->{$id}." States\" at screen 0.02,0.02 left tc  rgb \"#000044\" font \"monospace,8\"\n" ;
+      print $fg  "set label 101 \"".$hitcount->{$id}." States, $Statistics->{$id}->{Valid} good, $Statistics->{$id}->{Broken} broken\" at screen 0.02,0.02 left tc  rgb \"#000044\" font \"monospace,8\"\n" ;
       print $fg  "set output '$opt_picpath/image_recalibrated_$s$num.png';\n";
       print $fg  "plot '-' matrix with image\n";
       }
     else {
       my $s = sprintf("%04x",$id);
       print $fg strftime("set label 100 \"%H:%M:%S\" at screen 0.98,0.02 right tc rgb \"#000044\" font \"monospace,8\"\n", localtime());
-      print $fg  "set label 101 \"".$hitcount->{$id}." States\" at screen 0.02,0.02 left tc  rgb \"#000044\" font \"monospace,8\"\n" ;
+      print $fg  "set label 101 \"".$hitcount->{$id}." States, $Statistics->{$id}->{Valid} good, $Statistics->{$id}->{Broken} broken\" at screen 0.02,0.02 left tc  rgb \"#000044\" font \"monospace,8\"\n" ;
       print $fg  "set output '$opt_picpath/image_recalibrated_$s$num.png';\n";
       print $fg  "replot\n";