Late-Night PerlTK Fun.
I’m just messing around with PerlTK tonight. Here’s my artistic accomplishment.
#!/usr/bin/perl -w use strict; use Tk; my($width, $height) = (250,250); my $x; my $y; my $mw = MainWindow->new; my $c = $mw->Canvas(-width => $width, -height => $height); $c->pack; $y = $height; for ($x = 0; $x <= $width; $x+=10) { $c->createLine(0, $height-$y, $x, $height, -fill => 'blue'); $c->createLine($width-$x, 0, $width, $y, -fill => 'black'); $c->createLine($width-$x, 0, 0, $height-$y, -fill => 'red'); $c->createLine($x, $height, $width, $y, -fill => 'green'); $y-=10; } MainLoop;
Which results in
PerlTK is refreshingly simple to use. I recommend PerlTK.org to get yourself on your feet with a great tutorial.