VB 源码VC 源码ASP源码JSP源码PHP源码CGI源码FLASH源码素材模板C 源程序常用软件文档中心其他程序

软件使用

网站服务
邮件服务
网络应用
软件使用

本类阅读TOP10

·提高BT下载速度全攻略之优化配置BitComet
·注册码大全
·恢复硬盘数据
·Real Player10使用技巧
·如何抢救损坏的ZIP文件?
·教你如何修改文件日期
·四招打造Excel函数高手
·光盘超容量刻录的原理和操作方法
·让FlashGet帮你修复VCD光盘
·光盘刻录知识全集

精品推荐
Flash 3d效果实例--鼠标3D感应(上)

作者:flashsj 来源:太平洋电脑网 加入时间:2002-12-15 月光软件站

    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的时间轴窗口



相关文章
  • 懒人奇招:给鼠标右键添最快绿色通道
  • 透明鼠标跟随
  • Flash 3d效果实例--鼠标3D感应(下)
  • 相关软件

  • 黑鼠标源程序  
  • 当你的鼠标在动时按纽也在动让你很难捕捉到  
  • 这个类库是对鼠标敏感的按纽  
  • 改变鼠标形状的例子  
  • 支持滚动文字图象,并可用鼠标操作方向。  
  • 字符串处理,鼠标开发,复数处理C++类库  
  • 鼠标功能开发 C 语言源程序  
  • 鼠标中断高级开发功能  
  • MICE鼠标驱动程序开发C语言源程序库  
  • C语言开发使用键盘和鼠标演秦MIDI  



  • 月光软件程序下载编程文档电脑教程网站设计网址导航网络文学游戏天地幽默笑话生活休闲写作范文安妮宝贝
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有