Jump to content

Using binary-rhythm function for generating a full symphonic movement


Recommended Posts

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.

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

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

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy