goldberg.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 $anim = shift @ARGV;
  17 my $output = shift @ARGV || "";
  18
  19 my $ui = AA::UI->new($output);
  20
  21 my $back = AA::Background->new('bg');
  22
  23 my $title = AA::Label->new('title');
  24 $title->MultiSet(
  25         'text' => 'Goldbergův algoritmus',
  26         'size' => 60,
  27         'x' => 1024/2,
  28         'y' => 80,
  29 );
  30
  31 my @v;
  32 for (my $i=0; $i<5; $i++) {
  33         my $v = AA::NetV->new("v$i");
  34         $v->MultiSet(
  35                 'x' => 100 + 180*$i,
  36                 'y0' => 600,
  37                 'label' => ($i == 0) ? "Z" : ($i == 4) ? "S" : $i,
  38                 'h' => ($i == 0) ? 5 : 0,
  39         );
  40         push @v, $v;
  41 }
  42
  43 my @e;
  44 for (my $i=0; $i<4; $i++) {
  45         my $e = AA::NetE->new("e$i", $v[$i], $v[$i+1]);
  46         $e->Set('c', 5);
  47         $e->Set('f', 0);
  48         push @e, $e;
  49 }
  50
  51 for (my $i=1; $i<@v; $i++) {
  52         my $ii = $i;    # need to keep a copy in the current closure
  53         $v[$i]->Bind('xs', sub { $e[$ii-1]->Get('f') - (($ii == @v-1) ? 0 : $e[$ii]->Get('f')) });
  54 }
  55 $v[4]->{XS}->Set('color', [0,1,0]);
  56
  57 sub flow($$) {
  58         my ($i,$df) = @_;
  59         $e[$i]->Set('f', $e[$i]->Get('f') + $df);
  60 }
  61
  62 sub up($) {
  63         my ($i) = @_;
  64         my $v = $v[$i];
  65         my $h = $v[$i]->Get('h');
  66         $v->SetTicker('h', $h, $h+1, 10);
  67 }
  68
  69 sub hint($) {
  70         my ($h) = @_;
  71         AA::Anim->add_final(sub {
  72                 for (my $i=0; $i<@v; $i++) {
  73                         $v[$i]->Set('hint', $i == $h);
  74                 }
  75         });
  76 }
  77
  78 my $scenario;
  79
  80 if (!@ARGV || $ARGV[0] eq "1") {
  81         $scenario = [
  82                 sub { },
  83                 sub { flow(0, 5);       hint(1); },
  84                 sub { up(1); },
  85                 sub { flow(1, 5);       hint(2); },
  86                 sub { up(2); },
  87                 sub { flow(2, 5);       hint(3); },
  88                 sub { up(3); },
  89                 sub { flow(3, 5);       hint(-1); },
  90         ];
  91 } elsif ($ARGV[0] eq "2") {
  92         $title->Set('text', "Goldberg v úzkých");
  93         for (my $i=0; $i<@v-1; $i++) {
  94                 $e[$i]->Set('c', 5-$i);
  95         }
  96         $scenario = [
  97                 sub { },
  98                 sub { flow(0, 5); hint(1); },
  99                 sub { up(1); },
 100                 sub { flow(1, 4); hint(2); },
 101                 sub { up(2); },
 102                 sub { flow(2, 3); hint(3); },
 103                 sub { up(3); },
 104                 sub { flow(3, 2); },
 105                 sub { up(3); },
 106                 sub { flow(2, -1); hint(2); },
 107                 sub { up(2); },
 108                 sub { flow(1, -1); hint(1); },
 109                 sub { up(1); },
 110                 sub { up(1); },
 111                 sub { flow(1, 1); },
 112                 sub { up(1); },
 113                 sub { up(1); },
 114                 sub { up(1); },
 115                 sub { flow(0, -1); hint(2); },
 116                 sub { up(2); },
 117                 sub { flow(2, 1); hint(3); },
 118                 sub { up(3); },
 119                 sub { up(3); },
 120                 sub { flow(2, -1); hint(2); },
 121                 sub { up(2); },
 122                 sub { up(2); },
 123                 sub { flow(2, 1); hint(3); },
 124                 sub { up(3); },
 125                 sub { up(3); },
 126                 sub { flow(2, -1); hint(2); },
 127                 sub { up(2); },
 128                 sub { up(2); },
 129                 sub { flow(2, 1); },
 130                 sub { flow(1, -1); hint(1); },
 131                 sub { flow(0, -1); hint(3); },
 132                 sub { up(3); },
 133                 sub { up(3); },
 134                 sub { flow(2, -1); hint(2); },
 135                 sub { flow(1, -1); hint(1); },
 136                 sub { flow(0, -1); hint(-1); },
 137         ];
 138 } elsif ($ARGV[0] eq "3") {
 139         $title->Set('text', "Goldberg s nejvyšším vrcholem");
 140         for (my $i=0; $i<@v-1; $i++) {
 141                 $e[$i]->Set('c', 5-$i);
 142         }
 143         $scenario = [
 144                 sub { },
 145                 sub { flow(0, 5); hint(1); },
 146                 sub { up(1); },
 147                 sub { flow(1, 4); },
 148                 sub { up(1); },
 149                 sub { up(1); },
 150                 sub { up(1); },
 151                 sub { up(1); },
 152                 sub { up(1); },
 153                 sub { flow(0, -1); hint(2); },
 154                 sub { up(2); },
 155                 sub { flow(2, 3); },
 156                 sub { up(2); },
 157                 sub { up(2); },
 158                 sub { up(2); },
 159                 sub { up(2); },
 160                 sub { up(2); },
 161                 sub { up(2); },
 162                 sub { flow(1, -1); hint(1); },
 163                 sub { flow(0, -1); hint(3); },
 164                 sub { up(3); },
 165                 sub { flow(3, 2); },
 166                 sub { up(3); },
 167                 sub { up(3); },
 168                 sub { up(3); },
 169                 sub { up(3); },
 170                 sub { up(3); },
 171                 sub { up(3); },
 172                 sub { up(3); },
 173                 sub { flow(2, -1); hint(2); },
 174                 sub { flow(1, -1); hint(1); },
 175                 sub { flow(0, -1); hint(-1); },
 176         ];
 177 } else {
 178         die "What do you want?\n";
 179 }
 180
 181 $ui->RunScenario($scenario);