#! /usr/local/bin/perl
#
# Copyright (C) 2000 Amit Singh. All Rights Reserved.
#

use Tk;

srand(time());

my ($HEIGHT, $WIDTH) = (400, 400);
my ($d, $color, $x0, $y0, $i, $j, $c, $w) =
   (0, undef, 0, 0, 0, 0, undef, undef);

$w = new MainWindow;
$c = $w->Canvas(-height => $HEIGHT, -width => $WIDTH, -background => 'black');

for ($i = 0; $i < ($WIDTH / 4); $i++) {
    for ($j = 0; $j < ($HEIGHT / 4); $j++) {
      $x0 = 4 * $i;
      $y0 = 4 * $j;
      $d = rand(1);
      if ($d < 0.25) {
          $color = 'red';
      } elsif ($d < 0.50) {
          $color = 'yellow';
      } elsif ($d < 0.75) {
        $color = 'green';
      } else {
        $color = 'blue';
      }
      $c->createRectangle($x0, $y0, $x0 + 4, $y0 + 4, '-fill', $color);
    }
}

$c->update;
$c->pack;

MainLoop;

# FINIS