|  | @@ -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);
 |