Changeset 28802 for trunk/tools/czartool/Czarplot.pm

Timestamp:

Jul 30, 2010, 10:56:07 AM (16 years ago)

Author:

rhenders

Message:

Improvements to plot titles and x tics

File:

• trunk/tools/czartool/Czarplot.pm (modified) (2 diffs)

trunk/tools/czartool/Czarplot.pm

@@ -189 +189 @@
         $divX = 7200;
     }
-    # if more than one day's data plotted, show daily tics
+    # if less than 1 week's data is data plotted, show daily tics
+    elsif ($timeDiff < 604800) {
+        
+        $timeFormat = "%m/%d";
+        $divX = 86400;
+    }
     else {
-        
-        $timeFormat = "%m/%d %H:%M";
-        $divX = 86400;
-    }
+
+        $timeFormat = "%m/%d";
+        $divX = 172800;
+    }
+
 
     my $numOfPlots = keys %$gnuplotFiles;
+    my $title = undef;
+
+    # sort out plot title
+    if ($numOfPlots == 1) {foreach my $stage (keys %$gnuplotFiles) { $title = "'".$stage."'";}}
+    else {$title = "'All stages'"}
 
     open (GP, "|/usr/bin/gnuplot -persist") or die "no gnuplot";
@@ -205 +216 @@
         "set term $self->{_outputFormat};" .
         "set output \"$outputFile\";" .
-        "set title \"All stages for '$label' since $fromTime\";" .
+        "set title \"$title for '$label' since $fromTime\";" .
         "set key left top;" .
         "set xdata time;" .