快速业务通道

两点间随机折线效果

作者 佚名技术 来源 服务器技术 浏览 发布时间 2012-07-08

Flash.rar
/UploadTeach/2006/03/15/2006315115543202.swf
映象中以前还是菜鸟时看的一个闪电特效的模式,因为没有看过源文件,一直没去琢磨算法,今天数学课复习三角函数的时候突然想到了这个思路,于是就操起笔在本子上写了一下面的AS.
回家打开Flash, 测试通过.
源文件中有图解. *折线效果
*
*Codeby木頭(13tds.com)
*
*Flash8.0ActionScript2.0
*
***/
Stage.scaleMode="noScale";
Stage.showMenu=false;

importflash.geom.Point;//注册Point類,如果不用此类可以使用其它方式代替点的位置

varFlash:Function=function(A:Point,B:Point,Q:Number,P:Number){

_root.clear();//清屏
_root.moveTo(A.x,A.y);//移動到A點
_root.lineStyle(1);//初始化綫條樣式

len=Math.sqrt(Math.pow(B.x-A.x,2)+Math.pow(B.y-A.y,2));//長度
qlen=len/Q;//平均每段長度
angle=Math.atan2(B.y-A.y,B.x-A.x);//弧度
deg=angle*180/Math.PI;//角度

for(i=1;i<Q;i++){
temp={x:A.x+qlen*Math.cos(angle)*i,y:A.y+qlen*Math.sin(angle)*i};//尋找第i點位置
tempangle=(deg-90)*Math.PI/180;//垂綫的角度
templen=P-random(P*2);//幅度(長度)P~-P
lineTo(temp.x+Math.cos(tempangle)*templen,temp.y+Math.sin(tempangle)*templen);//移動到temp點
}

_root.lineTo(B.x,B.y);//到B點

};
varA:Point=newPoint(0,0);//初始A點
varB:Point=newPoint(400,300);//初始B點
varC:Number=2;//初始段數

setInterval(Flash,50,A,B,10,25) 关键词:折线

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号