use Tk;
$top = new MainWindow;
$p = $top->Photo(-width => 400, -height => 300);
$c = $top->Canvas(-width => 400, -height => 300)->pack(-fill => "both", -expand => 1);
$img = $c->createImage(0,0,-image=>$p,-anchor=>"nw");
for my $x (-$p->width/2 .. $p->width/2) {
    my($tx) = int($x+$p->width/2);
    my $y = sin($x/10)*$p->height/2;
    my($ty) = int($y+$p->height/2);
    $p->put("#ff0000", -to => $tx,$ty+1,$tx+1,$ty);
}
MainLoop;

use strict;
use Tk;

my $mw = MainWindow     -> new();

my ($screenx,$screeny) = ($mw -> screenwidth(),
                          $mw -> screenheight());

$mw                     -> FullScreen(1);
$mw                     -> geometry("${screenx}x$screeny");

my $canvas = $mw        -> Canvas       (-background    => "#000000",
                                         -bd            => 0,
               
      -relief        => "flat")->
                                    pack(-fill          => "both",
                                         -expand        => 1);

$mw                     -> bind        ('<Key-q>',"exit");

MainLoop;

#!/usr/bin/perl
#Tut bei Mausbewegung einzelne Pixel färben

use strict;
use warnings;
use SDL;
use SDL::App;
use SDL::Color;

my $app = new SDL::App (
   -title => 'einzelne Pixel faerbender Test',
   -width => 640,
   -height => 480,
   -depth => 32,
);

my %actions = (
    SDL_QUIT() => sub { exit(0); },
    SDL_MOUSEMOTION() => \&keydown,
);

$app->loop(\%actions);

sub keydown {
    my $farbe = SDL::Color->new(
                              -r => int(rand(255)),
                              -g => int(rand(255)),
                              -b => int(rand(255)),
                             );
    $app->pixel(int(rand(640)), int(rand(480)), $farbe);
}

#!/usr/bin/perl -w
#
# pf.pl
#

use strict;
use Tk;

my %all;
$all{mw} = MainWindow -> new();
$all{mw} -> bind("<Key-q>","exit");

$all{canvas} = $all{mw} ->
Canvas (-background => "#000000",
            -highlightthickness => 0,
            -relief => "flat",
            -bd => 0)->
    pack(-fill => "both",
           -expand => 1);

my ($screenx,$screeny) =
($all{mw} -> screenwidth(),
$all{mw} -> screenheight());

$all{photo} = $all{mw} ->
Photo (-width => $screenx,
          -height => $screeny);

$all{canvas} ->
createImage (0,0,
                   -image => $all{photo},
                   -anchor => "nw");

$all{mw} -> FullScreen(1);
$all{mw} -> geometry  ("${screenx}x$screeny");

for (0..$screenx) {

  my $y = $_;
  $y = $screeny / 2 if $y >= $screeny / 2;

  point($_,$y);

  for (0..10000) {}
  $all{mw} -> update;
}
for (0..$screenx) {

  my $y = $_;
  $y = $screeny / 2 if $y >= $screeny / 2;

  my $x = $screenx - $_;

  point($x,$y);

  for (0..10000) {}
  $all{mw} -> update;
}

MainLoop;

sub point {
  my ($x,$y,$color);

  if ($#_ >= 0) {
    $x = shift;
    if ($#_ >= 0) {
      $y = shift;
      if ($#_ >= 0) {
        $color = shift;
      }
      else {
        $color = "#ff0000";
      }
    }
    else {
      $y = 0;
      $color = "#ff0000";
    }
  }
  else {
    $x = 0;
    $y = 0;
    $color = "#ff0000";
  }

  $all{photo} ->
  put ("$color",
        -to => $x,$y);
}

$mw->pointerxy

$c->CanvasBind("<Motion>", ...)