In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

flash on 2012-2-17

Get Adobe Flash player
by panyup 21 Feb 2012
    Embed
/**
 * Copyright panyup ( http://wonderfl.net/user/panyup )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/A8cj
 */

Connected to Compiler Server.
package{
    import flash.display.Sprite;
    import flash.display.StageAlign;
    import flash.display.StageScaleMode;
    import flash.events.SampleDataEvent;
    import flash.media.Microphone;
    import flash.utils.ByteArray;
    
    public class Main extends Sprite {
        private var _mic:Microphone;
        public function Main():void {
            stage.align = StageAlign.TOP_LEFT;
            stage.scaleMode = StageScaleMode.NO_SCALE;
            
            _mic = Microphone.getMicrophone();
            _mic.addEventListener(SampleDataEvent.SAMPLE_DATA, _micSampleDataHandler);
                        
        }
        private function _micSampleDataHandler(e:SampleDataEvent):void {
            var sw:int = stage.stageWidth;
            var sh:int = stage.stageHeight;
            
            graphics.clear();
            graphics.lineStyle(1, 0x0, 1);
            graphics.moveTo(0, sh* 0.5);
            
            var n:int = e.data.length / 4;
            for(var i:int = 0; i < n; ++i){
                var x:Number = i / n * sw;
                var y:Number = sh * 0.5 - e.data.readFloat() * 1000;
                
                if (i % 2 == 0){
                    graphics.lineTo(x, y);
                }

            }

        }

    }
}