Ayuda con setInterval

Soy nuevo en esto de flash, y ya tengo un problema con action script 2.0

Hice una clase para mis métodos, donde puse un método para dibujar un cuadrado, pero para que se viera el progreso del dibujo ese método lo llame en el root principal mediante el setInterval así

import Metodos;
var Obj:Metodos;
Obj = new Metodos;
intervalo=setInterval(Obj.Dibujo,0,this._root,0x000000,2.5,100)

y le pasé parámetros:

1.Es le método
2.El tiempo en el que se realiza
3. bueno, el root principal
4. color
5. grueso
6 alpha

el método Dibujo es así:

static var Y:Number=0;
static var X:Number=70;
static var Yr:Number=300;
static var Xr:Number=500;
function Dibujo(root,color,grueso,alfa){
root.lineStyle(grueso,color,alfa);
root.moveTo(70,0);
if (Y<=300){
Y++;
root.lineTo(70,Y);
}else{
if (X<=500){
root.moveTo(70,300);
X++;
root.lineTo(X,300);
}else{
if(Yr>1){
root.moveTo(500,300);
Yr--;
root.lineTo(500,Yr);
}else{
if (Xr>70){
root.moveTo(500,0);
Xr--;
root.lineTo(Xr,0);
trace(Xr);
}else{
clearInterval(root.intervalo);
clearInterval(root.intervalo2);
}
}
}

}
}

Y todo parace que va bien, sólo que al dibujar las últimas dos lineas el tiempo de dibujo se hace sumamente lento y no sé que hacer, ya le bajé el tiempo hasta cero y hace lo mismo.

Agradecería todo lo que me pudiesen sugerir.

Código :

En esta condición:

if(Yr>1){
root.moveTo(500,300);
Yr--;
root.lineTo(500,Yr);
}

Para que Yr llegue a 0 se debe ejecutar 300 veces y el siguiente bloque, Xr de 500 a 70, 430 veces, no me extraña que vaya lento
A lo mejor una combinación entre Tween de un puntito negro y un lineTo a ese puntito sería mas fácil, el amigo Ortiz usaba esa técnica todo el tiempo para ilustrar sus delirios matemáticos

Jorge