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