;; cycle.sal -- using a cycle pattern generator object ;; (c) 2008 by Roger B. Dannenberg define function cycle-demo(number-of-notes) begin with pat = make-cycle({c4 c5 c6 c7}) return score-gen( score-len: number-of-notes, pitch: next(pat), ioi: 0.2, vel: 100) end exec score-play(cycle-demo(40))