]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
fixed huge white boarder in heatmap
authorJan Michel <j.michel@gsi.de>
Wed, 5 Nov 2014 16:31:37 +0000 (17:31 +0100)
committerJan Michel <j.michel@gsi.de>
Wed, 5 Nov 2014 16:31:37 +0000 (17:31 +0100)
dmon/scripts/dmon_heatmaprich.pl
tools/HPlot.pm

index 542654c0faccd7f736e2d99633daec4943252626..5963b31b66ad53b5c8529c254f6b9ccf2b436ebe 100755 (executable)
@@ -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) {
index 5f4bf550bcd093d42847d1a48bf210321ed5064e..2af6ad2bf304d86493aa87e46b0e3b23a2f22659 100755 (executable)
@@ -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}) {