Jump to content

roger davis

Members
  • Posts

    3
  • Joined

  • Last visited

Posts posted by roger davis

  1. 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) 

      

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy