16 my $ui = AA::UI->new('');
18 my $back = AA::Background->new('bg');
21 for (my $i=0; $i<5; $i++) {
22 my $v = AA::NetV->new("v$i");
26 'label' => ($i == 0) ? "Z" : ($i == 4) ? "S" : $i,
27 'h' => ($i == 0) ? 5 : 0,
33 for (my $i=0; $i<4; $i++) {
34 my $e = AA::NetE->new("e$i", $v[$i], $v[$i+1]);
40 for (my $i=1; $i<@v; $i++) {
41 my $ii = $i; # need to keep a copy in the current closure
42 $v[$i]->Bind('xs', sub { $e[$ii-1]->Get('f') - (($ii == @v-1) ? 0 : $e[$ii]->Get('f')) });
44 $v[4]->{XS}->Set('color', [0,1,0]);
48 $e[$i]->Set('f', $e[$i]->Get('f') + $df);
53 $v[$i]->Set('h', $v[$i]->Get('h') + 1);
67 for (my $i=0; $i<@v-1; $i++) {
68 $e[$i]->Set('c', 5-$i);
103 sub { flow(1, -1); },
104 sub { flow(0, -1); },
107 sub { flow(2, -1); },
108 sub { flow(1, -1); },
109 sub { flow(0, -1); },
113 $ui->RunScenario($scenario, 1);