// Port of my Java Vectorballs to Flash MX
// (c)2002 Obiwobble

// VbSineTable. For Animation stuff. Global property
_global.VbSINTABSIZE = 4096;
_global.VbSineTable = new Array( VbSINTABSIZE );
for ( var i=0; i<VbSINTABSIZE; i++ )
{
	VbSineTable[i] = Math.sin( i / VbSINTABSIZE * 2.0 * Math.PI );
}

// VbMatrix Class
function VbMatrix()
{
	// Default to Identity matrix
	this.El = new Array(9);
	this.El[1] = this.El[2] = this.El[3] = 0.0;
	this.El[5] = this.El[6] = this.El[7] = 0.0;
	this.El[0] = this.El[4] = this.El[8] = 1.0;
}

VbMatrix.prototype.RotX = function( angle )
{
	this.El[0]= 1.0;
	this.El[1]= 0.0;
	this.El[2]= 0.0;
	
	this.El[3]= 0.0;
	this.El[4]= Math.cos( angle );
	this.El[5]= Math.sin( angle );
	
	this.El[6]= 0.0;
	this.El[7]= -Math.sin( angle );
	this.El[8]= Math.cos( angle );
}

VbMatrix.prototype.RotY = function( angle )
{
	this.El[0]= Math.cos( angle );
	this.El[1]= 0.0;
	this.El[2]= -Math.sin( angle );
	
	this.El[3]= 0.0;
	this.El[4]= 1.0;
	this.El[5]= 0.0;
	
	this.El[6]= Math.sin( angle );
	this.El[7]= 0.0;
	this.El[8]= Math.cos( angle );
}

VbMatrix.prototype.RotZ = function( angle )
{
	this.El[0]= Math.cos( angle );
	this.El[1]= Math.sin( angle );
	this.El[2]= 0.0;
	
	this.El[3]= -Math.sin( angle );
	this.El[4]= Math.cos( angle );
	this.El[5]= 0.0;
	
	this.El[6]= 0.0;
	this.El[7]= 0.0;
	this.El[8]= 1.0;
}

VbMatrix.prototype.Concat = function( Ma, Mb )
{
	// this = Ma.Mb (where Ma, Mb are of type VbMatrix )
	// _this_ is why I dislike loose typed languages - it seems so... dangerous!
	this.El[0] = (Ma.El[0] * Mb.El[0]) + 
			(Ma.El[1] * Mb.El[3]) + 
			(Ma.El[2] * Mb.El[6]);
	this.El[1] = (Ma.El[0] * Mb.El[1]) + 
			(Ma.El[1] * Mb.El[4]) + 
			(Ma.El[2] * Mb.El[7]);
	this.El[2] = (Ma.El[0] * Mb.El[2]) + 
			(Ma.El[1] * Mb.El[5]) + 
			(Ma.El[2] * Mb.El[8]);

	this.El[3] = (Ma.El[3] * Mb.El[0]) + 
			(Ma.El[4] * Mb.El[3]) + 
			(Ma.El[5] * Mb.El[6]);
	this.El[4] = (Ma.El[3] * Mb.El[1]) + 
			(Ma.El[4] * Mb.El[4]) + 
			(Ma.El[5] * Mb.El[7]);
	this.El[5] = (Ma.El[3] * Mb.El[2]) + 
			(Ma.El[4] * Mb.El[5]) + 
			(Ma.El[5] * Mb.El[8]);

	this.El[6] = (Ma.El[6] * Mb.El[0]) + 
			(Ma.El[7] * Mb.El[3]) + 
			(Ma.El[8] * Mb.El[6]);
	this.El[7] = (Ma.El[6] * Mb.El[1]) + 
			(Ma.El[7] * Mb.El[4]) + 
			(Ma.El[8] * Mb.El[7]);
	this.El[8] = (Ma.El[6] * Mb.El[2]) + 
			(Ma.El[7] * Mb.El[5]) + 
			(Ma.El[8] * Mb.El[8]);

	// A(0) B(1) C(2) D(3) E(4) F(5) G(6) H(7) I(8)
}

// VbBall class
function VbBall( xCoord, yCoord, zCoord, frame, res1, res2 )
{
	this.x = xCoord; this.y = yCoord; this.z = zCoord;
	this.ScreenX = this.ScreenY = 0;
	this.ScreenZ = 0.0;
	this.frame = frame;
	this.Reserved1 = res1; this.Reserved2 = res2;
}

function VbObject()
{
	this.NumBalls = 0;
	this.Balls = new Array();
	this.BallMCs = new Array();
}

VbObject.prototype.BallFrameLabels = [ "Red", "Yellow", "Blue", "Cyan", "Green", "Magenta" ];
VbObject.prototype.VB_ZOFF = 520;
VbObject.prototype.VB_K = 512;

VbObject.prototype.SortFn = function( a, b )
{
	if ( a.ScreenZ == b.ScreenZ ) return 0;
	if ( a.ScreenZ > b.ScreenZ ) return -1;
	return 1;
}

VbObject.prototype.Draw = function()
{
	// It's the sorting that's costing me the most cpu
	// this sortOn method is quicker but require reverse
	// ball ordering (no big deal)
	this.Balls.sortOn( "ScreenZ" );
	for ( var d=0; d<this.Balls.length; d++ )
	{
		var dd = this.Balls.length-1-d;
		this.BallMCs[dd]._x = this.Balls[d].ScreenX;
		this.BallMCs[dd]._y = this.Balls[d].ScreenY;
		this.BallMCs[dd].gotoAndStop( this.BallFrameLabels[ this.Balls[d].frame ] );
	}
	
	/*
	this.Balls.sort( this.SortFn );						
	for ( var d=0; d<this.Balls.length; d++ )
	{
		this.BallMCs[d]._x = this.Balls[d].ScreenX;
		this.BallMCs[d]._y = this.Balls[d].ScreenY;
		this.BallMCs[d].gotoAndStop( this.BallFrameLabels[ this.Balls[d].frame ] );
	}*/
}

VbObject.prototype.BuildRectangle = function( w, h, xExtent, yExtent, bStriped, bSiney, zExtent, maxtypes, fnCreate )
{
	var	xinc = xExtent/w;
	var yinc = yExtent/h;

	this.NumBalls = w*h;
	this.Balls = new Array( NumBalls );

	var c = 0;
	var y = -(yExtent/2);
	for ( i=0; i<h; i++ )
	{
		var x = -(xExtent/2);
		for ( j=0; j<w; j++ )
		{
			var z = 0.0;
			var frame = 0;

			if ( true == bSiney )
			{
				var ii = ( i / h * VbSINTABSIZE );
				var jj = ( j / w * VbSINTABSIZE );
				z = zExtent * VbSineTable[ Math.floor( ii ) ] 
						+ zExtent * VbSineTable[ Math.floor( jj ) ];
			}

			frame = bStriped ? i%maxtypes : c%maxtypes ;

			var res1 = ( i*VbSINTABSIZE )/h;
			var res2 = ( j*VbSINTABSIZE )/w;

			this.Balls[c] = new VbBall( x, y, z, frame, res1, res2 );
			this.BallMCs[c] = fnCreate( frame );

			x += xinc;
			c++;
		} // End for j

		y += yinc;
	} // End for i
}

VbObject.prototype.TransformAndAnimate = function( M, offx, offy )
{
	var	k = this.VB_K;
	var x, y, z;
	var xBall, yBall, zBall;
	
	for ( var i=0; i<this.NumBalls; i++ )
	{
		// Xfrm Point
		xBall = this.Balls[i].x;
		yBall = this.Balls[i].y;
		zBall = this.Balls[i].z;

		x = xBall * M.El[0] +
			yBall * M.El[1] +
			zBall * M.El[2];
		y = xBall * M.El[3] +
			yBall * M.El[4] +
			zBall * M.El[5];
		z = xBall * M.El[6] +
			yBall * M.El[7] +
			zBall * M.El[8];

		// Project Point
		z += this.VB_ZOFF;

		this.Balls[i].ScreenX = offx + Math.floor( ( x * k ) / z );
		this.Balls[i].ScreenY = offy + Math.floor( ( y * k ) / z );
		this.Balls[i].ScreenZ = z;
	} // End for i
}

// THIS MC
BallInstanceCounter = 0;

AddBall = function( i )
{
	attachMovie( "Ball_All_Vector", "Ball"+BallInstanceCounter, BallInstanceCounter );
	return this["Ball"+BallInstanceCounter++];
}

// Start Here....
_global.VbTargetMovie = this;
function AddBallHere( i ){ return _global.VbTargetMovie.AddBall( i ); }

myVbObject = new VbObject();
myVbObject.BuildRectangle( 8, 8, 220, 220, false, true, 20, 6, AddBallHere );

xrot = 0.0;
yrot = 0.0;
zrot = 0.0;

xinc = Math.PI/180.0;
yinc = Math.PI/90.0;
zinc = -Math.PI/90.0;

xoff = _width / 2;
yoff = _height / 2;

// Main "loop"
onEnterFrame = function()
{
	// Calculate Xfrm
	var Ma = new VbMatrix();
	var Mb = new VbMatrix();
	var Mc = new VbMatrix();
	Ma.RotX( xrot );
	Mb.RotY( yrot );
	Mc.RotZ( zrot );

	var Mt = new VbMatrix();
	Mt.Concat( Mb, Ma );

	var Mtransform = new VbMatrix();
	Mtransform.Concat( Mc, Mt );

	myVbObject.TransformAndAnimate( Mtransform, xoff, yoff );
	myVbObject.Draw();
	
	xrot += xinc;
	yrot += yinc;
	zrot += zinc;
}

// End script