#!/usr/bin/perl

use strict;
use warnings;
use Bio::DB::GFF;
use Bio::Graphics::Panel;
use Bio::DB::GFF::Aggregator;
use Bio::Graphics::Glyph::xyplot;

my $agg = Bio::DB::GFF::Aggregator->new(-method => 'repeat_density', -
+sub_parts => 'density:repeat');
                                        
my $db  = Bio::DB::GFF->new(-dsn => 'mydatabase',
                            -aggregators => $agg);
my $segment = $db->segment('Chr1');
my $features = $segment->features('repeat_density');

my $panel = Bio::Graphics::Panel::->new(-pad_left=>40,-pad_right=>40);
$panel->add_track($features,
                  -glyph => 'xyplot',
                  -graph_type => 'points',
                  -point_symbol => 'disc',
                  -point_radius => 4,
                  -scale => 'both',
                  -height => 200,
);
[download]