chewing
forked from flash on 2010-11-19 (diff: 29)
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);
}
}
}
}