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

// VbSineTable. For Animation
_global.VbSINTABSIZE = 4096;
_global.VbSineTable = new Array( VbSINTABSIZE );
for ( 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[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;
	this.ChildLeft = null;
	this.ChildRight = null;
}

function VbObject()
{
	this.VB_ZOFF = 520;
	this.VB_K = 512;
	this.NumBalls = 0;
	this.Balls = new Array();
	this.BallMCs = new Array();
	this.BallFrameLabels = [ "Red", "Yellow", "Blue", "Cyan", "Green", "Magenta" ];
}

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()
{
	this.Balls.sort( VbObject.prototype.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;

	for ( i=0; i<this.NumBalls; i++ )
	{
		// Xfrm Point
		xBall = this.Balls[i].x;
		yBall = this.Balls[i].y;
		zBall = this.Balls[i].z;

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

		// Project Point
		this.z += this.VB_ZOFF;

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

// THIS MC
this.BallInstanceCounter = 0;

this.AddBall = function( i )
{
	this.attachMovie( "Ball_All_Vector", "Ball"+BallInstanceCounter, BallInstanceCounter );
	//this.attachMovie( "Ball_All_Bitmap", "Ball"+BallInstanceCounter, BallInstanceCounter );
	//trace( "AddBall("+i+") : Type="+_global.BallIdentifiers[i]+" Id=Ball"+_global.BallInstanceCounter+" return="+this["Ball"+_global.BallInstanceCounter] );
	return this["Ball"+BallInstanceCounter++];
}

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

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

this.xrot = 0.0;
this.yrot = 0.0;
this.zrot = 0.0;

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

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

// Main "loop"
this.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, this.xoff, this.yoff );
	myVbObject.Draw();
	
	xrot += xinc;
	yrot += yinc;
	zrot += zinc;
}

// End script