Two new videos: a longer one in French with a fairly detailed explanation of the code of my piece Score234 for string trio, and a shorter one in English briefly covering the key points of my algorithm.

https://youtu.be/L34ne4tY2UQ?si=eeZix96a733mAnc7

https://youtu.be/4BHDbxY5IT4?si=aTMsBaVo4RRUc3l-

Hi Stephane,

thank you very much for this nice example, the video and the composition, would you perhaps share the ctp-weight-pause function??

best wishes

AO

Hi André, here's the ctp-weight-pause function.

(defun ctp-weight-pause (percent number-list &key seed)
"Insère dans une liste de valeurs d'index des symboles de silences 
pour la fonction counterpoint"
  (setf seed (rnd-seed seed))
  (let* ((len-seq (length number-list))
        (out (position-replace 
              (sort-asc 
               (rnd-number 
                (percent percent len-seq)
                0 
                (- len-seq 1)
                :seed (seed)))
              '- number-list))
         )
    out
    ))

;(ctp-weight-pause 20 '(1 2 3 4 5 6 7 8 9 10))
;=> (1 2 3 4 5 6 - 8 9 -)
;(ctp-weight-pause 70 '(1 2 3 4 5 6 7 8 9 10))
;=> (- 2 - 4 - 6 - - - 10)

thank you very much!!!!

best wishes