[Bioperl-l] How to create contrasting colors in every singe track - Bio::Graphics

[Edward Wijaya]

Dear experts,

I am trying to draw a figures that shows binding sites hits for various
program (see attached) for example.

Now, I have a problem in creating contrasting colour for each of
the Programs (MEME, AlignACE, etc).  I want to avoid "graded segments",
so that I can have more contrasting color, e.g: red, blue, yellow, etc.

Can anybody suggest how can we achieve that?

My full source code can be found here: http://dpaste.com/16985/
The portion of the script is this:

__BEGIN__
    my %prog_color = (
        "Actual"   => 800000,
        "ALIGNACE" => 230000,
        "BP"       => 80000,
        "MDSCAN"   => 5000,
        "MITRA"    => 10000,
        "MTSAMP"   => 200000,
        "SPACE"    => 40000,
        "NONE"     => 0,
    );

    foreach my $seqid ( sort {$a <=> $b }keys %nlist ) {
        my $track = $panel->add_track(
            -glyph     => 'graded_segments',
            -key       => "SEQ " . $seqid,
            -connector => "dashed",
            -label     => 1,
            -fontcolor => 'red',
            -bgcolor   => 'blue',
            -bump      => +1,
            -height    => 8,
            -min_score => 0,
            -max_score => 500000
        );
# rest of the script
__END__

Regards,
Edward
-------------- next part --------------
A non-text attachment was scrubbed...
Name: hits.png
Type: image/png
Size: 2509 bytes
Desc: not available
URL: <http://lists.open-bio.org/pipermail/bioperl-l/attachments/20070816/31057225/attachment-0004.png>