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
　　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)