-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use Data::Dumper;
-use Data::TreeDumper;
-use Hmon;
-use QA;
-use HPlot;
-use lib '.';
-use MDC;
-use Time::HiRes qw(usleep time);
-use List::Util qw[min max];
-
-use HADES::TrbNet;
-
-#$ENV{DAQOPSERVER} = 'localhost:40';
-trb_init_ports() or die trb_strerror();
-
-
-HPlot::PlotInit({
- name => "MDCNewTemps",
- file => "files/MDCNewTemps",
- title => "Temperatures",
- entries => 80,
- curves => 30,
- type => HPlot::TYPE_HEATMAP,
- output => HPlot::OUT_PNG,
- zlabel => "Hitrate",
- sizex => 610,
- sizey => 510,
- nokey => 1,
- buffer => 1,
- ymin => 29.5,
- ymax => -0.5,
- xmin => -0.5,
- xmax => 79.5,
- #cbmax => "100<*<1E7",
- #cbmin => 0,
- noinit => 1,
- additional => "set format y \"%02o\";set ytics (0,5,8,13,16,21,24,29);set xtics('0' 0,'2' 10, '4' 20,'6' 30,'8' 40,'A' 50, 'C' 60, 'E' 70);",
- showvalues => 0, }
- );
-
-
-my $str = Hmon::MakeTitle(8, 11, "MDC Temperatures",0);
-$str .= qq@<img src="%ADDPNG files/MDCNewTemps.png%" type="image/png"><br>\n@;
-$str .= Hmon::MakeFooter();
-Hmon::WriteFile("MDCNewTemps",$str);
-
-
-while (1) {
- HPlot::PlotClear('MDCNewTemps');
- my $mdc_temp;
- $mdc_temp = trb_register_read(0xfffb, 0) or sleep 5 and next;
-
- foreach my $board (keys %$mdc_temp) {
- my $t = ($mdc_temp->{$board}>>20)/16;
- my ($p,$s,$b,$e) = MDC::get_position($board);
- my $xpos = $b*5 + ($e==5?0:$e+1);
- my $ypos = $p*8+$s;
- next if $p == -1;
-# printf("%x %i %i %i %i\n",$board,$p,$s,$b,$e) ;
- HPlot::PlotFill('MDCNewTemps',$t,$xpos,$ypos);
- }
-
- HPlot::PlotDraw('MDCNewTemps');
-
- sleep 10;
- }
-
jspc29 / hadesdaq.git / commitdiff