[Bioperl-l] Can Bio::Graphics render a muti_segments picture?

[Lincoln Stein]

Please send the whole script, not an excerpt.

Thanks,

Lincoln

On Wednesday 14 May 2003 09:07 pm, tongw wrote:
> use Bio::Graphics;
> use Bio::SeqIO;
> .....
> my $io = Bio::SeqIO->new(-format=>"$format" , -file=>$file) or
> die("can`t open the $file.\n");
> my $seq = $io->next_seq                or die USAGE;
> my $wholeseq =
> Bio::SeqFeature::Generic->new(-start=>1,-end=>$seq->length,-seq_id=>$seq
> ->display_name);
> $wholeseq->attach_seq($seq);
>
> my $panel = Bio::Graphics::Panel->new(
>                                      -length    => $seq->length,
>                                      -key_style => 'between',
>                                      -width     => 700,
>                         -pad_top   => 30,
>                         -pad_bottom => 30,
>                                      -pad_left  => 50,
>                                      -pad_right => 50,
>                                       );  
> $panel->add_track($wholeseq,
>                   -glyph  => 'dna',
>                   -fgcolor => 'black',
>                   -height => 100,
>                   -bgcolor => 'red',
>                   -do_gc        => 'true',
>                   -gc_bins => 100,
>                   -axis_color=> 'blue',
>                   -strand => 'forward',);

-- 
========================================================================
Lincoln D. Stein                           Cold Spring Harbor Laboratory
lstein at cshl.org			                  Cold Spring Harbor, NY
========================================================================