@fields = split /\t/, $line;
@fields = split /\t/, $line;
+ next if scalar @fields < 9;
+
return wantarray ? @fields : \@fields;
}
}
return wantarray ? @fields : \@fields;
}
}
- `sort -k 2,2n -k 3,3n > $file.sort`;
+ `sort -k 2,2n -k 3,3n $file > $file.sort`;
rename "$file.sort", $file;
}
rename "$file.sort", $file;
}
for ( $i = 0; $i < @tracks; $i++ )
{
for ( $i = 0; $i < @tracks; $i++ )
{
- push @features, [ Maasha::KISS::Track::track_feature( $tracks[ $i ], $draw_metrics, $cookie ) ];
+ $draw_metrics->{ 'FEAT_COLOR' } = palette( $i );
- $draw_metrics->{ 'FEAT_COLOR' } = [ 0, 0, 1 ];
+ push @features, [ Maasha::KISS::Track::track_feature( $tracks[ $i ], $draw_metrics, $cookie ) ];
+sub palette
+{
+ my ( $i,
+ ) = @_;
+
+ my ( $palette, $color );
+
+ $palette = [
+ [ 30, 130, 130 ],
+ [ 30, 50, 150 ],
+ [ 130, 130, 50 ],
+ [ 130, 90, 130 ],
+ [ 130, 70, 70 ],
+ ];
+
+ $color = $palette->[ $i ];
+
+ map { $_ /= 255 } @{ $color };
+
+ return $color;
+}
+
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<