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(8); 13 14SWF::setScale(1.0); 15#Unknown block type 69 16 17# SWF_DEFINESHAPE3 18 19# Shape 1 (TYPE=3, RECT=-10,2010 -10,2010) 20$character1 = new SWF::Shape(); 21#1 fillstyle(s) 22$character1_f0_red = 0xff; 23$character1_f0_green = 0x80; 24$character1_f0_blue = 0x00; 25$character1_f0_alpha = 0xff; 26$character1_f0 = $character1->addSolidFill($character1_f0_red, $character1_f0_green, $character1_f0_blue, $character1_f0_alpha ); #SWFFILL_SOLID 27#1 linestyles(s) 28$character1_l0_width = 20; 29$character1_l0_red = 0x00; 30$character1_l0_green = 0x00; 31$character1_l0_blue = 0x00; 32$character1_l0_alpha = 0xff; 33# StateLineStyle: 1 34$character1->setLine($character1_l0_width, $character1_l0_red, $character1_l0_green, $character1_l0_blue, $character1_l0_alpha); 35$character1->setRightFill($character1_f0); 36$character1->drawLine(2000, 0); 37$character1->drawLine(0, 2000); 38$character1->drawLine(-2000, 0); 39$character1->drawLine(0, -2000); 40 41# SWF_PLACEOBJECT2 42$i1 = $m->add($character1); 43$i1->setDepth(1); 44# PlaceFlagHasMatrix 45 46# SWF_SHOWFRAME 47$m->nextFrame(); # end of frame 1 48 49# SWF_END 50 51$m->save("test01.swf"); 52