$options->{ "terminal" } ||= "dumb";
- $cmd = "gnuplot";
+ $cmd = "gnuplot -persist";
$pid = open2( $fh_out, $fh_in, $cmd );
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++ )
{
- $title = $options->{ 'keys' }->[ $i - 1 ] || $options->{ 'list' };
+ $title = $options->{ 'keys' }->[ $i - 1 ] || $options->{ 'list' } || "";
push @plot_cmd, qq("$tmp_file" using $i with lines title "$title");
}
$options->{ "terminal" } ||= "dumb";
- $cmd = "gnuplot";
+ $cmd = "gnuplot -persist";
$pid = open2( $fh_out, $fh_in, $cmd );
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++ )
$xtic_space = 50000;
}
- $cmd = "gnuplot";
+ $cmd = "gnuplot -persist";
$pid = open2( $fh_out, $fh_in, $cmd );
$options->{ "terminal" } ||= "dumb";
- $cmd = "gnuplot";
+ $cmd = "gnuplot -persist";
$pid = open2( $fh_out, $fh_in, $cmd );
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";
map { $_->[ 0 ] *= $factor; $_->[ 1 ] *= $factor } @{ $feat_list->{ $feat } };
}
-# @list = sort { $A = $a; $B = $b; $A =~ s/chr//; $B =~ s/chr//; $A <=> $B } keys %{ $karyo_list };
+ @list = sort { $A = $a; $B = $b; $A =~ s/chr//; $B =~ s/chr//; $A <=> $B } keys %{ $karyo_list };
-# splice @list, 0, 2;
-# push @list, "chrX", "chrY";
+ splice @list, 0, 2;
+ push @list, "chrX", "chrY";
$i = 0;
push @nums, $acen->[ 1 ]->[ 1 ];
push @nums, $acen->[ 1 ]->[ 2 ];
+
+ @nums = grep { defined $_ } @nums; # FIXME
@nums = sort { $a <=> $b } @nums;
$cent = ( $nums[ 1 ] + $nums[ 2 ] ) / 2;
$type = Maasha::Seq::seq_guess_type( $entries->[ 0 ]->[ 1 ] );
- if ( $type =~ /^p/i ) {
+ if ( $type eq "PROTEIN" ) {
$bit_max = 4;
} else {
$bit_max = 2;