Skip to content

Instantly share code, notes, and snippets.

@chopmo
Created June 5, 2012 22:04
Show Gist options
  • Select an option

  • Save chopmo/2878379 to your computer and use it in GitHub Desktop.

Select an option

Save chopmo/2878379 to your computer and use it in GitHub Desktop.
diff --git a/src/letsplay/jazz.clj b/src/letsplay/jazz.clj
index ae6a9a9..2e7e47d 100644
--- a/src/letsplay/jazz.clj
+++ b/src/letsplay/jazz.clj
@@ -80,11 +80,13 @@
;; TODO - avoid hanging around at the limits
(limit (+ n (rand-nth '(-7 -6 -5 5 6 7))) 40 65))]
(at tick
- (+ (beep note) (bass (midi->hz note))))
+ (beep note)
+ (bass (midi->hz note)))
;; extra off-beat note with same tone
(when (> 0.1 (rand))
(at (m (+ beat (groove 0.5)) )
- (+ (beep note) (bass (midi->hz note)))))
+ (beep note)
+ (bass (midi->hz note))))
(apply-at (m (+ beat 1)) #'jazzbass [m note])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment