1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5use SWF::Constants qw(:Filter :Text :Button :DisplayItem :Fill); 6 7$m = SWF::Movie::newSWFMovieWithVersion(7); 8 9$s = new SWF::Shape(); 10$s->setLine(4, 25, 0, 0, 128); 11$s->movePenTo(5, 5); 12$s->drawLineTo(0, 10); 13 14$bl = new SWF::Blur(5, 5, 2); 15$f = SWF::Filter::newBlurFilter($bl); 16 17$bu = new SWF::Button(); 18$bu->addCharacter($s, SWFBUTTON_HIT | SWFBUTTON_DOWN | SWFBUTTON_OVER | SWFBUTTON_UP); 19 20$item = $m->add($bu); 21$item->addFilter($f); 22 23$m->save("test01.swf"); 24