From 4ce722cbf97591bc84d0c6477823391cc23706c6 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Mon, 30 Apr 2012 17:13:14 +0200
Subject: added RecEvent constructor

---
 midi_recorder.ck | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/midi_recorder.ck b/midi_recorder.ck
index b3a7155..25dfb09 100644
--- a/midi_recorder.ck
+++ b/midi_recorder.ck
@@ -1,6 +1,17 @@
 class RecEvent {
 	dur pit;
 	MidiMsg @msg;
+
+	fun static RecEvent @
+	new(dur pit, MidiMsg @msg)
+	{
+		RecEvent obj;
+
+		pit => obj.pit;
+		msg @=> obj.msg;
+
+		return obj;
+	}
 }
 Queue buffer;
 
@@ -83,10 +94,7 @@ while (min => now) {
 		} else if (recording) {
 			<<< "REC Channel:", channel, "Command:", cmd, "Controller:", msg.data2, "Value:", value >>>;
 
-			RecEvent recev => buffer.push;
-			now - start => recev.pit;
-			msg @=> recev.msg;
-
+			RecEvent.new(now - start, msg) => buffer.push;
 			now => start;
 		}
 	}
-- 
cgit v1.2.3