1#!/usr/bin/perl -w 2# Generated by swftoperl converter included with ming. Have fun. 3 4# Change this to your needs. If you installed perl-ming global you don't need this. 5#use lib("/home/peter/mystuff/lib/site_perl"); 6 7# We import all because our converter is not so clever to select only needed. ;-) 8use SWF qw(:ALL); 9# Just copy from a sample, needed to use Constants like SWFFILL_RADIAL_GRADIENT 10use SWF::Constants qw(:Text :Button :DisplayItem :Fill); 11 12$m = SWF::Movie::newSWFMovieWithVersion(9); 13 14SWF::setScale(1.0); 15$m->setFrames(10); 16#Unknown block type 69 17 18# SWF_SHOWFRAME 19$m->nextFrame(); # end of frame 1 20 21# SWF_SHOWFRAME 22$m->nextFrame(); # end of frame 2 23 24# SWF_SHOWFRAME 25$m->nextFrame(); # end of frame 3 26 27# SWF_SHOWFRAME 28$m->nextFrame(); # end of frame 4 29 30# SWF_SHOWFRAME 31$m->nextFrame(); # end of frame 5 32 33# SWF_SHOWFRAME 34$m->nextFrame(); # end of frame 6 35 36# SWF_SHOWFRAME 37$m->nextFrame(); # end of frame 7 38 39# SWF_SHOWFRAME 40$m->nextFrame(); # end of frame 8 41 42# SWF_SHOWFRAME 43$m->nextFrame(); # end of frame 9 44 45# SWF_SHOWFRAME 46$m->nextFrame(); # end of frame 10 47 48# SWF_DEFINESCENEANDFRAMEDATA 49$m->defineScene(0, "test0"); 50$m->defineScene(5, "test1"); 51 52# SWF_END 53 54$m->save("test01.swf"); 55