chewing

by 0xABCDEF forked from flash on 2010-11-19 (diff: 29)
♥0 | Line 40 | Modified 2011-07-03 22:58:50 | MIT License
play

ActionScript3 source code

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

// forked from shapevent's flash on 2010-11-19
package
{
    import flash.events.Event;
    import flash.display.Sprite;
    import flash.display.BitmapData;
    import flash.display.Bitmap;
    public class FlashTest extends Sprite
    {
        private var canvas:BitmapData;
        private var size:uint;
        private var pix:uint;
        private var cnt:int;
        public function FlashTest()
        {
            size = 200;
            pix = size * size;
            cnt = 0;
            canvas = new BitmapData( size, size, false, 0x000000 );
            addChild( new Bitmap( canvas, "auto", true ) );
            scaleX = scaleY = 2;
            addEventListener( Event.ENTER_FRAME, ENTER_FRAME );
        }
        private function ENTER_FRAME( e:Event ):void
        {
            ++cnt;
            var scale:Number = 1/(size/3);
            for( var i:int=0; i<pix; ++i )
            {
                 var xp:Number = ( i % size );
                 var yp:Number = int( i / size );
                 var xt:Number = xp * scale;
                 var yt:Number = yp * scale;
                 var ca:Number = ( Math.abs( Math.tan( yt ) * Math.pow( Math.sin( xt ),3 ) ) * 100 ) % ( Math.sin( cnt/2 )*155 );
                 var cb:Number = ( Math.abs( Math.tan( xt ) * Math.pow( Math.sin( yt ),3 ) ) * 100 ) % ( Math.cos( cnt/2 )*155 );
                 ca|= cb;
                 canvas.setPixel(xp, yp,  ca <<16 | ca <<8 | ca);
            }
        }
    }
}