Jump to content

evals-CANT GET THE LAST PART


Recommended Posts

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) 

  

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy