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  * ====================================================================
6  *
7  * $Author$
8  * $Id$
9  */
10 
11 
12 #include "EXTERN.h"
13 #include "perl.h"
14 #include "XSUB.h"
15 
16 #include "SWF.h"
17 #include "perl_swf.h"
18 
19 MODULE = SWF::Shadow	PACKAGE = SWF::Shadow		PREFIX = SWFShadow_
20 PROTOTYPES: ENABLE
21 
22 SWF::Shadow
23 SWFShadow_new(package="SWF::Shadow", angle, distance, strength)
24 	char *package
25 	float angle
26 	float distance
27 	float strength
28 	CODE:
29         RETVAL = newSWFShadow(angle, distance, strength);
30         ST(0) = sv_newmortal();
31         sv_setref_pv(ST(0), package, (void*)RETVAL);
32 
33 void
34 SWFShadow_DESTROY(shadow)
35 	SWF::Shadow shadow
36 	CODE:
37 	destroySWFShadow(shadow);
38         S_DEBUG(2, fprintf(stderr, "Shadow DESTROY CALLED\n"));
39