Index: trunk/tools/czartool/Plotter.pm
===================================================================
--- trunk/tools/czartool/Plotter.pm	(revision 29864)
+++ trunk/tools/czartool/Plotter.pm	(revision 29951)
@@ -10,8 +10,7 @@
 my @allStages = ("burntool", "chip", "cam", "fake", "warp", "stack", "diff", "magic", "magicDS", "dist");
 
-
-###########################################################################
-#
-# Constructor
+###########################################################################
+#
+# Main constructor with all arguments
 #
 ###########################################################################
@@ -30,4 +29,48 @@
     return $self;
 }
+
+###########################################################################
+#
+# Constructor sending all plots to file
+#
+###########################################################################
+sub new_file {
+    my $class = shift;
+    my $self = {
+        _gpc1Db => shift,
+        _czarDb => shift,
+        _outputPath => shift,
+        _save_temps => shift,
+                                                    };
+
+    $self->{_dateFormat} = "%Y%m%d-%H%M%S";
+    $self->{_outputFormat} = "png font \"/usr/share/fonts/corefonts/arial.ttf\" 8"; # TODO path needs to be in config
+
+        bless $self, $class;
+    return $self;
+}
+
+###########################################################################
+#
+# Constructor sending all plots to an X window
+#
+###########################################################################
+sub new_display {
+    my $class = shift;
+    my $self = {
+        _gpc1Db => shift,
+        _czarDb => shift,
+        _save_temps => shift,
+    };
+
+    $self->{_dateFormat} = "%Y%m%d-%H%M%S";
+    $self->{_outputFormat} = "X11";
+    $self->{_outputPath} = undef;
+
+    bless $self, $class;
+    return $self;
+}
+
+
 
 ###########################################################################