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