Hi, I didn't author this, but it will give you a good idea of how easy it would be in perl/tk.

UPDATE Got rid of huge ugly array.

#!/usr/bin/perl
use Tk;

my $STEP    = 20;
my $BOXSIZE = 70;
my $WINDOWX = 700;
my $WINDOWY = 500;

my $mw = new MainWindow(
    -title  => "This is a test",
    -width  => $WINDOWX,
    -height => $WINDOWY,
);
my $canvas = $mw->Canvas(
    -bg     => "black",
    -width  => $WINDOWX,
    -height => $WINDOWY
)->pack();

$canvas->repeat( $STEP, sub { rect($canvas); } );
$canvas->repeat( $STEP, sub { oval($canvas); } );

MainLoop();

sub oval {
    my $c = shift;

    my $x     = rand $WINDOWX;
    my $y     = rand $WINDOWY;
    my $sizex = rand $BOXSIZE;
    my $sizey = rand $BOXSIZE;

    my $o = $c->createOval(
        $x,          $y,
        $x + $sizex, $y + $sizey,
        -fill => getcolor(),
    );
    push ( @ovals, $o );
    while ( @ovals > 1000 ) {
        $c->delete( shift (@ovals) );
    }
}

sub rect {
    my $c = shift;

    my $x    = rand $WINDOWX;
    my $y    = rand $WINDOWY;
    my $size = rand $BOXSIZE;

    my $r = $c->createRectangle(
        $x,         $y,
        $x + $size, $y + $size,
        -fill => getcolor(),
    );
    push ( @rects, $r );
    while ( @rects > 1000 ) {
        $c->delete( shift (@rects) );
    }
}

sub getcolor{
 my($string) = '#';
 my($length) = 7;
 my(@chars) = ('a' .. 'f', 0 .. 9);
 while (length($string) != $length) {
 $string .= $chars[ rand($#chars) ];
  }
return $string;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.