Foro - Perl en Español

por **jsgarcia** » 2012-02-17 11:09 @506

Hola a todos,

Estoy investigando cómo agregar nuevos Glyph para crear mis propios dibujos. He modificado los Glyph existentes pero no quisiera eliminar los dibujos predefinidos. Espero que alguien me pueda orientar para poder agregar nuevos Glyph.

Saludos
jsgarcia

Bienvenido a los foros de Perl en español, jsgarcia.

La documentación de Bio::Graphics::Glyph dice que los desarrolladores de grilos deberían crear sus objetos a partir de Bio::Graphics::Glyph::generic, ya que este último incorpora las facilidades de etiquetado y dibujo de flechas.

En principio, podrías crear una nueva clase, que herede propiedades y métodos de las clases de dibujo de Bio::Graphics::Glyph::*.

En este Howto se muestra cómo crear los gráficos:
HOWTO:Graphics

Listado de glifos disponibles y sus opciones:
Ejemplo de gráficos hechos con estos módulos.

por **jsgarcia** » 2012-02-17 12:10 @548

Muchas gracias,

Ya he realizado pruebas, he agregado un glyph en /usr/local/share/perl/5.12.4/Bio/Graphics/Glyph y éste hereda del generic, mi glifo agregado se llama prueba.pm, lo mando a llamar en el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
# This is code example 1 in the Graphics-HOWTO
use strict;
use Bio::Graphics;
use Bio::SeqFeature::Generic;
 
my $panel = Bio::Graphics::Panel->new(
                                      -length => 1000,
                                      -width  => 800
                                     );
my $track = $panel->add_track(
                              -glyph => 'prueba',
                              -label => 1
                             );
 
while (<>) { # read blast file
  chomp;
  next if /^\#/;  # ignore comments
  my($name,$score,$start,$end) = split /\t+/;
  my $feature = Bio::SeqFeature::Generic->new(
                                              -display_name => $name,
                                              -score        => $score,
                                              -start        => $start,
                                              -end          => $end
                                             );
  $track->add_feature($feature);
}
 
print $panel->png;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Al ejecutar genera el siguiente error
Can't locate object method "new" via package "Bio::Graphics::Glyph::prueba" at /usr/local/share/perl/5.12.4/Bio/Graphics/Glyph/Factory.pm line 324, <> line 2.
display: no decode delegate for this image format `/tmp/magick-XX3xLN4z' @ error/constitute.c/ReadImage/533.

Sin embargo si modifico un existente (por ejemplo broken_line.pm) ejecuta correctamente, no sé si se tenga que dar de alta el .pm en algún otro archivo de la librería.

Saludos
jsgarcia

por **jsgarcia** » 2012-02-17 12:25 @559

Hola.

Ya logré ejecutar un glyph propio me faltaba agregar el paquete dentro del archivo del glyph:
package Bio::Graphics::Glyph::prueba;

Saludos,
jsgarcia

Foro - Perl en Español

Agregar glyph a la biblioteca Bio::Graphics::Glyph

Agregar glyph a la biblioteca Bio::Graphics::Glyph

Publicidad

Re: Agregar glyph a la biblioteca Bio::Graphics::Glyph

Re: Agregar glyph a la biblioteca Bio::Graphics::Glyph

Re: Agregar glyph a la biblioteca Bio::Graphics::Glyph

¿Quién está conectado?