The offset for wiggle_xyplot was to far to the left. This diff file
should replace the original diff file.
diff -c Glyph.sav/wiggle_box.pm Glyph/wiggle_box.pm
*** Glyph.sav/wiggle_box.pm 2010-08-06 13:50:13.447650560 -0400
--- Glyph/wiggle_box.pm 2010-08-06 13:59:32.461648206 -0400
***************
*** 213,218 ****
--- 213,219 ----
my $pixels_per_datapoint = $self->panel->width/@$data * $data_width_ratio;
my $xstart;
+ @$data = reverse @$data if $self->flip;
for (my $i = 0; $i <= @$data ; $i++) {
$xstart ||= $x1 + $pixels_per_datapoint * $i if $data->[$i];
# trigger to draw the previous box is empty space of the end of the stack
diff -c Glyph.sav/wiggle_xyplot.pm Glyph/wiggle_xyplot.pm
*** Glyph.sav/wiggle_xyplot.pm 2010-08-06 13:50:13.445650640 -0400
--- Glyph/wiggle_xyplot.pm 2010-08-06 13:42:08.636898264 -0400
***************
*** 242,247 ****
--- 242,248 ----
my ($start,$end,$score) = @$_;
my $x1 = $left + ($start - $f_start) * $x_scale;
my $x2 = $left + ($end - $f_start) * $x_scale;
+
if ($x2 >= $left and $x1 <= $right) {
my $y1 = $bottom - ($score - $min_score) * $y_scale;
my $y2 = $y_origin;
***************
*** 249,254 ****
--- 250,256 ----
$y1 = $bottom if $y1 > $bottom;
$x1 = $left if $x1 < $left;
$x2 = $right if $x2 > $right;
+ ($x1,$x2) = ($right + $left - $x1,$right + $left - $x2) if $self->flip;
my $color = $score > $midpoint ? $positive : $negative;
[int($x1+0.5),int($y1+0.5),int($x2+0.5),int($y2+0.5),$color,$lw];
