From 5414d9ba7b43a9e535eded0c741e73b61a45158e Mon Sep 17 00:00:00 2001 From: martinahansen Date: Mon, 11 Apr 2011 10:46:01 +0000 Subject: [PATCH] prettyfied gnuplots git-svn-id: http://biopieces.googlecode.com/svn/trunk@1319 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Plot.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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"; -- 2.39.5