Sign in to follow this  
Followers 0
torstenanders

Merging ties

4 posts in this topic

ID: 1   Posted

For generating a harmonic rhythm, I needed to merge notes that are tied. If extracting only the length values with omn directly, then all ties are lost.

 

 (omn :length '((h c4 pizz q arco+tie) (q h tie) (h.)))
 => ((1/2 1/4) (1/4 1/2) (3/4))

 

So, I wrote myself a function that merges the lengths of tied notes.

 

 (lengths-with-merged-ties '((h c4 pizz q arco+tie) (q h tie) (h.)))
 => (1/2 1/2 5/4)

 

 

The definition is below.

 

Best,

Torsten

 

(defun lengths-with-merged-ties (sequence)
  "Returns a flat list of lengths that preserves the lengths in sequence including their tied notes.
  
  Example:
  (lengths-with-merged-ties '((h c4 pizz q arco+tie) (q h tie) (h.)))
  => (1/2 1/2 5/4)

  Contrast:
  (omn :length '((h c4 pizz q arco+tie) (q h tie) (h.)))
  => ((1/2 1/4) (1/4 1/2) (3/4))"
  (butlast
   (reduce #'(lambda (&optional accum pair2)
               (when (and accum pair2)              
                 (append 
                  (butlast accum 2)
                  (if (equal (first (last accum)) 'tie)
                    (list (+ (first (last (butlast accum))) (first pair2)) (second pair2))
                    (list (first (last (butlast accum))) (first pair2) (second pair2)))
                  )))
           (matrix-transpose  
            (list (omn :length (flatten-omn sequence))
                  (mapcar #'(lambda (arts)
                              (when (member 'tie arts)
                                'tie))
                          (mapcar #'disassemble-articulations 
                                  (omn :articulation (flatten-omn sequence)))))))))

;; I shared the function disassemble-articulations alongside similar functions before, 
;; but repeat it here for your convenience  
(defun disassemble-articulations (art)
  "Splits a combined OMN articulations into a list of its individual attributes.

  Example:
  (disassemble-articulations 'leg+ponte)
  => (leg ponte)"  
  (mapcar #'intern (split-string (symbol-name art) :separator "+")))

 

AM likes this

Share this post


Link to post
Share on other sites

ID: 2   Posted

(omn-merge-ties '(q a4 stacc+tie e gliss+tie))
=> (q. a4 stacc+gliss+tie))

(omn-merge-ties '(q a4 stacc+tie e gliss))
=> (q. a4 stacc+gliss))

 

Share this post


Link to post
Share on other sites

ID: 4   Posted

Great, thanks! Would you consider adding a documentation file for that function? If not, could you at least add a doc string to the code, so that it could be of use for at least more advanced users?

 

For everyone else: when you are searching for a function that is not documented by its own RTF file and thus cannot be found via the standard Opusmodus documentation search, you could use the following function. Some internal Opusmodus functions without standard Opusmodus documentation have at least a documentation string. 

 

;; return all functions that contain 'omn' in their name, together with their documentation string (if there is any).

(apropos-function-documentation "omn")

 

The function apropos-function-documentation is defined below.

 

Best,

Torsten

 

(defun apropos-function-documentation (my-string &optional (package *package*))
  "Lists all functions that contain `my-string' alongside their documentation in a list of pairs
  (<function-symbol> <doc-string>)"
  (mapcar #'(lambda (x) (list x (documentation x 'function)))
          (remove-if-not #'fboundp (apropos-list my-string package))))

 

lviklund likes this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0