# Missing Boards
###############################################################################
-our @mdc_boards_removed =();
+# our @mdc_boards_removed =(0x2233,0x2257);
our @mdc_chambers_removed =();
our @rich_boards_removed =();
our @tof_boards_removed =();
use POSIX qw(strftime);
use Hmon;
-
-
-my $title = qq$<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
- <head>
- <!--<meta http-equiv="refresh" content="60"/>-->
- <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
- <link href="../files/indexstyles.css" rel="stylesheet" type="text/css"/>
- <title>Hmon MDC HV Trends</title>
- </head>
- <body class="index" style="position:relative;background:#d8e8f8;width:1650px;margin:auto;padding:120px 0 40px 10px">
- <div style="position:fixed;left:0;top:0;width:100%;height:40px;background:#d8e8f8;box-shadow:none;"></div>
- <h1 style="position:fixed;top:5px;left:0px;width:100%;display:block;text-align:center;margin:26px 0 0px 0">Hmon MDC HV Trends</h1>
- <div style="position:fixed;left:10px;top:30px;background:#346;padding:10px;margin:-22px 5px 5px 15px;"><img style="background:white;padding:6px 0 6px 0;" src = "../doc/background.png" width=84></div>
- <div style="position:fixed;right:10px;top:30px;float:right;background:#346;padding:10px;margin:-22px 15px 5px 5px;"><img src = "../doc/link.png" width=84 height=84></div>
- $;
-
-my $foot = qq$
- </div>
- </body>
- </html>$;
-
-my $out = $title;
+#
+#
+# my $title = qq$<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+# <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+# <head>
+# <!--<meta http-equiv="refresh" content="60"/>-->
+# <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
+# <link href="../files/indexstyles.css" rel="stylesheet" type="text/css"/>
+# <title>Hmon MDC HV Trends</title>
+# </head>
+# <body class="index" style="position:relative;background:#d8e8f8;width:1650px;margin:auto;padding:120px 0 40px 10px">
+# <div style="position:fixed;left:0;top:0;width:100%;height:40px;background:#d8e8f8;box-shadow:none;"></div>
+# <h1 style="position:fixed;top:5px;left:0px;width:100%;display:block;text-align:center;margin:26px 0 0px 0">Hmon MDC HV Trends</h1>
+# <div style="position:fixed;left:10px;top:30px;background:#346;padding:10px;margin:-22px 5px 5px 15px;"><img style="background:white;padding:6px 0 6px 0;" src = "../doc/background.png" width=84></div>
+# <div style="position:fixed;right:10px;top:30px;float:right;background:#346;padding:10px;margin:-22px 15px 5px 5px;"><img src = "../doc/link.png" width=84 height=84></div>
+# $;
+#
+# my $foot = qq$
+# </div>
+# </body>
+# </html>$;
+#
+# my $out = $title;
+#
+# foreach my $i (0..3) {
+# $out .= "<h4>Plane ".($i+1)."</h4>";
+# $out .= qq%<img src="MDCHVP%.$i.qq%FV.png"> <img src="MDCHVP%.$i.qq%CV.png"><br>%;
+# # $out .= qq%Sector 2<br><img src="MDCHVP%.$i.qq%S1V.png"> <img src="MDCHVP%.$i.qq%S1I.png"><br>%;
+# # $out .= qq%Sector 3<br><img src="MDCHVP%.$i.qq%S2V.png"> <img src="MDCHVP%.$i.qq%S2I.png"><br>%;
+# # $out .= qq%Sector 4<br><img src="MDCHVP%.$i.qq%S3V.png"> <img src="MDCHVP%.$i.qq%S3I.png"><br>%;
+# # $out .= qq%Sector 5<br><img src="MDCHVP%.$i.qq%S4V.png"> <img src="MDCHVP%.$i.qq%S4I.png"><br>%;
+# # $out .= qq%Sector 6<br><img src="MDCHVP%.$i.qq%S5V.png"> <img src="MDCHVP%.$i.qq%S5I.png"><br>%;
+# }
+#
+# my $fh;
+# open ($fh,"> ".Hmon::HMONDIR."/files/MDCHVvoltagetrends.htm") or die;
+# print $fh $out;
+# close $fh;
+#
+#
+#
+# $title = qq$<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+# <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+# <head>
+# <!--<meta http-equiv="refresh" content="60"/>-->
+# <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
+# <link href="../files/indexstyles.css" rel="stylesheet" type="text/css"/>
+# <title>Hmon MDC HV Current Trends</title>
+# </head>
+# <body class="index" style="position:relative;background:#d8e8f8;width:1650px;margin:auto;padding:120px 0 40px 10px">
+# <div style="position:fixed;left:0;top:0;width:100%;height:40px;background:#d8e8f8;box-shadow:none;"></div>
+# <h1 style="position:fixed;top:5px;left:0px;width:100%;display:block;text-align:center;margin:26px 0 0px 0">Hmon MDC HV Current Trends</h1>
+# <div style="position:fixed;left:10px;top:30px;background:#346;padding:10px;margin:-22px 5px 5px 15px;"><img style="background:white;padding:6px 0 6px 0;" src =
+# "../doc/background.png" width=84></div>
+# <div style="position:fixed;right:10px;top:30px;float:right;background:#346;padding:10px;margin:-22px 15px 5px 5px;"><img src = "../doc/link.png" width=84
+# height=84></div>
+# $;
+#
+# $foot = qq$
+# </div>
+# </body>
+# </html>$;
+#
+# $out = $title;
+#
+# foreach my $i (0..3) {
+# $out .= "<h4>Plane ".($i+1)."</h4>";
+# $out .= qq%<img src="MDCHVP%.$i.qq%FI.png"> <img src="MDCHVP%.$i.qq%CI.png"><br>%;
+# }
+#
+# open ($fh,"> ".Hmon::HMONDIR."/files/MDCHVcurrenttrends.htm") or die;
+# print $fh $out;
+# close $fh;
foreach my $i (0..3) {
+ my $out = Hmon::MakeTitle(11, 19, "MDC High Voltage ");
$out .= "<h4>Plane ".($i+1)."</h4>";
- $out .= qq%<img src="MDCHVP%.$i.qq%CV.png"> <img src="MDCHVP%.$i.qq%FV.png"><br>%;
-# $out .= qq%Sector 2<br><img src="MDCHVP%.$i.qq%S1V.png"> <img src="MDCHVP%.$i.qq%S1I.png"><br>%;
-# $out .= qq%Sector 3<br><img src="MDCHVP%.$i.qq%S2V.png"> <img src="MDCHVP%.$i.qq%S2I.png"><br>%;
-# $out .= qq%Sector 4<br><img src="MDCHVP%.$i.qq%S3V.png"> <img src="MDCHVP%.$i.qq%S3I.png"><br>%;
-# $out .= qq%Sector 5<br><img src="MDCHVP%.$i.qq%S4V.png"> <img src="MDCHVP%.$i.qq%S4I.png"><br>%;
-# $out .= qq%Sector 6<br><img src="MDCHVP%.$i.qq%S5V.png"> <img src="MDCHVP%.$i.qq%S5I.png"><br>%;
+ $out .= qq%<img src="files/MDCHVP%.$i.qq%FV.png"> <img src="files/MDCHVP%.$i.qq%CV.png"><br>%;
+ $out .= Hmon::MakeFooter();
+ Hmon::WriteFile("mdchvV$i",$out);
}
-my $fh;
-open ($fh,"> ".Hmon::HMONDIR."/files/MDCHVvoltagetrends.htm") or die;
-print $fh $out;
-close $fh;
-
-
-
-$title = qq$<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
- <head>
- <!--<meta http-equiv="refresh" content="60"/>-->
- <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
- <link href="../files/indexstyles.css" rel="stylesheet" type="text/css"/>
- <title>Hmon MDC HV Current Trends</title>
- </head>
- <body class="index" style="position:relative;background:#d8e8f8;width:1650px;margin:auto;padding:120px 0 40px 10px">
- <div style="position:fixed;left:0;top:0;width:100%;height:40px;background:#d8e8f8;box-shadow:none;"></div>
- <h1 style="position:fixed;top:5px;left:0px;width:100%;display:block;text-align:center;margin:26px 0 0px 0">Hmon MDC HV Current Trends</h1>
- <div style="position:fixed;left:10px;top:30px;background:#346;padding:10px;margin:-22px 5px 5px 15px;"><img style="background:white;padding:6px 0 6px 0;" src =
-"../doc/background.png" width=84></div>
- <div style="position:fixed;right:10px;top:30px;float:right;background:#346;padding:10px;margin:-22px 15px 5px 5px;"><img src = "../doc/link.png" width=84
-height=84></div>
-$;
-
- $foot = qq$
- </div>
- </body>
- </html>$;
-
- $out = $title;
-
foreach my $i (0..3) {
+ my $out = Hmon::MakeTitle(11, 19, "MDC High Voltage Current");
$out .= "<h4>Plane ".($i+1)."</h4>";
- $out .= qq%<img src="MDCHVP%.$i.qq%CI.png"> <img src="MDCHVP%.$i.qq%FI.png"><br>%;
+ $out .= qq%<img src="files/MDCHVP%.$i.qq%FI.png"> <img src="files/MDCHVP%.$i.qq%CI.png"><br>%;
+ $out .= Hmon::MakeFooter();
+ Hmon::WriteFile("mdchvC$i",$out);
}
-
-open ($fh,"> ".Hmon::HMONDIR."/files/MDCHVcurrenttrends.htm") or die;
-print $fh $out;
-close $fh;
-
-
+
\ No newline at end of file
<div class="linkbox" style="float:right"><h4>MDC</h4><ul>
<li><a href="monitor.cgi?10-MDCRates-MDCBusy-MDCTemperature-MDCRetransmission-MDCTriggerError-MDCTokenMiss">MDC Overview</a></li>
-<li><a href="monitor.cgi?2-window-MDCBusy">MDC Busy Times</a></li>
-<li><a href="monitor.cgi?2-window-MDCRates">MDC Data Rates</a></li>
-<li><a href="monitor.cgi?2-window-MDCTokenMiss">MDC Missing Tokens</a></li>
-<li><a href="monitor.cgi?2-window-MDCRetransmission">MDC Retransmission</a></li>
-<li><a href="monitor.cgi?10-window-MDCTemperature">MDC Temperature</a></li>
-<li><a href="monitor.cgi?2-window-MDCTriggerError">MDC Trigger Errors</a></li>
-<li><a href="monitor.cgi?10-MDCPressure">MDC Gas System Pressures</a></li>
-<li><a href="monitor.cgi?2-window-MDCLV">MDC LV switch status</a></li>
+<li><a href="monitor.cgi?1-window-MDCHV">HV settings</a></li>
+<li><a href="monitor.cgi?30-mdchvV0-mdchvV1-mdchvV2-mdchvV3">HV voltage trend plots</a></li>
+<li><a href="monitor.cgi?30-mdchvC0-mdchvC1-mdchvC2-mdchvC3">HV current trend plots</a></li>
+<li><a href="monitor.cgi?2-window-MDCBusy">Busy Times</a></li>
+<li><a href="monitor.cgi?2-window-MDCRates">Data Rates</a></li>
+<li><a href="monitor.cgi?2-window-MDCTokenMiss">Missing Tokens</a></li>
+<li><a href="monitor.cgi?2-window-MDCRetransmission">Retransmission</a></li>
+<li><a href="monitor.cgi?10-window-MDCTemperature">Temperature</a></li>
+<li><a href="monitor.cgi?2-window-MDCTriggerError">Trigger Errors</a></li>
+<li><a href="monitor.cgi?10-window-MDCPressure">Gas System Pressures</a></li>
+<li><a href="monitor.cgi?2-window-MDCLV">LV switch status</a></li>
</ul></div>
-<div class="linkbox" style="float:left"><h4>High Voltage</h4><ul>
-<li><a href="monitor.cgi?10-MDCHV">MDC HV settings</a></li>
-<li><a href="files/MDCHVvoltagetrends.htm">MDC HV voltage trend plots</a></li>
-<li><a href="files/MDCHVcurrenttrends.htm">MDC HV current trend plots</a></li>
+<div class="linkbox" style="float:left"><h4>RICH</h4><ul>
<li><a href="monitor.cgi?1-RichHV">RICH HV settings & currents</a></li>
</ul></div>
my $timer = 0;
my @colors = ("#000000", "#ff0000","#00ff00","#0000ff","#cccc00","#cc00cc");
-my @names = qw( S0 S1 S2 S3 S4 S5 );
+my @names = qw( S1 S2 S3 S4 S5 S6);
+my @layerlabel = qw(F C);
my $connect_status = &trb_init_ports();
if(!$connect_status) {
die("could not connect to trbnetd");
while(1) {
my $data = Perl2Epics::GetAll();
- my $str = Hmon::MakeTitle(10, 9, "MDC HV", 1, "");
+ my $str = Hmon::MakeTitle(13, 9, "MDC HV", 1, "");
$str .= "<table class=\"rates textbox\">"; #<div id=\"logbox\" class=\"textbox\" >
for(my $i = 1; $i<=4; $i++) {
$str .= "<tr><th colspan=7>Plane $i\n";
- $str .= "<tr><th><th colspan=1>1<th colspan=1>2<th colspan=1>3<th colspan=1>4<th colspan=1>5<th colspan=1>6";
+ $str .= "<tr><th><th colspan=1>Sector 1<th colspan=1>Sector 2<th colspan=1>Sector 3<th colspan=1>Sector 4<th colspan=1>Sector 5<th colspan=1>Sector 6";
for(my $v = 0; $v<=1; $v++) {
- $str .= "<tr><td>".$names[$v]." ";
+ $str .= "<tr><td>".$layerlabel[$v]." ";
for(my $s = 1; $s<=6; $s++) {
my $volt = $data->{"$i-$s-$v-V"}->{val};
my $curr = $data->{"$i-$s-$v-I"}->{val};
my $tc = strftime("%H:%M:%S",localtime($data->{"$i-$s-$v-I"}->{tme} || 0));
$volt = -1 unless defined $volt;
$curr = -1 unless defined $curr;
- HPlot::PlotAdd("P".($i-1).(($v-1)?'F':'C')."I",$curr,$s-1);
- HPlot::PlotAdd("P".($i-1).(($v-1)?'F':'C')."V",$volt,$s-1);
- my $tmp .= sprintf(" %4i - %5i",$volt,$curr);
+ HPlot::PlotAdd("P".($i-1).(($v)?'C':'F')."I",$curr,$s-1);
+ HPlot::PlotAdd("P".($i-1).(($v)?'C':'F')."V",$volt,$s-1);
+ my $tmp .= sprintf(" %4i V | %2.2f uA",$volt,$curr);
$tmp =~ s/\s/ /gi;
$str .= "<td title=\"$tv / $tc\">".$tmp;
}
$str .= "</table>";#</div>
$str .= Hmon::MakeFooter();
- if(!($timer%2)) {
+ if(!($timer%1)) {
Hmon::WriteFile("MDCHV", $str);
}
- if(!($timer%6)) {
+ if(!($timer%3)) {
foreach my $s (0..1){
foreach my $p (0..3) {
HPlot::PlotDraw("P".$p.($s?'C':'F')."I");
}
}
$timer++;
- sleep(5);
+ sleep(1);
}
use HPlot;
-my @names = qw( reflowPressureAthm reflowPressureCompr reflowInO2 reflowRatioCO2 opensysFreshARGON opensysFreshCO2 reflowFreshArgon reflowFreshIsob pipePressureIsoB );
+my @names = qw( reflowPressureAthm reflowPressureCompr reflowInO2 reflowRatioIsob opensysFreshARGON opensysFreshCO2 reflowFreshArgon reflowFreshIsob pipePressureIsoB );
+my @namesLABEL = qw( AtmosphericPressure reflowPressureCompressor reflow_O2_concentration reflow_Isobutane_fraction planeI_argon planeI_CO2 reflowFreshArgon reflowFreshIsobutane pipePressureIsobutane );
my @names2 = qw(waage_1_net waage_2_net);
+my @names2LABEL = qw(Scale_1 Scale_2);
my @names3 = qw(targetVakPressure);
my $plot = ();
$plot->{ymin} = 950;
$plot->{ymax} = 1050;
$plot->{nokey} = 1;
+$plot->{buffer} = 1;
HPlot::PlotInit($plot);
$plot2->{sizey} = 220;
$plot2->{nokey} = 0;
$plot2->{curves} = 2;
+$plot2->{buffer} = 1;
HPlot::PlotInit($plot2);
+my $plotPrePlane1 = ();
+$plotPrePlane1->{name} = "MdcPressurePlane1";
+$plotPrePlane1->{file} = "files/MdcPressurePlane1";
+$plotPrePlane1->{entries} = 720;
+$plotPrePlane1->{type} = HPlot::TYPE_HISTORY;
+$plotPrePlane1->{output} = HPlot::OUT_PNG;
+$plotPrePlane1->{titles}->[0] = "sector 1";
+$plotPrePlane1->{titles}->[1] = "sector 2";
+$plotPrePlane1->{titles}->[2] = "sector 3";
+$plotPrePlane1->{titles}->[3] = "sector 4";
+$plotPrePlane1->{titles}->[4] = "sector 5";
+$plotPrePlane1->{titles}->[5] = "sector 6";
+$plotPrePlane1->{xlabel} = "Minutes";
+$plotPrePlane1->{ylabel} = "Pa";
+$plotPrePlane1->{sizex} = 630;
+$plotPrePlane1->{sizey} = 220;
+$plotPrePlane1->{nokey} = 0;
+$plotPrePlane1->{curves} = 6;
+$plotPrePlane1->{buffer} = 1;
+$plotPrePlane1->{xscale};
+HPlot::PlotInit($plotPrePlane1);
+
+my $plotPrePlane2 = ();
+$plotPrePlane2->{name} = "MdcPressurePlane2";
+$plotPrePlane2->{file} = "files/MdcPressurePlane2";
+$plotPrePlane2->{entries} = 720;
+$plotPrePlane2->{type} = HPlot::TYPE_HISTORY;
+$plotPrePlane2->{output} = HPlot::OUT_PNG;
+$plotPrePlane2->{titles}->[0] = "sector 1";
+$plotPrePlane2->{titles}->[1] = "sector 2";
+$plotPrePlane2->{titles}->[2] = "sector 3";
+$plotPrePlane2->{titles}->[3] = "sector 4";
+$plotPrePlane2->{titles}->[4] = "sector 5";
+$plotPrePlane2->{titles}->[5] = "sector 6";
+$plotPrePlane2->{xlabel} = "Minutes";
+$plotPrePlane2->{ylabel} = "Pa";
+$plotPrePlane2->{sizex} = 630;
+$plotPrePlane2->{sizey} = 220;
+$plotPrePlane2->{nokey} = 0;
+$plotPrePlane2->{curves} = 6;
+$plotPrePlane2->{buffer} = 1;
+HPlot::PlotInit($plotPrePlane2);
+
+
+my $plotPrePlane3 = ();
+$plotPrePlane3->{name} = "MdcPressurePlane3";
+$plotPrePlane3->{file} = "files/MdcPressurePlane3";
+$plotPrePlane3->{entries} = 720;
+$plotPrePlane3->{type} = HPlot::TYPE_HISTORY;
+$plotPrePlane3->{output} = HPlot::OUT_PNG;
+$plotPrePlane3->{titles}->[0] = "sector 1";
+$plotPrePlane3->{titles}->[1] = "sector 2";
+$plotPrePlane3->{titles}->[2] = "sector 3";
+$plotPrePlane3->{titles}->[3] = "sector 4";
+$plotPrePlane3->{titles}->[4] = "sector 5";
+$plotPrePlane3->{titles}->[5] = "sector 6";
+$plotPrePlane3->{xlabel} = "Minutes";
+$plotPrePlane3->{ylabel} = "Pa";
+$plotPrePlane3->{sizex} = 630;
+$plotPrePlane3->{sizey} = 220;
+$plotPrePlane3->{nokey} = 0;
+$plotPrePlane3->{curves} = 6;
+$plotPrePlane3->{buffer} = 1;
+HPlot::PlotInit($plotPrePlane3);
+
+
my $str = Hmon::MakeTitle(8,5,"Atmospheric Pressure",0);
$str .= qq@<img src="%ADDPNG files/AtmosPress.png%" type="image/png">@;
$str .= Hmon::MakeFooter();
$str .= Hmon::MakeFooter();
Hmon::WriteFile("MdcScales",$str);
-
+$str = Hmon::MakeTitle(8,5,"Mdc differential Pressure Plane1",0);
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">@;
+$str .= Hmon::MakeFooter();
+Hmon::WriteFile("MdcPressurePlane1",$str);
+
+$str = Hmon::MakeTitle(8,5,"Mdc differential Pressure Plane2",0);
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane2.png%" type="image/png">@;
+$str .= Hmon::MakeFooter();
+Hmon::WriteFile("MdcPressurePlane2",$str);
+
+$str = Hmon::MakeTitle(8,5,"Mdc differential Pressure Plane3",0);
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane3.png%" type="image/png">@;
+$str .= Hmon::MakeFooter();
+Hmon::WriteFile("MdcPressurePlane3",$str);
+
+
my $timer = 0;
while(1) {
my $data = Perl2Epics::GetAll();
- $str = Hmon::MakeTitle(8, 18, "MDC Gas Pressure", 1, "");
- $str .= "<h4>p_Delta</h4>\n";
+ $str = Hmon::MakeTitle(8, 28, "MDC Gas Pressure", 1, "");
+ $str .= "<h4>Chamber differential pressure [Pa]</h4>\n";
$str .= "<table class=\"rates \">\n"; #<div id=\"logbox\" class=\"textbox\" >
- $str .= "<tr><th><th colspan=1>1<th colspan=1>2<th colspan=1>3<th colspan=1>4<th colspan=1>5<th colspan=1>6\n";
+ $str .= "<tr><th colspan=1>plane/sector<th colspan=1>1<th colspan=1>2<th colspan=1>3<th colspan=1>4<th colspan=1>5<th colspan=1>6\n";
for(my $i = 1; $i<=3; $i++) {
$str .= "<tr><th>$i";
for(my $v = 1; $v<=6; $v++) {
$str .= "<h4>Gas System</h4>\n";
$str .= "<table class=\"rates \" style=\"margin:auto\">\n";
foreach my $i (0.. (scalar @names)-1) {
- $str .= sprintf("<tr><td>%s<td>%.2f\n",$names[$i],$data->{$names[$i]}->{val} || -1);
+ $str .= sprintf("<tr><td>%s<td>%.2f\n",$namesLABEL[$i],$data->{$names[$i]}->{val} || -1);
}
+ $str .= "<br>\n";
+ foreach my $i (0.. (scalar @names2)-1) {
+ $str .= sprintf("<tr><td>%s<td>%.2f\n",$names2LABEL[$i],$data->{$names2[$i]}->{val} || -1);
+ }
+ $str .= "<br>\n";
foreach my $i (0.. (scalar @names3)-1) {
$str .= sprintf("<tr><td>%s<td>%.2f\n",$names3[$i],$data->{$names3[$i]}->{val} || -1);
}
- foreach my $i (0.. (scalar @names2)-1) {
- $str .= sprintf("<tr><td>%s<td>%.2f\n",$names2[$i],$data->{$names2[$i]}->{val} || -1);
- }
$str .= "</table>\n";
+ $str .= "<h6>Chamber differential pressure</h6>\n";
+ $str .= "Plane 1 <br>\n";
+ $str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">\n@;
+ $str .= "<br> Plane 2 <br> \n";
+ $str .= qq@<img src="%ADDPNG files/MdcPressurePlane2.png%" type="image/png">\n@;
+ $str .= "<br> Plane 3 <br> \n";
+ $str .= qq@<img src="%ADDPNG files/MdcPressurePlane3.png%" type="image/png">\n@;
+ $str .= "<h4>Isobutane scales</h4>\n";
$str .= qq@<img src="%ADDPNG files/MdcScales.png%" type="image/png">\n@;
$str .= "<br>\n";
+ $str .= "<h4>Atmospheric Pressure</h4>\n";
$str .= qq@<img src="%ADDPNG files/AtmosPress.png%" type="image/png">\n@;
$str .= Hmon::MakeFooter();
}
- if(!($timer++%6)) {
+ if(!($timer%6)) {
HPlot::PlotAdd("AtmosPress",$data->{reflowPressureAthm}->{val});
HPlot::PlotDraw("AtmosPress");
}
+ if(!($timer%6)) {
+ for(my $i = 1; $i<=3; $i++) {
+ for(my $j = 1; $j<=6; $j++) {
+ HPlot::PlotAdd("MdcPressurePlane$i",$data->{"p$i$j"}->{val},$j);
+ HPlot::PlotDraw("MdcPressurePlane$i");
+ }
+ }
+ }
+
+ $timer++;
sleep(10);
}
jspc29 / hadesdaq.git / commitdiff