;; with-example-2.sal -- example using sg:count, sg:start in score-gen ;; (c) 2008 by Roger B. Dannenberg begin with pitch-pattern = make-random( list(c4, d4, e4, f4, g4, a4, b4)), octave-pattern = make-random({0 12 24}), pitch exec score-gen( save: quote(let-example-2), score-len: 10, pre: setf(pitch, next(pitch-pattern) + next(octave-pattern)), pitch: pitch, vel: pitch + 20, dur: step-to-hz(c3) / step-to-hz(pitch)) exec score-print(let-example-2) end