minor fixes concerning scaleoffset

diff --git a/tools/adcread.pl b/tools/adcread.pl
index 67b703f90613b595a0ce249c143173fb53a8d642..35fef3b8083ae9aa9cfca673ca08273fbab4777b 100755 (executable)
--- a/tools/adcread.pl
+++ b/tools/adcread.pl
@@ -97,7 +97,7 @@ print "$mean\t$stdev\t$min\t$max\n";
 
 sub getVal{
   my $read = trb_register_read($self->{FPGA},$self->{address});
-  my $value = ($read->{$self->{FPGA}} & 0xFFFF ) * $self->{scale} + $self->{scaleoffset};
+  my $value = ($read->{$self->{FPGA}} & 0xFFFF ) * $self->{scale} + ($self->{scaleoffset}||0);
   return $value;
 }
 
@@ -105,8 +105,8 @@ sub minMax{
 #   read min and max 
   my $read = trb_register_read($self->{FPGA},$self->{address}+0x30);
   my $minmax = ($read->{$self->{FPGA}} ) ;
-  my $min = ($minmax & 0x0000FFFF) * $self->{scale} + $self->{scaleoffset}; # lower 16 bit
-  my $max = ($minmax >> 16       ) * $self->{scale} + $self->{scaleoffset};        # upper 16 bit
+  my $min = ($minmax & 0x0000FFFF) * $self->{scale} + ($self->{scaleoffset}||0); # lower 16 bit
+  my $max = ($minmax >> 16       ) * $self->{scale} + ($self->{scaleoffset}||0);        # upper 16 bit
   return ($min, $max);
 }
 

diff --git a/tools/plotService.pl b/tools/plotService.pl
index 6fb47821f65b0971d2dac3928a09568316e82690..2d01435ed9c0d288a4c812cb03bf4f31e81098e7 100755 (executable)
--- a/tools/plotService.pl
+++ b/tools/plotService.pl
@@ -206,12 +206,12 @@ sub sample {
   # sample random number for debug
 #   HPlot::PlotAdd($self->{requestString},rand());
   my $read = trb_register_read($self->{FPGA},$self->{address});
-  my $value = ($read->{$self->{FPGA}} & 0xFFFF ) * $self->{scale} + $self->{scaleoffset};
+  my $value = ($read->{$self->{FPGA}} & 0xFFFF ) * $self->{scale} + ($self->{scaleoffset}||0);
 #   read min and max 
   my $read = trb_register_read($self->{FPGA},$self->{address}+0x30);
   my $minmax = ($read->{$self->{FPGA}} ) ;
-  my $min = ($minmax & 0x0000FFFF) * $self->{scale} + $self->{scaleoffset}; # lower 16 bit
-  my $max = ($minmax >> 16       ) * $self->{scale} + $self->{scaleoffset};        # upper 16 bit
+  my $min = ($minmax & 0x0000FFFF) * $self->{scale} + ($self->{scaleoffset}||0); # lower 16 bit
+  my $max = ($minmax >> 16       ) * $self->{scale} + ($self->{scaleoffset}||0);        # upper 16 bit
 #   print $value."\n" if $myverbose;
   HPlot::PlotAdd($self->{requestString},$value,0);
   HPlot::PlotAdd($self->{requestString},$min,1);