首页下载分类最新更新汉化补丁下载排行国产软件国外软件注册破解资讯中心游戏娱乐
78软件站 - 首页
文章搜索: 分类 关键字
您的位置:首页软件教学图形图像 → Flash 3d效果实例--鼠标3D感应(上)
Flash 3d效果实例--鼠标3D感应(上)
日期:2002-12-15 3:52:06 人气:829     [ ]
    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的时间轴窗口
出处:本站原创 作者:本站原创
评论人 评论内容摘要(共 0 条,查看完整内容) 得分 0 发表时间
 热点文章
·Windows XP中快速转换FAT32至NTFS
·Windows 98全方位优化
·直接用WIN2000自带的NAT的实现端口映射的方法
·Ghost 2003成功克隆Windows XP
·全面提速Windows XP
·Windows XP优化技巧
·windows XP 系统服务“关闭”详细列表,释放N多内..
·Windows XP关机技巧二则
·Adobe Photoshop 鲜为人知的75个技巧[酷]
·给Windows XP减减肥
 推荐文章
·用好你的Windows安全模式
·想慢都不行:WinXP急速启动最新技巧
·各种ADSL路由设置
·解决 Windows XP_SP2 验证码无法显示的补丁!
·Windows Server 2003在线更新的补丁!
78软件站 版权所有 Copyright© 2003-2008 Www.78soft.COM, All Rights Reserved. Powered By 78软件站 鄂ICP备05000648号