From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Mon, 11 Apr 2011 10:46:01 +0000 (+0000)
Subject: prettyfied gnuplots
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5414d9ba7b43a9e535eded0c741e73b61a45158e;p=biopieces.git

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 06b8392..34bd123 100644
--- 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";