first experiment written down

stabler-things/functions.lisp

@@ -1,3 +1,4 @@
+(in-package :cl-patterns)
 (defun nchord (symbol &optional (base 0))
   "Return list of notes for chord names by SYMBOL over the BASE."
   (mapcar (lambda (note) (+ base note)) (chord-notes (chord symbol))))

stabler-things/synthesizers.lisp

@@ -150,10 +150,12 @@
          (sig (sin-osc.ar freq 0 0.2)))
     (out.ar out (pan2.ar sig 0 env))))
 
-(defsynth tone-buzz ((freq 440) (amp 0.2))
-  (out.ar 0 (saw.ar (let ((detune (* freq 0.01)))
-                      (list (- freq detune) (+ freq detune)))
-                    (/ amp 2))))
+(defsynth tone-buzz ((freq 440) (amp 0.2) (gate 1))
+  (out.ar 0 (*
+             (saw.ar (let ((detune (* freq 0.01)))
+                       (list (- freq detune) (+ freq detune)))
+                     (/ amp 2))
+             (env-gen.kr (asr 0 1 0.1) :gate gate :act :free))))
 
 (defsynth tone-pluck ((freq 440) (amp 0.2))
   (out.ar 0 (* (saw.ar (let ((detune (* freq 0.01)))