Changeset 197

Timestamp:

03/16/11 17:34:21 (14 months ago)

Author:

andrea

Message:

- corretto il bug dell'allineamento della mappa rispetto all'immagine delle features.

fix ticket#63

Files:

• plone4bio.base/trunk/src/plone4bio/base/png/perl/graphics.pm (modified) (4 diffs)

plone4bio.base/trunk/src/plone4bio/base/png/perl/graphics.pm

@@ -83 +83 @@
       INIT_MET => "black",
       REGION => "violet",
+      PEPTIDE => "orange",
 );
 
@@ -167 +168 @@
       INIT_MET => \&description,
       REGION => \&description,
+      PEPTIDE => \&description,
+      DISULFID => \&description,
 );
 
@@ -201 +204 @@
     # my %decription_glob;
     ### DON'T TOUCH THIS VALUE - IT WILL ALTER THE MAP-IMAGE ALIGNMEMT###
-    my $pad_left = 79;                                                ###
+    my $pad_left = 69;                                                ###
     #####################################################################
     my $panel = Bio::Graphics::Panel->new(
                                      -length    => $seq->length,
-                                      -key_style => 'left',
+                                      -key_style => 'right',
                                       -width     => 1000,
                                       -pad_left  => $pad_left,
@@ -303 +306 @@
         # my $description = $track->option('title');
         # my $description = $panel->make_title($feature);
-        $left += $pad_left;
-        $right += $pad_left;
+        #$left += $pad_left;
+        #$right += $pad_left;
         next unless $tag;
         $map .= qq(<area class="tips" shape="rect" coords="$left,$top,$right,$bottom" href="#" rel="#${tag}X${start}X${end}" title="$tag $start $end" alt="" />\n);