use strict;
use warnings;
use blib;
use Math::Geometry::Voronoi;

my $n = shift || 1000;

my @points;
for (1 .. $n) {
    push @points, [ rand(), rand() ];
}

$|++;
while (1) {
    my $geo    = Math::Geometry::Voronoi->new(points => \@points);
    my $result = $geo->compute();

    #use Devel::Size qw(size total_size);
    #print "OBJ SIZE: " . total_size($geo);
    #print "RESULT SIZE: " . total_size($result);
    #print "DATA SIZE: " . total_size(\@points);
    print ".";    
}