/ 
Image-Simple-Gradient-0.01
River stage zero No dependents
/ Image::Simple::Gradient

NAME

Image::Simple::Gradient - The great new Image::Simple::Gradient!

VERSION

Version 0.01

SYNOPSIS

Create simple gradient images with this module. If you are looking for a way to render a gradient image going from one color to another color, this is the module for it. Its useful when your designer needs an easy simple way to generate gradient colors for a webpage or application software.

direction can be: up, down, left, right. height and width: in pixels. color_begin and color_end are rgb hex values with 6 digits. ex: FF0000

use Image::Simple::Gradient;

my $image = Image::Simple::Gradient->new({
    color_begin => 'FF0000', 
    color_end => '0000FF', 
    direction => 'up', 
    height => 100,
    width => 200,
    });
print $image->render_gradient();

EXPORT

A list of functions that can be exported. You can delete this section if you don't export anything, such as for a purely object-oriented module.

SUBROUTINES/METHODS

has [qw( width height )] => ( is => 'ro', isa => 'Int', required => 1, ); has [qw( color_begin color_end )] => ( is => 'ro', isa => 'Rgbhex', required => 1, ); has direction => ( is => 'ro', isa => 'Direction', required => 1, );

sub BUILD { my ( $self, $params ) = @_; }

sub mkramp { my ( $self, $im, $steps, $r0, $g0, $b0, $r1, $g1, $b1 ) = @_; my $dr = ( $r1 - $r0 ) / $steps; my $dg = ( $g1 - $g0 ) / $steps; my $db = ( $b1 - $b0 ) / $steps; my @ramp = ();

my $r = $r0;
my $g = $g0;
my $b = $b0;
for ( my $i = 0 ; $i < $steps ; $i++ ) {
    @ramp = ( @ramp, $im->colorAllocate( $r, $g, $b ) );
    $r += $dr;
    $g += $dg;
    $b += $db;
}
return @ramp;
}

sub render_gradient { my ( $self ) = @_; my $width = $self->width; my $height = $self->height;

my $from = $self->color_begin;
my $to   = $self->color_end;
my $dir  = $self->direction;

$from =~ s/(..)(..)(..)/$1\|$2\|$3/;
my ( $from_r, $from_g, $from_b ) = split( /\|/, $from );

$to =~ s/(..)(..)(..)/$1\|$2\|$3/;
my ( $to_r, $to_g, $to_b ) = split( /\|/, $to );

$from_r = hex($from_r);
$from_g = hex($from_g);
$from_b = hex($from_b);
$to_r   = hex($to_r);
$to_g   = hex($to_g);
$to_b   = hex($to_b);

my $steps = 1;
if ( $dir =~ m/down/i )  { $steps = $height; }
if ( $dir =~ m/up/i )    { $steps = $height; }
if ( $dir =~ m/left/i )  { $steps = $width; }
if ( $dir =~ m/right/i ) { $steps = $width; }

# create a new image
GD::Image->trueColor(1);
my $im = new GD::Image( $width, $height );

my @ramp =
  $self->mkramp( $im, $steps, $from_r, $from_g, $from_b, $to_r, $to_g,
    $to_b );

if ( $dir eq "down" ) {
    for ( my $i = 0 ; $i < $height ; $i++ ) {
        $im->line( 0, $i, $width, $i, $ramp[$i] );
    }
}
elsif ( $dir eq "up" ) {
    for ( my $i = 0 ; $i < $height ; $i++ ) {
        $im->line( 0, $i, $width, $i, $ramp[ $height - $i - 1 ] );
    }
}
elsif ( $dir eq "left" ) {
    for ( my $i = 0 ; $i < $width ; $i++ ) {
        $im->line( $i, 0, $i, $height, $ramp[$i] );
    }
}
elsif ( $dir eq "right" ) {
    for ( my $i = 0 ; $i < $width ; $i++ ) {
        $im->line( $i, 0, $i, $height, $ramp[ $width - $i - 1 ] );
    }
}

return $im->jpeg(100);
}

AUTHOR

Hernan Lopes, <hernanlopes at gmail.com>

BUGS

Please report any bugs or feature requests to bug-image-simple-gradient at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Image-Simple-Gradient. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Image::Simple::Gradient

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2010 Hernan Lopes.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.