From: Jan Michel <j.michel@gsi.de>
Date: Wed, 5 Nov 2014 16:31:37 +0000 (+0100)
Subject: fixed huge white boarder in heatmap
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=7a8e2964f38fee0ec055990a36a041e9d9ec6f67;p=daqtools.git

fixed huge white boarder in heatmap
---

diff --git a/dmon/scripts/dmon_heatmaprich.pl b/dmon/scripts/dmon_heatmaprich.pl
index 542654c..5963b31 100755
--- a/dmon/scripts/dmon_heatmaprich.pl
+++ b/dmon/scripts/dmon_heatmaprich.pl
@@ -38,6 +38,7 @@ $plot2->{ymax}    = 32.5;
 $plot2->{showvalues} = 0;
 $plot2->{xlabel} = "column";
 $plot2->{ylabel} = "row";
+$plot2->{addCmd} = "set lmargin at screen 0.07\nset rmargin at screen 0.85\nset bmargin at screen 0.07\nset tmargin at screen 0.95";
 HPlot::PlotInit($plot2);
 
 my $str = Dmon::MakeTitle(10,15,"HeatmapRich",0);
@@ -53,7 +54,7 @@ my $diff;
 
 
 while (1) {
-  my $o = trb_register_read_mem(0xfe4c,0xc000,0,33);
+  my $o = trb_register_read_mem($config{PadiwaBroadcastAddress},0xc000,0,33);
 
   if (defined $old) {
     foreach my $b (keys %$o) {
diff --git a/tools/HPlot.pm b/tools/HPlot.pm
index 5f4bf55..2af6ad2 100755
--- a/tools/HPlot.pm
+++ b/tools/HPlot.pm
@@ -122,6 +122,10 @@ sub PlotInit {
   elsif(defined $p->{$name}->{xmin}) {
     plot_write($fh,"set xrange [".$p->{$name}->{xmin}.":]");
     }
+
+  if($p->{$name}->{addCmd} && $p->{$name}->{addCmd} ne "") {  
+    plot_write($fh,$p->{$name}->{addCmd});
+    }
     
   if($p->{$name}->{type} == TYPE_HISTORY) {
     if($p->{$name}->{fill}) {