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 */ 9 10 11 #include "EXTERN.h" 12 #include "perl.h" 13 #include "XSUB.h" 14 15 #include "SWF.h" 16 #include "perl_swf.h" 17 18 19 MODULE = SWF::SoundInstance PACKAGE = SWF::SoundInstance PREFIX = SWFSoundInstance_ 20 PROTOTYPES: ENABLE 21 22 23 void 24 destroySWFSoundInstance(inst) 25 SWF::SoundInstance inst 26 CODE: 27 S_DEBUG(2, fprintf(stderr, "SoundInstance DESTROY CALLED\n")); 28 destroySWFSoundInstance(inst); 29 30 31 void 32 SWFSoundInstance_noMultiple(inst) 33 SWF::SoundInstance inst 34 CODE: 35 SWFSoundInstance_setNoMultiple(inst); 36 37 void 38 SWFSoundInstance_loopInPoint(inst, point) 39 SWF::SoundInstance inst 40 int point 41 CODE: 42 SWFSoundInstance_setLoopInPoint(inst, point); 43 44 void 45 SWFSoundInstance_loopOutPoint(inst, point) 46 SWF::SoundInstance inst 47 int point 48 CODE: 49 SWFSoundInstance_setLoopOutPoint(inst, point); 50 51 void 52 SWFSoundInstance_loopCount(inst, count) 53 SWF::SoundInstance inst 54 int count 55 CODE: 56 SWFSoundInstance_setLoopCount(inst, count); 57 58 void 59 SWFSoundInstance_addEnvelope(inst, mark44, left, right) 60 SWF::SoundInstance inst 61 unsigned int mark44 62 short left 63 short right 64 CODE: 65 SWFSoundInstance_addEnvelope(inst, mark44, left, right); 66