#!/usr/bin/perl -W

use strict;
use warnings;

use Gtk2 -init;
use Cairo;

use AA;
use AA::Gfx;
use AA::UI;
use AA::Graph;
use AA::Net;
use AA::Anim;

my $ui = AA::UI->new('');

my $back = AA::Background->new('bg');

my $v = AA::NetV->new('v');
$v->Set('x', 100);
$v->Set('y0', 100);
$v->Set('label', '1');

my $w = AA::NetV->new('w');
$w->Bind('x', AA::Anim->ticker(200, 600, 200));
$w->Set('y0', 100);
$w->Set('label', '2');

my $e = AA::Edge->new('e', $v, $w);
$e->Set('arrow', 1);

my $scenario = [
	sub {
		$v->Set("h", 1);
		$w->Set("h", 1);
	},
	sub {
		$v->Set("h", 1);
		$w->Set("h", 2);
	}
];

$ui->RunScenario($scenario, 1);

exit 0;

