| 
					
				 | 
			
			
				@@ -39,16 +39,14 @@ smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 selector: "drawArm:lengthScale:weight:", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 category: 'not yet classified', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-fn: function (aPosition, aLengthScale, aWeight) {
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var self = this;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var myDX;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var myDY;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    smalltalk.send(self['@processing'], "_strokeWeight_", [aWeight]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    myDX = smalltalk.send(self['@centerX'], "__plus", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Math || Math, "_sin_", [smalltalk.send(smalltalk.send(aPosition, "__star", [2]), "__star", [smalltalk.send(smalltalk.Math || Math, "_PI", [])])]), "__star", [aLengthScale]), "__star", [self['@maxArmLength']])]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    myDY = smalltalk.send(self['@centerY'], "__minus", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Math || Math, "_cos_", [smalltalk.send(smalltalk.send(aPosition, "__star", [2]), "__star", [smalltalk.send(smalltalk.Math || Math, "_PI", [])])]), "__star", [aLengthScale]), "__star", [self['@maxArmLength']])]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    smalltalk.send(self['@processing'], "_line_y_dX_dy_", [self['@centerX'], self['@centerY'], myDX, myDY]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    return self;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (aPosition,aLengthScale,aWeight){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var myDX,myDY; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return smalltalk.withContext(function($ctx1) { 
_st(self["@processing"])._strokeWeight_(aWeight); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+myDX=_st(self["@centerX"]).__plus(_st(_st(_st((smalltalk.Math || Math))._sin_(_st(_st(aPosition).__star((2))).__star(_st((smalltalk.Math || Math))._PI()))).__star(aLengthScale)).__star(self["@maxArmLength"])); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+myDY=_st(self["@centerY"]).__minus(_st(_st(_st((smalltalk.Math || Math))._cos_(_st(_st(aPosition).__star((2))).__star(_st((smalltalk.Math || Math))._PI()))).__star(aLengthScale)).__star(self["@maxArmLength"])); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+_st(self["@processing"])._line_y_dX_dy_(self["@centerX"],self["@centerY"],myDX,myDY); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return self}, function($ctx1) {$ctx1.fill(self,"drawArm:lengthScale:weight:",{aPosition:aPosition,aLengthScale:aLengthScale,aWeight:aWeight,myDX:myDX,myDY:myDY}, smalltalk.ProcessingClock)})}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 args: ["aPosition", "aLengthScale", "aWeight"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 source: "drawArm: aPosition lengthScale: aLengthScale weight: aWeight\x0a| myDX myDY |\x0aprocessing strokeWeight: aWeight.\x0amyDX := centerX \x0a\x09\x09\x09+ ((Math sin: (aPosition * 2 * Math PI))\x0a\x09\x09\x09* aLengthScale * maxArmLength).\x0amyDY := centerY \x0a\x09\x09\x09- ((Math cos: (aPosition * 2 * Math PI))\x0a\x09\x09\x09* aLengthScale * maxArmLength).\x0a\x0aprocessing line: centerX y: centerY dX: myDX dy: myDY.", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 messageSends: ["strokeWeight:", "+", "*", "sin:", "PI", "-", "cos:", "line:y:dX:dy:"], 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -56,22 +54,37 @@ referencedClasses: ["Math"] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 }), 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.ProcessingClock); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+"_firstProcessingInstance", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+selector: "firstProcessingInstance", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+category: 'not yet classified', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return smalltalk.withContext(function($ctx1) { 
return Processing.instances[0]; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return self}, function($ctx1) {$ctx1.fill(self,"firstProcessingInstance",{}, smalltalk.ProcessingClock)})}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+args: [], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+source: "firstProcessingInstance\x0a\x0a\x09<return Processing.instances[0]>", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+messageSends: [], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+referencedClasses: [] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+}), 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+smalltalk.ProcessingClock); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 "_initialize", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 selector: "initialize", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 category: 'not yet classified', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-fn: function () {
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var self = this;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    self['@processing'] = Processing.instances[0];
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    self['@centerX'] = smalltalk.send(smalltalk.send(self['@processing'], "_width", []), "__slash", [2]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    self['@centerY'] = smalltalk.send(smalltalk.send(self['@processing'], "_height", []), "__slash", [2]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    self['@maxArmLength'] = smalltalk.send(smalltalk.Math || Math, "_min_or_", [self['@centerX'], self['@centerY']]);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    return self;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return smalltalk.withContext(function($ctx1) { 
self["@processing"]=_st(self)._firstProcessingInstance(); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+self["@centerX"]=_st(_st(self["@processing"])._width()).__slash((2)); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+self["@centerY"]=_st(_st(self["@processing"])._height()).__slash((2)); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+self["@maxArmLength"]=_st((smalltalk.Math || Math))._min_or_(self["@centerX"],self["@centerY"]); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.ProcessingClock)})}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 args: [], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-source: "initialize\x0aprocessing := <Processing.instances[0]>.\x0acenterX := processing width / 2.\x0acenterY := processing height / 2.\x0amaxArmLength := Math min: centerX or: centerY.", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-messageSends: ["/", "width", "height", "min:or:"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+source: "initialize\x0aprocessing := self firstProcessingInstance.\x0acenterX := processing width / 2.\x0acenterY := processing height / 2.\x0amaxArmLength := Math min: centerX or: centerY. ", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+messageSends: ["firstProcessingInstance", "/", "width", "height", "min:or:"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 referencedClasses: ["Math"] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 }), 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.ProcessingClock); 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -81,10 +94,12 @@ smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 selector: "processing", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 category: 'not yet classified', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-fn: function () {
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var self = this;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    return self['@processing'];
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return smalltalk.withContext(function($ctx1) { 
var $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+$1=self["@processing"]; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+}, function($ctx1) {$ctx1.fill(self,"processing",{}, smalltalk.ProcessingClock)})}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 args: [], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 source: "processing\x0a^processing", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 messageSends: [], 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -98,20 +113,17 @@ smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 selector: "init", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 category: 'not yet classified', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-fn: function () {
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var self = this;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var clock;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var processing;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var block;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    clock = smalltalk.send(smalltalk.ProcessingClock || ProcessingClock, "_new", []);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    processing = smalltalk.send(clock, "_processing", []);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    block = smalltalk.send(clock, "_draw", []);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    processing.draw = block;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    return self;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var clock,processing,block; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return smalltalk.withContext(function($ctx1) { 
clock=_st((smalltalk.ProcessingClock || ProcessingClock))._new(); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+processing=_st(clock)._processing(); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+block=_st(clock)._draw(); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+_st(processing)._at_put_("draw",block); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return self}, function($ctx1) {$ctx1.fill(self,"init",{clock:clock,processing:processing,block:block}, smalltalk.ProcessingClock.klass)})}, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 args: [], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-source: "init\x0a| clock processing block |\x0aclock := ProcessingClock new .\x0aprocessing := clock processing.\x0ablock := clock draw.\x0a<processing.draw=block>\x0a ", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-messageSends: ["new", "processing", "draw"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+source: "init\x0a| clock processing block |\x0aclock := ProcessingClock new .\x0aprocessing := clock processing.\x0ablock := clock draw.\x0aprocessing at: 'draw' put: block\x0a ", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+messageSends: ["new", "processing", "draw", "at:put:"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 referencedClasses: ["ProcessingClock"] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 }), 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.ProcessingClock.klass); 
			 |