Search the Community
Showing results for tags 'rog'.
Found 1 result
-
This is my score everything evaluates until I get to the bottom and then I get a air a message about my use of right-hand and left-hand NOT BEING DEFINED (setf pitches (gen-repeat 10 '(gs4 as4 bs4 cs5 ds5))) (setf pitches2 (gen-repeat 10 '(c3 d3 e3 f3 g3 ))) (setf lengths (span pitches '(e))) (setf rest (length-rest-weight '(2 1 ) lengths :seed 19)) (setf rest2 (length-rest-weight '(3 1) lengths :seed 17)) (setf piano-righthand (make-omn :length rest :pitch pitches :velocity '(f))) (setf piano-lefthand (make-omn :length rest2 :pitch pitches2 :velocity '(f))) (setf timesigs (get-time-signature lengths)) (def-score coolbeans (:key-signature '(c maj) :time-signature timesigs :tempo 100 :layout (piano-layout 'piano-rh 'piano-lh))) (piano-rh ;; piano-rh & piano-lh WONT EVAL :omn piano-righthand :channel 1 :sound 'gm :program 'acoustic-grand-piano) (piano-lh :omn piano-lefthand)