必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:必威注册 -> 教程中心 -> 网页设计 -> Flash -> 教程内容 退出登录 用户管理
栏目导航
· DW教程· HTML/CSS
· LiveMotion· Firework
· FrontPage· Golive
· Flash· 经验技巧
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· 让Word也来播放Flas...
· [图文] Word文件轻松变成Fl...
· [图文] 轻松将Word文档快速...
· [图文] 摄人心魄的效果 让F...
· [图文] 把Word文件转换成Fl...
· 在PowerPoint中插入...
· PowerPoint中插入Fl...
· PowerPoint插入Flas...
· 在PPT中实现Flash播...
· 避免Flash引发幻灯片...

Flash 3d效果实例--鼠标3D感应 一
作者:必威注册 来源:ASP教程 发布时间:2004-10-28 21:15:35 发布人:siforgern

减小字体 增大字体


Flash在3D应用领域非常广阔,使用必威注册Flash可以很轻松的做出一些精彩奇妙的3D特效,而且许多效果可以响应鼠标的动作,此实例就是一个鼠标3D感应的效果,通过移动鼠标,可以影响影片中的3D小球,最终效果如图1所示:


图1 最终效果1.启动必威注册Flash,新建一个影片,设置影片的舞台大小为250px*250px(单位为象素),设置影片的背景颜色为黑色. 2.新建一个影片剪辑元件,命名为Ball,进入元件的编辑区后,使用椭圆工具绘制一个正圆,然后打开混色器面板,在面板中设置填充类型为放射渐变,分别设置色带下左右两个色块的颜色,如图2所示:


图2 设置填充色其中左边色块的RGB颜色代码为(103,152,116),右边色块的RGB颜色代码为(0,0,0),小球填充后的效果如图3所示:


图3 填充颜色后的小球3.新建一个影片剪辑元件,命名为Point,进入元件的编辑区后,从库中将元件Ball拖到编辑区中,然后在属性面板中给其设置实例名为bLur,如图4所示;


图4 给小球设置实例名4.还是新建一个影片剪辑元件,命名为Balls,进入元件的编辑区后,将影片默认的图层重命名为Point,然后将元件Point拖到编辑区中,同时在属性面板中设置其实例名为Point,如图5所示;


图5 设置实例名Point在上面新建一个图层Actions,用来设置控制影片的Action动作脚本. 给第1帧添加如下Action: x1 = "0"
y1 = "0";
z1 = "50";
x2 = "0";
y2 = "0";
z2 = "-50";
x3 = ".1";
y3 = ".1";
z3 = ".1";
x4 = "0";
y4 = "0";
z4 = "-100";
x5 = "-50";
y5 = "-50";
z5 = "50";
x6 = "50";
y6 = "-50";
z6 = "50";
x7 = "50";
y7 = "50";
z7 = "50";
x8 = "-50";
y8 = "50";
z8 = "50";
d = "900";
z0 = "1000";
i = "1";
while (Number(i)<9) {
duplicateMovieClip("point", "point" add i, 20-(i*2));
set("zsort" add i, i);
i = Number(i)+1;
} 给第2帧添加如下Action: yangle = int(/:yangle);
xangle = int(/:xangle);
i = "1";
while (Number(i)<9) {
cosYangle = eval ( "/:cos" add yangle );
sinYangle = eval ( "/:sin" add yangle );
cosXangle = eval ( "/:cos" add xangle );
sinXangle = eval ( "/:sin" add xangle );
zpos = eval("z" add i);
xpos = eval("x" add i);
ypos = eval("y" add i);
tempz = ((eval("z" add i) ) * cosYangle ) - ( eval ("x" add i) * sinYangle );
set("x" add i, Number((zpos*sinYangle))+Number((xpos*cosYangle)));
set("z" add i, Number(((ypos)*sinXangle))+Number((tempz*cosXangle)));
set("y" add i, ((ypos)*cosXangle)-(tempz*sinXangle));
scalar = 1/ ( ((eval ("z" add i))/d)+1 );
set("xp" add i, ((eval("x" add i) * scalar) + 00));
set("yp" add i, ((eval("y" add i) * scalar) + 00));
set("unseen" add i, true);
i = Number(i)+1;
}
n = "2";
while ((Number(n)<9)) {
i = 8;
dummy = "nada";
while (Number(i)>=Number(n)) {
if (eval ("z" add eval("zsort" add (i-1))) > eval ("z" add eval("zsort" add i))) {
dummy = eval("zsort" add (i-1));
set("zsort" add (i-1), eval("zsort" add i));
set("zsort" add i, dummy);
}
i = i-1;
}
if (dummy eq "nada") {
n = 9;
}
n = Number(n)+1;
}
i = "1";
while (Number(i)<9) {
/:blur = int (15 - (eval( "z" add eval ("zsort" add i) )/5));
tellTarget ("point" add i add "/blur") {
gotoAndStop(/:blur);
}
setProperty("point" add i, _xscale, 100 - ((eval( "z" add eval ("zsort" add i))) /5));
setProperty("point" add i, _yscale, 100 - ((eval( "z" add eval ("zsort" add i))) /5));
setProperty("point" add i, _x, eval( "xp" add eval ("zsort" add i) ));
setProperty("point" add i, _y, eval( "yp" add eval ("zsort" add i) ));
i = Number(i)+1;
} 给第3帧添加如下Action: gotoAndPlay(2); 最后时间轴如图6所示:


图6 元件Balls的时间轴窗口

[] [返回上一页] [打 印] [收 藏]
∷相关教程评论∷    (评论内容只代表网友观点,与必威注册立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号