<commit_before>package Bio::EnsEMBL::GlyphSet::Pprotdas;
use strict;
use vars qw(@ISA);
use Bio::EnsEMBL::GlyphSet;
@ISA = qw(Bio::EnsEMBL::GlyphSet);
use Sanger::Graphics::Glyph::Composite;
use Sanger::Graphics::Glyph::Rect;
use Sanger::Graphics::Glyph::Text;
use Sanger::Graphics::ColourMap;
use Sanger::Graphics::Bump;
use Data::Dumper;
use ExtURL;


sub init_label {
    my ($self) = @_;
    return if( defined $self->{'config'}->{'_no_label'} );
    my $label = $self->{'extras'} && $self->{'extras'}->{'name'};
    $label ||= 'ProteinDAS';

    my $label = new Sanger::Graphics::Glyph::Text
      ( { 'text'      => $label,
	  'font'      => 'Small',
	  'absolutey' => 1 });

    $self->label($label);

    return 1;
}



sub _init {

    my ($self) = @_;
    my %hash;
    my $caption       = $self->managed_name || "GeneDAS";
    my @bitmap        = undef;
	my $Config        = $self->{'config'};  
	my $prot_len	  = $self->{'container'}->length;
    my $pix_per_bp    = $Config->transform->{'scalex'};
    my $bitmap_length = int( $prot_len * $pix_per_bp);
    my $y             = 0;
    my $h             = 4;
    my $cmap          = new Sanger::Graphics::ColourMap;
    my $black         = 'black';
    my $red           = 'red';
    my $font          = "Small";
    my $colour        = $Config->get('Ppfam','col');
    my ($fontwidth,
	$fontheight)  = $Config->texthelper->px2bp($font);

    my $das_feat_ref = $self->{extras}->{features};<commit_msg>Ported change from branch-ensembl-20-1<commit_after>package Bio::EnsEMBL::GlyphSet::Pprotdas;
use strict;
use vars qw(@ISA);
use Bio::EnsEMBL::GlyphSet;
@ISA = qw(Bio::EnsEMBL::GlyphSet);
use Sanger::Graphics::Glyph::Composite;
use Sanger::Graphics::Glyph::Rect;
use Sanger::Graphics::Glyph::Text;
use Sanger::Graphics::ColourMap;
use Sanger::Graphics::Bump;
use Data::Dumper;
use ExtURL;


sub init_label {
    my ($self) = @_;
    return if( defined $self->{'config'}->{'_no_label'} );
    my $label = $self->{'extras'} && $self->{'extras'}->{'name'};
    $label ||= 'ProteinDAS';
    my $print_label = ( length($label) > 16 ? 
			substr( $label, 0, 14 )."..": 
			$label );
    
    my $label = new Sanger::Graphics::Glyph::Text
      ( { 'text'      => $print_label,
	  'font'      => 'Small',
	  'absolutey' => 1,
	  'zmenu'     => {caption=>$label}
	});

    $self->label($label);

    return 1;
}



sub _init {

    my ($self) = @_;
    my %hash;
    my $caption       = $self->managed_name || "GeneDAS";
    my @bitmap        = undef;
	my $Config        = $self->{'config'};  
	my $prot_len	  = $self->{'container'}->length;
    my $pix_per_bp    = $Config->transform->{'scalex'};
    my $bitmap_length = int( $prot_len * $pix_per_bp);
    my $y             = 0;
    my $h             = 4;
    my $cmap          = new Sanger::Graphics::ColourMap;
    my $black         = 'black';
    my $red           = 'red';
    my $font          = "Small";
    my $colour        = $Config->get('Ppfam','col');
    my ($fontwidth,
	$fontheight)  = $Config->texthelper->px2bp($font);

    my $das_feat_ref = $self->{extras}->{features};
{'fraction_non_alphanumeric': 0.1988360814742968, 'fraction_numerical': 0.005819592628516004, 'mean_word_length': 2.8292079207920793, 'pattern_counts': {'":': 1, '<': 3, '<?xml version=': 0, '>': 46, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '355456', 'n_tokens_mistral': 1195, 'n_tokens_neox': 1140, 'n_words': 229}