gen-prop-rhythms

Recommended Posts

1) main-idea: a little function (perhaps more interesting when  rhy-display-bugs are fixed)

...to use if you want to do "real-fractal-structures", or replace (with motif-map) a length-value with a rhythmical-substructure, or do "rhy-projections" on other lengths...

```(defun gen-prop-rhythms (proportions main-length)
(loop for i in proportions
collect (* i (/ main-length (apply '+ (mapcar #'abs proportions))))))

(gen-prop-rhythms '(3 2 5) 4/4))```

2) extension: replace a value from a sequence (generated with "gen-prop-rhythms") with a new gen-prop-seq, and merge it to a new rhy-layer.... repeat this x-times...

```
(defun merge-two-layers (main-layer sub-layer repl-val)
(loop repeat (length main-layer)
with cnt = 0
when (= cnt (position repl-val main-layer))
append sub-layer
else collect (nth cnt main-layer)
do (incf cnt)))

;;example-1:

(setq layer-1 (gen-prop-rhythms '(3 2 5) 4/4)) ; creates a rhy-structure in 4/4
(setq layer-2 (gen-prop-rhythms '(3 2 5) (second layer-1))) ; creates a rhy-structure on second length of layer1

(merge-two-layers layer-1 layer-2 (second layer-1)) ; merge this two "rhy-sequences"

;;example-2 (more complex example, but same thing)

(setq layer-1 (gen-prop-rhythms '(8 3 2 5) 9/4))
(setq layer-2 (gen-prop-rhythms '(5 2 3) (fourth layer-1)))
(setq layer-1+2 (merge-two-layers layer-1 layer-2 (fourth layer-1)))
(setq layer-3 (gen-prop-rhythms '(2 3 1) 1/4))

(setq layer-1+2+3 (merge-two-layers layer-1+2 layer-3 (third layer-1+2)))```

greetings

andré

Edited by AM
smarter code in "gen-prop-thythms"

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

×   Pasted as rich text.   Paste as plain text instead

Only 75 emoji are allowed.

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
• Browser

• Video Gallery

• Lessons