Help for this page

Select Code to Download


  1. or download this
    my $foo = Obj->new;
    for (qw( create init add )) {
      $foo->$_();  # note -- $foo->$_ will not work, ()'s needed
    }
    
  2. or download this
    my $method = 'Quantize';
    my $parameters = qw (colorspace=>'gray' compression=>'none');
    my $image = Image::Magick->new;
    $image->Read('/share/colortransition.jpg');
    $image->${method}($parameters);
    $image->write(filename=>'/share/graytransition.jpg');