Using binary-rhythm function for generating a full symphonic movement

Hi,

here's a simple example of my use of BINARY-RHYTHM function inspired by the Janusz's doc examples for generating a full movement of a chamber symphonie.

The BINARY-RHYTHM function use FIBONACCI stuff and variant optional keyword:

(init-seed 839201883)
(setf fib1 (fibonacci 4 64))
(setf fib2 (fibonacci 21 81))
(setf fib3 (fibonacci 14 74))
(setf fib4 (fibonacci 32 92))
(setf fib5 (fibonacci 1 61))

(setf rhstruct (rnd-sample 8 '(4 8 16 32 64)))
(setf bval '(h h q q e e s s s e s e q e h q h h))

(setf len1 (binary-rhythm rhstruct fib1 bval :type 2
                          :variant '?))
                          
(setf len2 (binary-rhythm rhstruct fib2 bval :type 2
                          :variant '?))

(setf len3 (binary-rhythm rhstruct fib3 bval :type 2
                         :variant '?))

(setf len4 (binary-rhythm rhstruct fib4 bval :type 2
                          :rotate 18))

(setf len5 (binary-rhythm rhstruct fib5 bval :type 2
                          :variant '?))

SB.