Munching squares: Difference between revisions
m
→{{header|Perl}}: future-proof for 5.36
TechAscent (talk | contribs) No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36) |
||
Line 1,257:
<syntaxhighlight lang="perl">use GD;
my $img =
for my $y (0..255) {
for my $x (0..255) {
my $color = $img->colorAllocate( abs(255 - $x - $y), (255-$x) ^ $y , $x ^ (255-$y));
$img->setPixel($x, $y, $color);
| |||