?? gradient.t
字號:
BEGIN { $| = 1; print "1..4\n"; }use SWF qw(Shape Movie Gradient);require 't/config.pl';my $m = new SWF::Movie();$m->setDimension(320, 240);my $s = new SWF::Shape();# first gradient- black to whitemy $g;eval{ $g = new SWF::Gradient();};ok($@);$g->addEntry(0.0, 0, 0, 0);$g->addEntry(1.0, 0xff, 0xff, 0xff);my $f;eval{ $f = $s->addFill($g);};ok($@);$f->scaleTo(0.01);$f->moveTo(160, 120);$s->setRightFill($f);$s->drawLine(320, 0);$s->drawLine(0, 240);$s->drawLine(-320, 0);$s->drawLine(0, -240);$m->add($s);ok();eval{ $m->save('t/gradient.swf');};ok($@);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -