initial commit
[noise] / sp
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 use GD;
7
8 GD::Image->trueColor(1);
9
10 my $png = GD::Image->new(256,256);
11
12 for my $x (0..255) {
13         for my $y (0..255) {
14                 my $s = <>;
15                 chomp($s);
16                 my $dx = $x/255;
17                 my $dy = $y/255;
18                 $s = ($s + 1.0) / 2.0;
19                 $png->setPixel($x, $y, $png->colorResolve($s *180, $s*130, $s*80));
20         }
21 }
22
23 binmode STDOUT;
24 print $png->png;