Bio::Graphics::Glyph::wave - The "wave" glyph

  See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.

  Option      Description                  Default
  ------      -----------                  -------

  -spread     The "spread" of the sine curve 0.3
              Values from 0.1 to 0.5 look best

  -line       Whether  to draw a line         0
              instead of a wave (1 or 0)

  -circle     Whether to draw a circle        0
              in the left corner (1 or 0)

  -radius     The radius of the circle        5
              if present

package Bio::Graphics::Glyph::wave;

use strict;
use base qw(Bio::Graphics::Glyph::generic);

sub default_spread
{
  return 0.3;  
}

sub default_radius
{
  return 5;  
}

sub connector { 'none' }

sub draw_component {
  my $self = shift;
  my $gd = shift;
  my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
  
  my $spread = defined $self->option('spread') ? $self->option('spread') : $self->default_spread();
  
  my $fg = $self->fgcolor;

  my $height = ($y2-$y1)/2;
  my $midY = $y1 + $height;
  
  if ($self->option('circle') == 1)
  {
    my $radius = defined $self->option('radius') ? $self->option('radius') : $self->default_radius();
    $gd->ellipse($x1+$radius,$midY,2*$radius,2*$radius,$fg);
    $x1 = $x1+2*$radius;
  }
  
  if ($self->option('line') == 1)
  {
    if ($x1 < $x2)
    {
      $gd->line($x1,$midY,$x2,$midY,$fg);
    }
    return;
  }
    
  my ($oldX, $oldY);
  foreach my $x ($x1..$x2)
  {
    my $y = -$height * sin ($spread * ($x-$x1))+$midY;
    if ($x>$x1)
    {
      $gd->line($oldX,$oldY,$x,$y,$fg);
    }
    $oldX=$x;
    $oldY=$y;
  }
}


1;

__END__