roger davis Posted September 10, 2015 Share Posted September 10, 2015 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) Quote Link to comment Share on other sites More sharing options...
opmo Posted September 10, 2015 Share Posted September 10, 2015 In your score there is one parenthesis to many in DEF-SCORE defaults. This is how it should be: (def-score coolbeans (:key-signature '(c maj) :time-signature timesigs :tempo 100 :layout (piano-layout 'piano-rh 'piano-lh) ) (piano-rh :omn piano-righthand :channel 1 :sound 'gm :program 'acoustic-grand-piano ) (piano-lh :omn piano-lefthand ) ) I would advise to update your software to the current version. After the update the score would look like this: (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-weight lengths :weight '(2 1) :seed 19)) (setf rest2 (length-weight lengths :weight '(3 1) :seed 17)) (setf piano-righthand (make-omn :length rest :pitch pitches :velocity '(f))) (setf piano-lefthand (make-omn :length rest2 :pitch pitches2 :velocity '(f))) (def-score coolbeans (:key-signature 'chromatic :time-signature '(4 4) :tempo 100 :layout (piano-layout 'piano-rh 'piano-lh)) (piano-rh :omn piano-righthand :channel 1 :sound 'gm :program 'acoustic-grand-piano ) (piano-lh :omn piano-lefthand ) ) Notice there is a change to the LENGTH-REST-WEIGHT function. Now LENGTH-WEIGHT Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.