Goldberg: English

diff --git a/goldberg.pl b/goldberg.pl
index cf6144ead83128bf9c1cde0ce086586285f99936..f0a6a8c035e74bbf9741f1b2c40ba72093979675 100755 (executable)
--- a/goldberg.pl
+++ b/goldberg.pl
@@ -24,7 +24,7 @@ my $back = AA::Background->new('bg');
 
 my $title = AA::Label->new('title');
 $title->MultiSet(
-       'text' => 'Goldbergův algoritmus',
+       'text' => "Goldberg's Algorithm",
        'size' => 60,
        'x' => 1024/2,
        'y' => 80,
@@ -91,7 +91,7 @@ if (!$show || $show eq "1") {
                sub { flow(3, 5);       hint(-1); },
        ];
 } elsif ($show eq "2") {
-       $title->Set('text', "Goldberg v úzkých");
+       $title->Set('text', "Goldberg Meets Bottleneck");
        for (my $i=0; $i<@v-1; $i++) {
                $e[$i]->Set('c', 5-$i);
        }
@@ -138,7 +138,7 @@ if (!$show || $show eq "1") {
                sub { flow(0, -1); hint(-1); },
        ];
 } elsif ($show eq "3") {
-       $title->Set('text', "Goldberg s nejvyšším vrcholem");
+       $title->Set('text', "Goldberg with Max Height Rule");
        for (my $i=0; $i<@v-1; $i++) {
                $e[$i]->Set('c', 5-$i);
        }