Summary

Bio::Graphics::Glyph::minmax - The minmax glyph

Package variables

Included modules

Inherit

Bio::Graphics::Glyph::segments

Synopsis

  See Bio::Graphics::Panel and Bio::Graphics::Glyph.

Description

This glyph is the common base class for
Bio::Graphics::Glyph::graded_segments and
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.

Methods

Methods description

None available.

Methods code

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);

}

General documentation

Please report them.

Bio::Graphics::Panel,
Bio::Graphics::Track,
Bio::Graphics::Glyph::graded_segments,
Bio::Graphics::Glyph::xyplog,

Lincoln Stein <lstein@cshl.org>
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.