Flash AS实例教程:制作铅笔动画
2007-08-22 11:09:01 来源:WEB开发网用一段简单的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;
}
}
};
- ››asp.net页面弄成伪静态页面
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
- ››ASP.NET中FileBytes写成文件并存档
更多精彩
赞助商链接