#!/usr/bin/perl -w
use strict;
use Graph::Drawing::Random;

my $g = Graph::Drawing::Random->new(
#    debug => 1,  # This is always available to subclasses.
    type         => 'GD',
    format       => 'png',
    surface_name => $0,
    surface_size => 300,  # Defaults to half the max weight if not specified.
    grade        => 20,
    vertex_size  => 6,
    data => {
        john   => { paul => 30, },
        paul   => { john => 30, george => 20, ringo => 10, },
        george => { john => 10, paul   => 10, ringo => 10, },
        ringo  => {},
    }
);

$g->surface->draw;
