Flines/Flines.pm

   1 package Imager::Filter::Flines;
   2 use strict;
   3 use Imager;
   4 use vars qw($VERSION @ISA);
   5
   6 BEGIN {
   7   $VERSION = "0.03";
   8
   9   require XSLoader;
  10   XSLoader::load('Imager::Filter::Flines', $VERSION);
  11 }
  12
  13 Imager->register_filter(type=>'flines',
  14                         callsub => sub { my %hsh = @_; flines($hsh{image}) },
  15                         defaults => {},
  16                         callseq => [ 'image' ] );
  17
  18 1;
  19
  20 __END__
  21
  22 =head1 NAME
  23
  24 Imager::Filter::Flines - dim alternate lines to emulate a video display
  25
  26 =head1 SYNOPSIS
  27
  28   use Imager;
  29   use Imager::Filter::Flines;
  30
  31   $img->filter(type=>'flines');
  32
  33 =head1 DESCRIPTION
  34
  35 This is an adaption of the C<flines> dynamically loadable filter
  36 provided in dynfilt/ in previous releases of Imager.
  37
  38 This filter has no parameters.
  39
  40 =head1 AUTHOR
  41
  42 Original by Arnar M. Hrafnkelsson.
  43
  44 Adapted by Tony Cook <tonyc@cpan.org>
  45
  46 =head1 SEE ALSO
  47
  48 Imager, Imager::Filters.
  49
  50 =cut