1 /* ==================================================================== 2 * Copyright (c) 2000-2001 by Soheil Seyfaie. 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 20 MODULE = SWF::Gradient PACKAGE = SWF::Gradient PREFIX = SWFGradient_ 21 PROTOTYPES: ENABLE 22 23 24 SWF::Gradient 25 SWFGradient_new(package="SWF::Gradient") 26 char *package 27 CODE: 28 RETVAL = newSWFGradient(); 29 ST(0) = sv_newmortal(); 30 sv_setref_pv(ST(0), package, (void*)RETVAL); 31 32 33 34 void 35 SWFGradient_addEntry(gradient, ratio, r, g, b, a=0xff) 36 SWF::Gradient gradient 37 float ratio 38 byte r 39 byte g 40 byte b 41 byte a 42 43 void 44 SWFGradient_setSpreadMode(gradient, mode) 45 SWF::Gradient gradient 46 int mode 47 48 void 49 SWFGradient_setInterpolationMode(gradient, mode) 50 SWF::Gradient gradient 51 int mode 52 53 void 54 SWFGradient_setFocalPoint(gradient, focalPoint) 55 SWF::Gradient gradient 56 float focalPoint 57 58 void 59 destroySWFGradient(gradient) 60 SWF::Gradient gradient 61 ALIAS: 62 SWF::Gradient::DESTROY = 1 63 CODE: 64 S_DEBUG(2, fprintf(stderr, "Gradient DESTROY CALLED\n")); 65 destroySWFGradient(gradient); 66 67