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: | Line 724: | ||
my $fh = fopen($file, "rb") or die; |
my $fh = fopen($file, "rb") or die; |
||
my $image = gdImageCreateFromPng($fh); |
my $image = gdImageCreateFromPng($fh); |
||
my $pixel = gdImageGetPixel($ |
my $pixel = gdImageGetPixel($image, 0, 0); |
||
my ($red,$green,$blue) = |
my ($red,$green,$blue) = |
||
gdImageRed( $image, $pixel), |
gdImageRed( $image, $pixel), |
||
| Line 738: | Line 738: | ||
Alternately, a version that should work in any X11 environment. Needs X11::xdo and MagickWand installed. |
Alternately, a version that should work in any X11 environment. Needs X11::xdo and MagickWand installed. |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|2019.11}} |
|||
<lang perl6>#!/usr/bin/env perl6 |
<lang perl6>#!/usr/bin/env perl6 |
||