samples/transform.pl

   1 #perl -w
   2 use Imager;
   3
   4 # generate a colorful spiral
   5 my $newimg = Imager::transform2({
   6                                  width => 160, height=>160,
   7                                  expr => <<EOS
   8 dist = distance(x, y, w/2, h/2);
   9 angle = atan2(y-h/2, x-w/2);
  10 angle2 = (dist / 10 + angle) % ( 2 * pi );
  11 return hsv(angle*180/pi, 1, (sin(angle2)+1)/2);
  12 EOS
  13                                 });
  14 $newimg->write(file=>'transform1.ppm');