ambitus-swallow -> excluded pitches

[AM]

 

;; little function. don't know if something like this already exits
;; in OMN: i wanted to READ the swallowed pitches after ambitus-swallow
;; i hope it works fine...


;;function
(defun read-ambitus-swallowed (min/max omn-sequence)
  (let ((up (ambitus-swallow (list (second min/max) 'g9) omn-sequence))
        (down (ambitus-swallow (list 'c0 (first min/max)) omn-sequence)))
    (merge-voices up down)))

;;nonsense-sequence
(setq omn-sequence '(e f4 t a0 q g0 d9 s. eb6 t. f3 cs9 t ab0 q c0))

;;ord ambitus-swallow
(ambitus-swallow '(a0 g8) omn-sequence)

;;the excluded pitches 
(read-ambitus-swallowed '(a0 g8) omn-sequence)