;; item-streams.sal -- example using pitch-cycle and score-gen ;; ;; (c) 2008 by Roger B. Dannenberg set pitch-cycle = make-cycle(list(c4, d4, e4, f4)) set pitch-cycle-score = score-gen(score-len: 8, pitch: next(pitch-cycle), dur: 0.4)