[Bioperl-l] How to specify color for each feature in a track?

[Zhenguo Zhang]

Dear Dr. Stein,

I am using your excellent module Bio::Graphics for programming to show protein
domains. I want to put all the domains for a sequence into one track, and give
each domain (one feature here) one designated color. The following is the cold
to add_track: 

 75         $panel->add_track($seq,
 78                 -glyph    =>  'segments',
 81                 -bgcolor  => sub {
 82                     my $f = shift;
 87                     return $f->get_tag_values('color');
 88                 },
 89                 -fgcolor  => 'black',
 90                 -font2color => 'red',
 91                 -key      => "$seq",
 92                 -label    => 1,
 93                 -bump     => +1,
 94                 -height   => 8,
 95                 -description => 1,
 96 #               -part_label_merge => 1
 97                 );

Here $seq is an array reference, each element being one domain feature. I
specify the -bgcolor based on the tag 'color'  defined when domain feature was
constructed. However, it does not work. All the domains in all sequences show
the same color. Based on the document, the -glyph can be changed by calling
back the anonymous functions (I have not tried this). The color might be
changed in a similar way. Thank you in advance!

Best regards!

Zhenguo

**************************************************************
Zhenguo Zhang
Postdoctoral Scholar
Institute of Molecular Evolutionary Genetics
Penn State University
312 Mueller Lab
University Park, PA 16802
Tel: 814-865-2796
Homepage: <http://www.personal.psu.edu/zuz17/>
Lab page:  <http://homes.bio.psu.edu/people/Faculty/Nei/>