1
/* ====================================================================
2
* Copyright (c) 2008 by Klaus Rechert. All rights reserved.
3
* This program is free software; you can redistribute it and/or modify
4
* it under the same terms as Perl itself.
5
* ====================================================================
8
* $Id: Blur.xs,v 1.2 2008/02/27 17:07:58 krechert Exp $
19
MODULE = SWF::Blur PACKAGE = SWF::Blur PREFIX = SWFBlur_
23
SWFBlur_new(package="SWF::Blur", blurX, blurY, passes)
29
RETVAL = newSWFBlur(blurX, blurY, passes);
30
ST(0) = sv_newmortal();
31
sv_setref_pv(ST(0), package, (void*)RETVAL);
38
S_DEBUG(2, fprintf(stderr, "Blur DESTROY CALLED\n"));