flash on 2013-9-15

by tepe
♥0 | Line 27 | Modified 2013-09-17 11:50:41 | MIT License
play

ActionScript3 source code

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

package {
    import flash.display.Sprite;
    import flash.text.*;
    import flash.events.*;
    public class FlashTest extends Sprite {
        public function FlashTest() {
            // write as3 code here..
            var longR:Number = 6378137;//WGS84長半径
            
            var a:Number = 298.257223563;//扁平率
            
            var shortR:Number = longR-longR/a;
            var wid:Number = longR * Math.PI*2;//赤道の距離
            var hei:Number = shortR * Math.PI;//北極点から南極点までの距離
            var lat:Number = -11;
            var parY:Number = lat /(180 * 100);
            var t:TextField = new TextField();
            t.width = 300;
            t.height = 200;
            addChild(t);
            var str:String = new String();
            
            str += parY.toString()+"\n";
            str += (wid/1000).toString()+"km\n";
            str += (hei/1000).toString()+"km\n";
            str += longR.toString()+"\n";
            str += shortR.toString()+"\n";
            t.text = str;
        }
        
        
    }
}