Maasha::Common::error( qq(Path not found: "$path") ) if not -d $path;
- $dst_dir = Maasha::Filesys::dir_create( "$path/$options->{ 'genome' }" );
+ $dst_dir = Maasha::Filesys::dir_create_if_not_exists( "$path/$options->{ 'genome' }" );
$dst_dir = Maasha::Filesys::dir_create( "$dst_dir/$options->{ 'assembly' }" );
while ( $record = Maasha::Biopieces::get_record( $in ) )
$type = Maasha::Seq::seq_guess_type( $record->{ "SEQ" } );
}
- if ( $type eq "rna" ) {
+ if ( $type eq "RNA" ) {
Maasha::Seq::rna_comp( \$record->{ "SEQ" } );
- } elsif ( $type eq "dna" ) {
+ } elsif ( $type eq "DNA" ) {
Maasha::Seq::dna_comp( \$record->{ "SEQ" } );
}
}
[ 130, 70, 70 ],
[ 70, 170, 130 ],
[ 130, 170, 50 ],
+ [ 30, 130, 130 ],
+ [ 30, 50, 150 ],
+ [ 130, 130, 50 ],
+ [ 130, 90, 130 ],
+ [ 130, 70, 70 ],
+ [ 70, 170, 130 ],
+ [ 130, 170, 50 ],
+ [ 30, 130, 130 ],
+ [ 30, 50, 150 ],
+ [ 130, 130, 50 ],
+ [ 130, 90, 130 ],
+ [ 130, 70, 70 ],
+ [ 70, 170, 130 ],
+ [ 130, 170, 50 ],
];
$color = $palette->[ $i ];