evals-CANT GET THE LAST PART

[roger davis]

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) 

  

[opmo]

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