This glyph draws a sine wave with an optional circle in the beginning.
The wave can also become a straight line.
In addition to the common options, the following glyph-specific
options are recognized:
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
None available.
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;
}} | Please report them.
Vsevolod (Simon) Ilyushchenko <simonf@cshl.edu>.
Copyright (c) 2004 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.