From 7a8e2964f38fee0ec055990a36a041e9d9ec6f67 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Wed, 5 Nov 2014 17:31:37 +0100
Subject: [PATCH] fixed huge white boarder in heatmap

---
 dmon/scripts/dmon_heatmaprich.pl | 3 ++-
 tools/HPlot.pm                   | 4 ++++
 2 files changed, 6 insertions(+), 1 deletion(-)

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}) {
-- 
2.43.0