pd.if.org Git - noise/blob - 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;