Fixed use of line, as per Sam's suggestion.

ctford · Aug 27, 2012 · 7bd9396 · 7bd9396
1 parent defe87c
commit 7bd9396
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/goldberg/variations/canone_alla_quarta.clj b/src/goldberg/variations/canone_alla_quarta.clj
@@ -33,8 +33,8 @@
     (sin-osc freq1)
     (sin-osc freq2)))
 
-(definst beep [frequency 440 duration 1.0]
-  (let [envelope (env-gen (line 1.0 0 duration FREE))]
+(definst beep [frequency 440 duration 1]
+  (let [envelope (line 1 0 duration :action FREE)]
           (* envelope (sin-osc frequency))))
 
 ;(tone 300)