/**
 * Flade - Flash Dynamics Engine
 * Release 0.5 alpha 
 * RimParticle class
 * Copyright 2004, 2005 Alec Cove, Raigan Burns (Metanet Software)
 * 
 * This file is part of Flade. The Flash Dynamics Engine. 
 *	
 * Flade is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * Flade is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Flade; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * Flash is a registered trademark of Macromedia
 */


import org.cove.flade.Vector;
import org.cove.flade.ParticleSystem;

class org.cove.flade.RimParticle {
	
	public var curr:Vector;
	public var prev:Vector;
	public var speed:Number;

	public var vs:Number;
	private var wr:Number;
	private var maxTorque:Number;	
	
	/**
	 * The RimParticle is really just a second component of the wheel model.
	 * The rim particle is simulated in a coordsystem relative to the wheel's 
	 * center, not in worldspace
	 */
	public function RimParticle(r:Number, mt:Number) {

		curr = new Vector(r, 0);
		prev = new Vector(0, 0);

		vs = 0;			// variable speed
		speed = 0; 		// initial speed
		maxTorque = mt; 	
		wr = r;		
	}


	public function verlet(sysObj:ParticleSystem):Void {

		//clamp torques to valid range
		speed = Math.max(-maxTorque, Math.min(maxTorque, speed + vs));

		//apply torque
		//this is the tangent vector at the rim particle
		var dx:Number = -curr.y;
		var dy:Number =  curr.x;

		//normalize so we can scale by the rotational speed
		var len:Number = Math.sqrt(dx * dx + dy * dy);
		dx /= len;
		dy /= len;

		curr.x += speed * dx;
		curr.y += speed * dy;		

		var ox:Number = prev.x;
		var oy:Number = prev.y;
		var px:Number = prev.x = curr.x;		
		var py:Number = prev.y = curr.y;		

		curr.x += sysObj.coeffDamp * (px - ox);
		curr.y += sysObj.coeffDamp * (py - oy);	

		// hold the rim particle in place
		var clen:Number = Math.sqrt(curr.x * curr.x + curr.y * curr.y);
		var diff:Number = (clen - wr) / clen;

		curr.x -= curr.x * diff;
		curr.y -= curr.y * diff;
	}
	
}