[Rhythmic Resultants]

I am searching for a function in Opusmodus, witch makes it possible to add the attacks of two (more) rhythms, does anybody have a solution for this?

 

Short example:

(setf pr (primes-to 7))

(setf r1 (gen-length pr '4))
(setf r2 (gen-retrograde (gen-length pr '4)))

; function like::
; (gen-resultants r1 r2) (see Score example)

 

best

Stefan

[resolution of harmonics]

Like this it works, there is perhaps a better way?!

 

best

Stefan

 

; Darstellung der Obertonreihe in Hertz
(Setf harm1 (harmonics 'c2 64 :type :hertz))

; in Notation mit 8tel-Tönen
(hertz-to-pitch harm1
                :quantize 1/8)