SENDU / bioperl-1.5.2_004-RCb / Bio / Graphics / Glyph / minmax.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
—
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
package Bio::Graphics::Glyph::minmax;
# $Id: minmax.pm,v 1.2.6.1 2006/10/02 23:10:20 sendu Exp $
use strict;
use base qw(Bio::Graphics::Glyph::segments);
sub minmax {
  my $self = shift;
  my $parts = shift;
  # figure out the colors
  my $max_score = $self->option('max_score');
  my $min_score = $self->option('min_score');
  my $do_min = !defined $min_score;
  my $do_max = !defined $max_score;
  if ($do_min or $do_max) {
    my $first = $parts->[0];
    for my $part (@$parts) {
      my $s = eval { $part->feature->score };
      next unless defined $s;
      $max_score = $s if $do_max && (!defined $max_score or $s > $max_score);
      $min_score = $s if $do_min && (!defined $min_score or $s < $min_score);
    }
  }
  ($min_score,$max_score);
}
1;
__END__
=head1 NAME
Bio::Graphics::Glyph::minmax - The minmax glyph
=head1 SYNOPSIS
  See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.
=head1 DESCRIPTION
This glyph is a common base class for
L<Bio::Graphics::Glyph::graded_segments> and
L<Bio::Graphics::Glyph::xyplot>.  It adds an internal method named
minmax() for calculating the upper and lower boundaries of scored
features, and is not intended for end users.
=head1 BUGS
Please report them.
=head1 SEE ALSO
L<Bio::Graphics::Panel>,
L<Bio::Graphics::Track>,
L<Bio::Graphics::Glyph::graded_segments>,
L<Bio::Graphics::Glyph::xyplot>,
=head1 AUTHOR
Lincoln Stein E<lt>lstein@cshl.orgE<gt>
Copyright (c) 2003 Cold Spring Harbor Laboratory
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.  See DISCLAIMER.txt for
disclaimers of warranty.
=cut