Perl GD/Pixel manipulation - Revision history

Heth at 10:59, 23 January 2011

2011-01-23T10:59:40Z

Heth at 10:58, 23 January 2011

2011-01-23T10:58:57Z

Heth at 09:28, 23 January 2011

2011-01-23T09:28:02Z

Heth at 09:19, 23 January 2011

2011-01-23T09:19:31Z

Heth: New page: Playing with pixels. The script below makes this png picture. Greyscale from 0 to 255 #!/usr/bin/perl use GD; use GD::Image; # crea...

2011-01-23T09:19:09Z

New page: Playing with pixels. The script below makes this png picture. thumb|400px|Greyscale from 0 to 255 <source lang=perl> #!/usr/bin/perl use GD; use GD::Image; # crea...

New page

Playing with pixels. The script below makes this png picture.
[[Image:Heth.png|thumb|400px|Greyscale from 0 to 255]]
<source lang=perl>
#!/usr/bin/perl
use GD;
use GD::Image;

# create a new image
$im = new GD::Image(640,480);

#Grey scale
my @grey;
for (my $i = 0; $i <=255; $i++) {
$grey[$i] = $im->colorAllocate($i,$i,$i);
}
print "Allocated ", $#grey+1, " colors\n";

for( my $i=0; $i<=640-1 ;$i++ ) {
for( my $j=0; $j<=480-1;$j++ ) {
$im->setPixel($i,$j,@grey[ ($i+$j) % 256 ]);
#$im->setPixel($i,$j, $c[($i+$j)%4]);
}
}
print "Der er ialt ", $im->colorsTotal(), " farver\n";

# Convert the image to PNG and save it.
open FILE,'> C:\temp\heth.png';
binmode FILE;
print FILE $im->png;
</source>
{{source cli}}
[[Category:Perl]]

@@ Line 1: / Line 1: @@
 Playing with pixels. The script below makes this png picture.
-[[Image:Heth.png|thumb|left|400px|Greyscale from 0 to 255]]
+{|
-[[Image:Heth2.png|thumb|400px|Using the equation @grey[ (sin($i/32)*$j) % 256 ] ]]
+|[[Image:Heth.png|thumb|left|300px|Greyscale from 0 to 255]]
 <source lang=perl>
 #!/usr/bin/perl

@@ Line 31: / Line 31: @@
      print FILE $im->png;
 </source>
 [[Category:Perl]]