1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4#use SWF::Constants qw(:Text :Button :DisplayItem :Fill);
5
6$m = SWF::Movie::newSWFMovieWithVersion(8);
7
8$s = new SWF::Shape();
9
10$f = $s->addSolidFill(255,0,0,255);
11$s->setRightFill($f);
12
13SWF::setCubicThreshold(10);
14
15$s->movePenTo(167.000000, 69.875040);
16$s->drawCubicTo(198.796531,69.875040,224.624960,95.703469,224.624960,127.500000);
17$s->drawCubicTo(224.624960,159.296531,198.796531,185.124960,167.000000,185.124960);
18$s->drawCubicTo(135.203469,185.124960,109.375040,159.296531,109.375040,127.500000);
19$s->drawCubicTo(109.375040,95.703469,135.203469,69.875040,167.000000,69.875040);
20
21$m->add($s);
22
23$m->save("test02.swf");
24