;;; -*- Syntax: Common-Lisp; Package: COMMON-MUSIC; Base: 10; Mode: Lisp -*-

;;; 3 noteOns are followed with 10 noteUpdates each which change 
;;; the setting of bearing. All events are guaranteed to happen 
;;; on the exact same SynthPatch instance by setting "tag."

(in-package :stella)
(in-syntax :music-kit t)

(algorithm moving-sound Pluck (bearing -48 
				       tag 1)
	   (setf type (item (items :noteOn (items :noteUpdate for 10)) :kill 3)) 
	   (when (eq type :noteOn)
		 (setf freq (item (notes c4 c3 c4)))) 
	   (setf rhythm .1 
		 bearing (+ bearing 3)))

(stella:stella)