]> jspc29.x-matter.uni-frankfurt.de Git - hadesdaq.git/commitdiff
update to mdc hv plots
authorhadaq@countinghouse <hadaq@hades33.gsi.de>
Fri, 13 Jun 2014 16:14:54 +0000 (18:14 +0200)
committerhadaq@countinghouse <hadaq@hades33.gsi.de>
Fri, 13 Jun 2014 16:14:54 +0000 (18:14 +0200)
hmon/QA.pm
hmon/hmon_mdchv_plottemplate.pl
hmon/index.cgi
hmon/permanent/hmon_mdchv.pl [changed mode: 0644->0755]
hmon/permanent/hmon_mdcpressure.pl

index 9e22721e486227ae92d62a21a2977198a029439b..4932e6fa26c05b55d0389de359c76d24590ef414 100644 (file)
@@ -94,7 +94,7 @@ use constant {CTSAddress => 0x0003};
 #  Missing Boards
 ###############################################################################
 
-our @mdc_boards_removed =();
+# our @mdc_boards_removed =(0x2233,0x2257);
 our @mdc_chambers_removed =();
 our @rich_boards_removed =();
 our @tof_boards_removed =();
index e79a004811a5e9e9b8574b0e4579ef6940cb9f53..04c087104386546241dc421aee7315d71b519dfc 100755 (executable)
@@ -4,78 +4,93 @@ use warnings;
 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
index 4174278081b68b528c456c9c23c464de8cee062d..784be41eaf0b5791074646866d27faaa5dc2b366 100755 (executable)
@@ -81,21 +81,21 @@ function openwin(url) {
 
 <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 &amp; currents</a></li>
 </ul></div>
 
old mode 100644 (file)
new mode 100755 (executable)
index 45770ae..b4a8fe9
@@ -14,7 +14,8 @@ use HPlot;
 
 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");
@@ -84,13 +85,13 @@ print "Connected.\n";
 
 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]."&nbsp;";
+      $str .= "<tr><td>".$layerlabel[$v]."&nbsp;";
       for(my $s = 1; $s<=6; $s++) {
         my $volt = $data->{"$i-$s-$v-V"}->{val};
         my $curr = $data->{"$i-$s-$v-I"}->{val};
@@ -98,9 +99,9 @@ while(1) {
         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/&nbsp;/gi;
         $str .= "<td title=\"$tv / $tc\">".$tmp;
         }
@@ -110,10 +111,10 @@ while(1) {
   $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");
@@ -122,5 +123,5 @@ while(1) {
       }
     }
   $timer++;
-  sleep(5);
+  sleep(1);
   }
index 8b696638a4f419694b6a4ac678a2c654f03121b4..8a4e5beef07e9d1ecb0271ac7513bc158265591d 100755 (executable)
@@ -12,8 +12,10 @@ use Perl2Epics;
 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 = ();
@@ -30,6 +32,7 @@ $plot->{sizey}   = 220;
 $plot->{ymin} = 950;
 $plot->{ymax} = 1050;
 $plot->{nokey} = 1;
+$plot->{buffer} = 1;
 HPlot::PlotInit($plot);
 
 
@@ -47,8 +50,75 @@ $plot2->{sizex}   = 630;
 $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();
@@ -59,7 +129,22 @@ $str .= qq@<img src="%ADDPNG files/MdcScales.png%" type="image/png">@;
 $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;
 
 
@@ -85,10 +170,10 @@ print "Connected.\n";
 
 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++) {
@@ -99,17 +184,28 @@ while(1) {
   $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();
 
@@ -122,11 +218,21 @@ while(1) {
     }    
   
   
-  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);
   }