test07.pl

来自「Ming is a library for generating Macrome」· PL 代码 · 共 8 行

#!/usr/bin/perl -w
use SWF qw(:ALL);
use SWF::Constants qw(:Text :Button :DisplayItem :Fill);

$m = SWF::Movie::newSWFMovieWithVersion(8);
$m->setBackground(0, 0, 0);
$m->save("test07.swf");