#!/usr/pkg/bin/perl -w
#
# This is a simple example of constructing
# undirected graphs. It shows factors, kinda ;-)


use strict;
use lib '../lib';
use GraphViz;

my $g = GraphViz->new(layout => 'neato', directed => 0, no_overlap => 1);

foreach my $i (1..16) {
  my $used = 0;
  $used = 1 if $i >= 2 and $i <= 4;
  foreach my $j (2..4) {
    if ($i != $j && $i % $j == 0) {
      $g->add_edge($i => $j);
      $used = 1;
    }
  }
  $g->add_node($i) if $used;
}

#print $g->_as_debug;
#print $g->as_text;
$g->as_png("undirected.png");

