NAME

EPEG - Perl extension for EPEG

SYNOPSIS

use EPEG qw(:constants);
my $epg = new EPEG;
$epg->open_file( "test.jpg" );
$epg->resize( 150, 150, MAINTAIN_ASPECT_RATIO );
$epg->save( "test_resized.jpg" );

DESCRIPTION

Perl wrapper to the alarmingly fast jpeg manipulation library "Epeg".

Methods

  • new()

  • open_file( FILENAME )

  • open_data( DATA )

  • get_height()

  • get_width()

  • set_quality( [0-100] )

  • resize( WIDTH, HEIGHT, [Aspect Ratio Mode] )

  • save( FILENAME )

AUTHOR

Michael Curtis <mcurtis@yahoo-inc.com>

SEE ALSO

http://gatekeeper.dec.com/pub/BSD/NetBSD/NetBSD-current/pkgsrc/graphics/epeg/README.html