Permalink
Browse files

[src] Adding in stop so that instruments are killed upon button release

  • Loading branch information...
1 parent c66c8e7 commit 70ef8af0193bd8913a70df2756d3cc72d186ab85 @kellydunn committed May 8, 2012
Showing with 6 additions and 3 deletions.
  1. +6 −3 src/ginger/core.clj
View
@@ -15,11 +15,11 @@
(defn play-note [m x y]
(mled/led-on m x y)
- ((controls/get-instrument (deref controls/current-index)) :note (+ (+ (* x 1) (* y 8)) 25)))
+ ((controls/get-instrument (deref controls/current-index)) :note (+ (+ (* x 1) (* y 8)) 10)))
(defn kill-note [m x y]
(mled/led-off m x y)
- (kill (controls/get-instrument (deref controls/current-index))))
+ (stop))
(defn delegate-on-press [m x y]
(when (> y 0)
@@ -32,4 +32,7 @@
(kill-note m x y)))
(mevent/on-press m (fn [x y] (delegate-on-press m x y)) "*")
-(mevent/on-release m (fn [x y] (delegate-on-release m x y)) "*")
+(mevent/on-release m (fn [x y] (delegate-on-release m x y)) "*")
+
+(bass)
+(kill bass)

0 comments on commit 70ef8af

Please sign in to comment.