Here are a few small corrections to the wiggle plot perls,
one fixes an x-axis shift of about 1/2 the tile span size,
the other a y-axis overrun for wiggle_xyplot
- Don
# Feb 25 15:14 lib/Bio/Graphics//Wiggle.pm
package Bio::Graphics::Wiggle;
sub _retrieve_values {
...
$#bases = $length-1; # dgg fix: chomp off extra locs before sample() so
size is same as requested
## otherwise caller uses wrong window adjustment
## cures x-offset in both wiggle_xyplot, wig_density plots
my $result = $self->sample([EMAIL PROTECTED],$samples,$start);
$self->smooth($result) if $self->window;
return $self->unscale($result);
}
# Jan 25 13:09 lib/Bio/Graphics/Glyph/wiggle_xyplot.pm
package Bio::Graphics::Glyph::wiggle_xyplot;
sub create_parts_for_dense_feature {
for (my $i=0; $i<$span;$i++) {
my $offset = $i * $points_per_span;
my $value = shift @$data;
next unless(defined $value); ## dgg fix
...
-- d.gilbert--bioinformatics--indiana-u--bloomington-in-47405
-- [EMAIL PROTECTED]://marmot.bio.indiana.edu/
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Gmod-gbrowse mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gmod-gbrowse
