document.open();document.writeln('
');document.writeln('
import flash.display.Sprite;');document.writeln('import flash.geom.Point;');document.writeln('import flash.events.Event;');document.writeln('import flash.events.MouseEvent;');document.writeln('import com.remixtechnology.Utils;');document.writeln('import com.remixtechnology.Draggable;');document.writeln('import com.remixtechnology.ShadowedTextField;');document.writeln('');document.writeln('class Ball extends Sprite');document.writeln('{');document.writeln('	public var mass: Float;');document.writeln('	public var point(getPoint,null): Point;');document.writeln('	public var radius: Float; // girth');document.writeln('	public var netRadian: Float; // angle of movement in radians');document.writeln('	public var netForce: Float; // here for when i unsucessfully added another gravitational object');document.writeln('	private var xForce: Float;');document.writeln('	private var yForce: Float;');document.writeln('	private var ax: Float; // accelerate to glory!');document.writeln('	private var ay: Float;');document.writeln('	public var vx: Float; // <sexy> velocity </sexy>');document.writeln('	public var vy: Float;');document.writeln('	public var totalSpeed(getTotalSpeed,null): Float; // PA, pythagoreanonymous');document.writeln('	private var locked: Bool; // because this ball could be orbiting a much more massive cookie ');document.writeln('	');document.writeln('	private var speed_label: ShadowedTextField; // mass and speed');document.writeln('	');document.writeln('	private static inline var color:UInt = 0x3399FF; // FYI my eyes are this color');document.writeln('	private static inline var locked_color:UInt = 0x3344CC;');document.writeln('	private static inline var border_color:UInt = 0x3366ff;');document.writeln('	private static inline var border_thickness:Float = 2;');document.writeln('	private static inline var radius2mass:Float = .02; // radius = this*mass');document.writeln('	');document.writeln('	public function new( _mass:Float )');document.writeln('	{');document.writeln('		super();');document.writeln('		mass = _mass;');document.writeln('		radius = mass*radius2mass;');document.writeln('		graphics.lineStyle(border_thickness, border_color);');document.writeln('		graphics.beginFill(color);');document.writeln('		graphics.drawCircle(0,0,radius);');document.writeln('		graphics.endFill();');document.writeln('		');document.writeln('		xForce = 0;');document.writeln('		yForce = 0;');document.writeln('		');document.writeln('		netForce = 0;');document.writeln('		netRadian = 0;');document.writeln('		');document.writeln('		vx = 0;');document.writeln('		vy = 0;');document.writeln('		');document.writeln('		locked = false;');document.writeln('		');document.writeln('		new Draggable(this);');document.writeln('		');document.writeln('		speed_label = new ShadowedTextField("Speed: " + Std.string(totalSpeed));');document.writeln('		speed_label.mouseChildren = false;');document.writeln('		speed_label.setColor(0x887766);');document.writeln('		speed_label.setShadowColor(0x121212);');document.writeln('		speed_label.bold(false);');document.writeln('		addChild(speed_label);');document.writeln('		');document.writeln('		addEventListener(Event.ENTER_FRAME, loop);');document.writeln('		addEventListener(MouseEvent.MOUSE_UP, mouseUp);');document.writeln('		addEventListener(MouseEvent.CLICK, lock);');document.writeln('	}');document.writeln('	private inline function loop( _ ):Void');document.writeln('	{');document.writeln('		xForce = Math.cos(netRadian) * netForce;');document.writeln('		yForce = Math.sin(netRadian) * netForce;');document.writeln('		ax = xForce / mass;');document.writeln('		ay = yForce / mass;');document.writeln('		');document.writeln('		if(!locked){');document.writeln('			vx += ax;');document.writeln('			vy += ay;		');document.writeln('			x += vx;');document.writeln('			y += vy;');document.writeln('		}');document.writeln('		');document.writeln('		speed_label.setText("Mass: " + Std.string(mass) + "\\nSpeed: " + Std.string(Utils.round(totalSpeed,2)));');document.writeln('	}');document.writeln('/*  // go ahead and do it, i dare you...');document.writeln('	public inline function launch(  ): Void');document.writeln('	{');document.writeln('		vx = Std.random( 10 ) - 5;');document.writeln('		vy = Std.random( 10 ) - 5;');document.writeln('	}*/');document.writeln('	public inline function addForce( radian:Float, force:Float ): Void');document.writeln('	{');document.writeln('		var rad = (netRadian + radian) / 2;');document.writeln('		netRadian = (rad > 0)? rad : rad ;');document.writeln('		netForce = (netForce - force) / -2;');document.writeln('	}');document.writeln('');document.writeln('	private inline function getPoint(  ):Point{ return new Point(x,y); }');document.writeln('	public inline function getTotalSpeed(  ): Float');document.writeln('	{');document.writeln('		return Math.sqrt(Math.pow(vx,2) + Math.pow(vy,2));');document.writeln('	}');document.writeln('	');document.writeln('	private inline function mouseUp( _ ):Void');document.writeln('	{');document.writeln('		vx = 0;');document.writeln('		vy = 0;');document.writeln('	}');document.writeln('	private inline function lock( _ ):Void');document.writeln('	{');document.writeln('		locked = !locked;');document.writeln('		');document.writeln('		graphics.clear();');document.writeln('		graphics.lineStyle(border_thickness, border_color);');document.writeln('		if(locked){');document.writeln('			graphics.beginFill(locked_color);');document.writeln('			graphics.drawCircle(0,0,radius);');document.writeln('			graphics.endFill();');document.writeln('		}else{');document.writeln('			graphics.beginFill(color);');document.writeln('			graphics.drawCircle(0,0,radius);');document.writeln('			graphics.endFill();');document.writeln('		}');document.writeln('	}');document.writeln('}');document.writeln('
');document.writeln('');document.writeln('');document.writeln('
');document.close();