The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
BEATNIK / Image-Filter-0.07 / Twirl / Twirl.xs 
#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include "twirl.h"

MODULE = Image::Filter::Twirl PACKAGE = Image::Filter::Twirl

PROTOTYPES: DISABLE

gdImagePtr 
twirl (imageptr)
          gdImagePtr  imageptr