两点间随机折线效果

[img]/Files/BeyondPic/2006-9/24/rar.gif[/img]
[url=http://www2.flash8.net/UploadTeach/2006/03/15/2006315115529898.rar]Flash.rar[/url]
映象中以前还是菜鸟时看的一个闪电特效的模式,因为没有看过源文件,一直没去琢磨算法,今天数学课复习三角函数的时候突然想到了这个思路,于是就操起笔在本子上写了一下面的AS.
回家打开Flash, 测试通过.
源文件中有图解.
 * 折线效果
 *
 * Code by 木頭(13tds.com)
 *
 * Flash 8.0 ActionScript 2.0
 *
***/
 Stage.scaleMode = "noScale";
 Stage.showMenu = false;
 
 import flash.geom.Point; //注册Point類,如果不用此类可以使用其它方式代替点的位置
 
var Flash: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
本文转自：http://www.5uflash.com/flashjiaocheng/Flashaschengxu/595.html