Farbewerte der Pixel auslesen - #72791 (Allgemeines zu Perl)

topeg

2006-12-28 22:51

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Und mal ein Beispiel mit GTK Für rein X11-basierte Oberflächen könnte man sicher auch auch X11::Protocol gehen. Wie es mit TK oder WX ginge weiß ich so nicht.

Code (perl): (dl )

#!/usr/bin/perl
use Gtk2 '-init';

my $posx=100;
my $posy=100;

my $pixbuf= Gtk2::Gdk::Pixbuf->new('rgb',0,8,1,1);

$pixbuf->get_from_drawable(Gtk2::Gdk::Screen->get_default()->get_root_window(),
               
            undef, $posx, $posy, 0, 0, 1, 1);

my ($r,$g,$b)=unpack('C*', $pixbuf->get_pixels());

print "($r,$g,$b)\n";

\n\n