package Bio::EnsEMBL::GlyphSet::tagged_snp;
use strict;
use vars qw(@ISA);
use Bio::EnsEMBL::GlyphSet::_variation;

@ISA = qw(Bio::EnsEMBL::GlyphSet::_variation);

sub my_label { return "Tagged SNPs"; }

sub features {
  my ($self) = @_;
  my $Config   = $self->{'config'};
  my $genotyped_vari = $Config->{'snps'};
  return unless ref $genotyped_vari eq 'ARRAY';  

  my @return;
  my @pops     = @{ $Config->{'_ld_population'} || [] }; 
  foreach my $vari (@$genotyped_vari) { 
    foreach my $pop  (@{ $vari->is_tagged }) { 
      if ($pop->name eq $pops[0]) {
	push @return, $vari;
	last;
      }
    };
  }
  return \@return;
}
1;