Jump to content

Recommended Posts

Posted

MORPH function will be part of the next release.

 

(progn
  (setf chopin-28-4
        (pitch-transpose
         12
         '(h gb2e3 g2b2e3 fs2a2e3 fs2a2eb3 f2a2eb3
             q f2a2d3 f2gs2d3 
             h e2gs2d3
             q e2g2d3 e2g2cs3
             h e2g2c3 e2fs2c3 e2fs2c3 eb2fs2c3 d2fs2c3 d2fs2c3 d2f2c3 d2f2b2 
             q c2e2b2 c2e2a2
             h c2e2a2
             q b1e2a2 b1eb2a2
             h c2e2a2 b1eb2a2 b1eb2a2
             h b1eb2a2 -h g2b2e3 g2b2e3 fs2a2e3 f2a2eb3 f2gs2eb3 e2gs2d3
             q e2g2d3 e2g2cs3 cs2e2bb2 c2e2a2 
             h a2c3fs3a3
             q g2c3fs3 g2b2e3 a2c3e3 e2fs2c3 b1e2b2 c2e2a2
             h b1e2b2
             q eb2b2 b1eb2a2
             h. c2g2bb2
             q c2e2a2 b1e2a2 e2gs2
             h b1e2g2 bb1c2g2 e2fs2b2e3 b1eb2fs2b2 e2g2b2)))
  
  (setf chopin-28-4-pitch (omn :pitch chopin-28-4))
  (setf inv-num (gen-trim (length chopin-28-4-pitch) '(1)))
  (setf chopin-28-4i (chord-inversion inv-num chopin-28-4-pitch :variant '?))
  
  (setf rh (pitch-transpose
            12
            (make-omn
             :length '(s)
             :pitch (melodize chopin-28-4i)
             :span :pitch)))
  
  (setf lh-length (mclist (get-span rh)))
  
  (setf lh (dechord
            (make-omn
             :length lh-length
             :pitch chopin-28-4i
             :velocity '(mp))
            ))
  
  (setf rh-len (length rh))
  (setf rh-morph (morph (rnd-number rh-len 0.2 0.5) rh))
  
  (ps 'gm :p (list rh-morph lh)
      :tempo '((102 52) (:rit 102 34 1/64 4)))
  )

 

 

 

Best wishes,

Janusz

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