Color of a screen pixel: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add an alternate that should work in any X11 environment) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Remove bogus second header, Fix typo in first version) |
||
Line 724:
my $fh = fopen($file, "rb") or die;
my $image = gdImageCreateFromPng($fh);
my $pixel = gdImageGetPixel($
my ($red,$green,$blue) =
gdImageRed( $image, $pixel),
Line 738:
Alternately, a version that should work in any X11 environment. Needs X11::xdo and MagickWand installed.
<lang perl6>#!/usr/bin/env perl6
|