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