From 7bd93964fdbf3e172519a8c16bdf52ea8aaf2dc6 Mon Sep 17 00:00:00 2001 From: Chris Ford Date: Mon, 27 Aug 2012 18:29:56 +0100 Subject: [PATCH] Fixed use of line, as per Sam's suggestion. --- src/goldberg/variations/canone_alla_quarta.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/goldberg/variations/canone_alla_quarta.clj b/src/goldberg/variations/canone_alla_quarta.clj index 028ee32..51ca28b 100644 --- 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)