Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 70ef8af0193bd8913a70df2756d3cc72d186ab85 1 parent c66c8e7
@kellydunn authored
Showing with 6 additions and 3 deletions.
  1. +6 −3 src/ginger/core.clj
View
9 src/ginger/core.clj
@@ -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)
Please sign in to comment.
Something went wrong with that request. Please try again.