// forked from northprint's code on 2008-12-17
// Progression Test
package {  
    import flash.display.Sprite;  
    import jp.progression.commands.*;
    	import jp.progression.commands.display.*;
    	import jp.progression.commands.lists.SerialList;

public class Prog_test extends Sprite {

public function Prog_test(){

var sList:SerialList = new SerialList();
            // macbook pro 2.5ghz core2duo. Safari / debugplayer 10
            // AddChild 158回まではokでした。
           	// Command.thresholdLength = 150;としてスタックする値より低く設定するとエラーがでなくなる。
           	//でも一気に処理できないので処理速度は遅くなる。
           	Command.thresholdLength = 1;
           	for (var i : int = 0; i < 1000; i++) {
				var sprite:Sprite = new Sprite();
				sprite.graphics.beginFill(0xFF0000);
				sprite.graphics.drawRect((i % 100) * 5, Math.floor(i/100)*5, 4, 4);
				sprite.graphics.endFill();
	            sList.addCommand(
	                new AddChild(this,sprite)
	                //,
	                //String(i)
	            );
           	}
            sList.execute();  
        }  
    }  
}

Command.thresholdLength = 1;