Jump to content

Recommended Posts

interesting bug: have a look at the 1/20-layer (c6) -> midi sounds correct (!), notation is wrong

 

;;;;;;;;;;;;;;;;;;;;


(setf duration1 '(8 5 3 2 3 5 8))
(setf duration2 '(8 5 3 2 3 5 8)) 
(setf duration3 '(8 5 3 2 3 5 8))

(setf voices (merge-voices (make-omn :length (gen-length duration1 1/20)
                                     :pitch '(c6))
                           (make-omn :length (gen-length duration2 1/32)
                                     :pitch '(b4))
                           (make-omn :length(gen-length duration3 1/8)
                                     :pitch '(as2))))


(def-score voices
           (:key-signature '(c maj)
                           :time-signature '(4 4)
                           :tempo '(60))
  
  (piano
   :omn voices
   :channel 1
   :sound 'gm
   :program 0))

(display-midi (compile-score 'voices) :display :quick-view)

 

;;;;;;;;;;;;;;;;;;;;

 

56ddeae86b1c7_OhneTitel.thumb.jpg.22c4cd

Link to post
Share on other sites
  • 3 weeks later...
  • 2 months later...

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