Changeset 196

Timestamp:

03/16/11 16:42:46 (14 months ago)

Author:

andrea

Message:

- risolti conflitti nelle immagini bioperl tra le features
- aggiunti metadati per le features
- tolta la label _no_value e sostituita con start-end della feature

Files:

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

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

@@ -81 +81 @@
       peptide_coil => "aliceblue",
       signal_peptide => "gold",
+      INIT_MET => "black",
+      REGION => "violet",
 );
 
@@ -106 +108 @@
       polyA_signal => 1,
       repeat_region => 1,
+      HELIX => 1,
+      TURN => 1,
+      STRAND => 2,
 );
 
@@ -160 +165 @@
       rep_origin => \&note_description,
       variation => \&note_description,
+      INIT_MET => \&description,
+      REGION => \&description,
 );
 
@@ -247 +254 @@
                     -key      => "${key}",
                     -key_color => "red",
-                    -bump     => $bumps{$tag},
+                    -bump     =>  $bumps{$tag} || 5,
+                    -bump_limit => 3,
+                    -hbumppad => 5,
                     -height   => 8,
                     #-description    => \&gene_description,
@@ -284 +293 @@
       my $name = 'graphicsmap';
       my $boxes    = $panel->boxes;
+      my $pad_left_correction = 21;
       # my (%track2link,%track2title,%track2target);
       my $map = qq(<map name="$name" id="$name">\n);
@@ -471 +481 @@
   return unless @notes;
   substr($notes[0],40) = '...' if length $notes[0] > 40;
+  #print STDERR $notes[0];
+  if ($notes[0] eq '_no_value') {
+        my $loc_start = $feature->start;
+        my $loc_end = $feature->end;
+        $notes[0] = "$loc_start-$loc_end" ;
+  }
   $notes[0];
 }