allow setting box color

1 files changed, 35 insertions, 0 deletions

diff --git a/chuck/OSCGraphicsBox.ck b/chuck/OSCGraphicsBox.ck
index 489bcf5..3899994 100644
--- a/chuck/OSCGraphicsBox.ck
+++ b/chuck/OSCGraphicsBox.ck
@@ -1,2 +1,37 @@
 public class OSCGraphicsBox extends OSCGraphicsLayer {
+	class ColorPort extends OSCGraphicsPort {
+		OSCGraphicsBox @layer;
+
+		int color[];
+		int index;
+
+		fun void
+		tick(float in, float prev)
+		{
+			in $ int => color[index];
+
+			/* optimize: avoid sending unnecessary messages */
+			if (color[index] != (prev $ int))
+				color => layer.color;
+		}
+	}
+	fun OSCGraphicsPort @
+	getColorPort(int color[], int index)
+	{
+		ColorPort p;
+		this @=> p.layer;
+		color @=> p.color;
+		index => p.index;
+
+		return p;
+	}
+	fun int[]
+	color(int color[])
+	{
+		osc_send.startMsg("/layer/"+name+"/color", "iii");
+		for (0 => int i; i < 3; i++)
+			color[i] => osc_send.addInt;
+
+		return color;
+	}
 }