[ActionScript] AS3 绘制虚线

import flash.geom.Point;
import flash.display.MovieClip;
import flash.display.Graphics;

function drawDashed(mc:Sprite,p1:Point,p2:Point,length:Number=5,gap:Number=5):void   
{    
    var max:Number = Point.distance(p1,p2);    
    var l:Number = 0;    
    var p3:Point;    
    var p4:Point;    
    while(l<max)    
    {    
        p3 = Point.interpolate(p2,p1,l/max);    
        l+=length;    
        if(l>max)l=max    
        p4 = Point.interpolate(p2,p1,l/max); 
        mc.graphics.lineStyle(1,0xff00ff,1)
           mc.graphics.moveTo(p3.x,p3.y)    
        mc.graphics.lineTo(p4.x,p4.y)    
        l+=gap;    
    }    
}   
var mc:MovieClip=new MovieClip();
addChild(mc);
drawDashed(mc,new Point(100,100),new Point(500,100),5,5);