prettyfied gnuplots

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1319 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Plot.pm b/code_perl/Maasha/Plot.pm
index 06b83925ce1a64adb9b2eac0d6d812d3cc2d17e6..34bd123024e89960ca90c0b422a85c4b79dcd10c 100644 (file)
--- a/code_perl/Maasha/Plot.pm
+++ b/code_perl/Maasha/Plot.pm
@@ -93,7 +93,7 @@ sub lineplot_simple
     print $fh_in "set logscale y\n"                        if $options->{ "logscale_y" };
     print $fh_in "set grid\n"                              if not $options->{ "terminal" } eq "dumb";
     print $fh_in "set autoscale\n";
-    print $fh_in "set xtics border in scale 0 nomirror rotate by 90 offset character 0, 0, 0\n";
+    print $fh_in "set xtics rotate by -90\n";
 
     for ( $i = 1; $i < scalar @{ $data->[ 0 ] } + 1; $i++ )
     {
@@ -158,7 +158,7 @@ sub histogram_simple
     print $fh_in "set style fill solid\n";
     print $fh_in "set style histogram title offset character 0, 0, 0\n";
     print $fh_in "set style data histograms\n";
-    print $fh_in "set xtics border in scale 0 nomirror rotate by 90 offset character 0, 0, 0\n";
+    print $fh_in "set xtics border in scale 0 nomirror rotate by -90 offset character 0, 0, 0\n";
     print $fh_in "plot '-' using 2:xticlabels(1)\n";
 
     for ( $i = 0; $i < @{ $data }; $i++ )
@@ -295,7 +295,7 @@ sub histogram_chrdist
     print $fh_in "set style fill solid\n";
     print $fh_in "set style histogram title offset character 0, 0, 0\n";
     print $fh_in "set style data histograms\n";
-    print $fh_in "set xtics border in scale 0 nomirror rotate by 90 offset character 0, 0, 0\n";
+    print $fh_in "set xtics border in scale 0 nomirror rotate by -90 offset character 0, 0, 0\n";
 
     print $fh_in "plot '-' using 2:xticlabels(1)\n";