a.pl

   1 #!/usr/bin/perl -W
   2
   3 use strict;
   4 use warnings;
   5
   6 use Gtk2 -init;
   7 use Cairo;
   8
   9 use AA;
  10 use AA::Gfx;
  11 use AA::UI;
  12 use AA::Graph;
  13 use AA::Net;
  14 use AA::Anim;
  15
  16 my $ui = AA::UI->new('');
  17
  18 my $back = AA::Background->new('bg');
  19
  20 my $v = AA::NetV->new('v');
  21 $v->Set('x', 100);
  22 $v->Set('y0', 100);
  23 $v->Set('label', '1');
  24
  25 my $w = AA::NetV->new('w');
  26 $w->Bind('x', AA::Anim->ticker(200, 600, 200));
  27 $w->Set('y0', 100);
  28 $w->Set('label', '2');
  29
  30 my $e = AA::Edge->new('e', $v, $w);
  31 $e->Set('arrow', 1);
  32
  33 my $scenario = [
  34         sub {
  35                 $v->Set("h", 1);
  36                 $w->Set("h", 1);
  37         },
  38         sub {
  39                 $v->Set("h", 1);
  40                 $w->Set("h", 2);
  41         }
  42 ];
  43
  44 $ui->RunScenario($scenario, 1);
  45
  46 exit 0;
  47