Flash AS实例教程：制作铅笔动画

　　用一段简单的AS代码就可以实现简单的铅笔动画效果。

　　直接复制代码，导出就可以看到效果了：

_root.createEmptyMovieClip("pen", 1);
pen.lineStyle(2, 0x000000);
pen._x = 200;
pen._y = 200;
pen.beginFill(0x444444, 100);
pen.lineTo(30, -10);
pen.lineTo(200, -10);
pen.lineTo(200, 10);
pen.lineTo(30, 10);
pen.lineTo(30, -10);
pen.beginFill(0x333311, 100);
endFill(pen);
pen.beginFill(0xf9f999, 100);
pen.lineTo(0, 0);
pen.lineTo(30, 10);
pen.lineTo(30, -10);
endFill(pen);
pen._rotation = -50;
n = 0;
r = 100;
a = 1;
k = 10;
tt = 0;
lineStyle(2);
moveTo(Math.cos(0*Math.PI/180)*r+200, pen._y);
ss = setInterval(function () {
a++;
if (a>3) {
　a = 1;
}
if (a == 1) {
　lineStyle(2, 0xff0000);
}
if (a == 2) {
　lineStyle(2, 0x00ff00);
}
if (a == 3) {
　lineStyle(2, 0x0000ff);
}
n += 30
r -=0.3
if (n<20000) {
　pen._x = Math.cos(n*Math.PI/180)*r+200;
　pen._y = Math.sin(n*Math.PI/180)*r+200;
　lineTo(pen._x, pen._y);
}
updateAfterEvent();
if (n>=20000) {
　aa = setInterval(function () {
　 updateAfterEvent();
　 tt++;
　 if (tt>5000) {
　　clearInterval(aa);
　　clearInterval(ss);
　 }
　 pen._rotation = Math.sin(n*Math.PI/180)*5+90;
　}, 5);
　_root.createTextField("t", 2, 300, 350, 150, 20);
　t.text = "By FLASH8菜鸟 kingofkofs";
　pen._x = 400;
　pen._y = 120;
}
}, 5);
sp = 0;
f = 20;
this.onEnterFrame = function() {
if (tt>5000) {
　pen._y -= sp;
　sp += 2;
}
if (sp>f) {
　sp = -f;
　if (f>=4) {
　 f -= 4;
　}
}
};