sleep sort

by Seacolor forked from wonderfl trace (diff: 34)
 sleep sortのActionScript3実装(ActionScript Thread Library使用)。
そのままだと正常に動作しなかったので待機時間を*100した。
♥0 | Line 89 | Modified 2011-05-20 20:46:22 | MIT License
play

ActionScript3 source code

/**
 * Copyright Seacolor ( http://wonderfl.net/user/Seacolor )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/qW8A
 */

 package {
    import flash.display.Sprite;
    import flash.events.*;
    import flash.text.TextField;
    import org.libspark.thread.Thread;
    import org.libspark.thread.EnterFrameThreadExecutor;
    
    public class TraceTest extends Sprite {
        
        public function TraceTest() {
            // Thread initialize
            Thread.initialize(new EnterFrameThreadExecutor());
            
            //This is all the initialization you need in your main class
            inittrace(stage);
            
            // demonstration
            const array:Array = [ 5, 3, 6, 3, 6, 3, 1, 4, 7 ];
            for (var i:int = 0;i < array.length;i++) {
                new SleepThread(int(array[i])).start();
            }
        }
        
    }
}
import flash.text.TextField;
import flash.display.Stage;
import org.libspark.thread.Thread;
class SleepThread extends Thread
{
    public var n:int;
    
    public function SleepThread(n:int):void {
        this.n = n;
    }
    
    override protected function run():void
    {
        sleep(n * 100);
        next(exe);
    }
    
    protected function exe():void
    {
        trace(n);
    }
}

/////  WONDERFL TRACE /////

import flash.display.Sprite;
import flash.display.Stage;
import flash.text.TextField;
import flash.text.TextFormat;


function inittrace(s:Stage):void
{
    WTrace.initTrace(s);
}

//global trace function
var trace:Function;

//wtreace class
class WTrace
{
        private static var FONT:String = "Fixedsys";
        private static var SIZE:Number = 12;
        private static var TextFields:Array = [];
        private static var trace_stage:Stage;
        
        public static function initTrace(stg:Stage):void
        {
            trace_stage = stg;
            trace = wtrace;
        }
        
        private static function scrollup():void
        {
            // maximum number of lines: 100
            if (TextFields.length > 100) 
            {
                var removeme:TextField = TextFields.shift();
                trace_stage.removeChild(removeme);
                removeme = null;
            }
            for(var x:Number=0;x<TextFields.length;x++)
            {
                (TextFields[x] as TextField).y -= SIZE*1.2;
            }
        }
    
        public static function wtrace(... args):void
        {
        
            var s:String="";
            var tracefield:TextField;
            
            for (var i:int;i < args.length;i++)
            {
                // imitating flash:
                // putting a space between the parameters
                if (i != 0) s+=" ";
                s+=args[i].toString();
            }
            

            tracefield= new TextField();
            tracefield.autoSize = "left";
            tracefield.text = s;
            tracefield.y = trace_stage.stageHeight - 20;

            var tf:TextFormat = new TextFormat(FONT, SIZE);
            tracefield.setTextFormat(tf);
            trace_stage.addChild(tracefield);
            scrollup();                      
            TextFields.push(tracefield);
            
        }
}