opmo Posted March 21, 2016 Share Posted March 21, 2016 Additional keyword :interval added to find-ambitus function. (setf omn-seq '((s cs5 p g6 mp mf -) (s cs5 f e g3 ff s p) (s cs5 mp g6 mf f -) (-s cs5 ff e g3 p) (s g3 mp - e cs5 mf) (s g6 f ff e cs5 p) (s g3 mp mf e cs5 f) (s g6 ff p cs5 mp g3 mf) (e g3 f s cs5 ff g6 p) (e g6 mp -s cs5 mf) (e g3 f -s g3 ff) (s cs5 p e g6 mp s mf))) (find-ambitus omn-seq) => (-5 31) (find-ambitus omn-seq :type :pitch) => (g3 g6) With keyword :interval T the function will return the global interval value: (find-ambitus omn-seq :interval t) => 36 Link to comment Share on other sites More sharing options...
Recommended Posts