[Bioperl-guts-l] bioperl commit

Lincoln Stein lstein at pub.open-bio.org
Mon Jul 26 16:38:34 EDT 2004


lstein
Mon Jul 26 16:38:34 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Graphics
In directory pub.open-bio.org:/tmp/cvs-serv7456

Modified Files:
	Panel.pm 
Log Message:
fixed mis-registration of grid with tickmarks when viewing flipped regions; problem of translation glyph not aligning is still pending

bioperl-live/Bio/Graphics Panel.pm,1.84,1.85
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Panel.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -r1.84 -r1.85
--- /home/repository/bioperl/bioperl-live/Bio/Graphics/Panel.pm	2004/07/16 20:11:11	1.84
+++ /home/repository/bioperl/bioperl-live/Bio/Graphics/Panel.pm	2004/07/26 20:38:34	1.85
@@ -761,9 +761,10 @@
   my $pt = $self->pad_top;
   my $pr = $self->right;
   my $pb = $self->height - $self->pad_bottom;
-  local $self->{flip} = 0;
+  my $offset = $self->{offset}+$self->{length}+1;
   for my $tick (@positions) {
-    my ($pos) = $self->map_pt($tick);
+    my ($pos) = $self->map_pt($self->{flip} ? $offset - $tick
+                                            : $tick);
 
     $gd->line($pl+$pos,$pt,$pl+$pos,$pb,$gridcolor);
   }



More information about the Bioperl-guts-l mailing list