Commit | Line | Data |
---|---|---|
88666683 TC |
1 | package Imager::Filter::Flines; |
2 | use strict; | |
3 | use Imager; | |
4 | use vars qw($VERSION @ISA); | |
5 | ||
6 | BEGIN { | |
a5919365 | 7 | $VERSION = "0.03"; |
88666683 | 8 | |
a5919365 TC |
9 | require XSLoader; |
10 | XSLoader::load('Imager::Filter::Flines', $VERSION); | |
88666683 TC |
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 | ||
5715f7c3 | 35 | This is an adaption of the C<flines> dynamically loadable filter |
88666683 TC |
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 | ||
5b480b14 | 44 | Adapted by Tony Cook <tonyc@cpan.org> |
88666683 TC |
45 | |
46 | =head1 SEE ALSO | |
47 | ||
48 | Imager, Imager::Filters. | |
49 | ||
50 | =cut |