added collapsable tracks to BGB

[biopieces.git] / code_perl / Maasha / BGB / Draw.pm

diff --git a/code_perl/Maasha/BGB/Draw.pm b/code_perl/Maasha/BGB/Draw.pm
index 3034974119e33ac45a5a02d819ca5cac9d4801d9..7cfe938ce3ac5f814ca2bd78c050ff91fedb2ff8 100644 (file)
--- a/code_perl/Maasha/BGB/Draw.pm
+++ b/code_perl/Maasha/BGB/Draw.pm
@@ -114,6 +114,12 @@ sub draw_feature
             $cr->set_font_size( $feature->{ 'font_size' } );
             $cr->show_text( $feature->{ 'txt' } );
         }
+        elsif ( $feature->{ 'type' } eq 'track_name' )
+        {
+            $cr->move_to( $feature->{ 'x1' }, $feature->{ 'y1' } );
+            $cr->set_font_size( $feature->{ 'font_size' } );
+            $cr->show_text( $feature->{ 'txt' } );
+        }
 
         #$cr->stroke;
     }