Hello ,

I try to write a function based on tonal expansion from Schillinger system of musical composition , with little success , do you have any idea how to write it for Opusmodus , i attached several example of expansion E0 E1 ...... E5 from the book

 

Thank you

 

Patrick

Scale Tonal Expansion .pdf

Have you got a look to the Schillinger menu in assistant ?

Bonjour Stephane ,

merci pour votre reponse , mais ce que je cherche à faire n'est pas dans cette liste , vous pouvez regarder le pdf join à ma premiere demande

Salutations

Patrick

Dear Patrick, here's one of my personal function, hope it can help.

Best

S.

;;; Intervals compress| Expand
;;;=================================
;;; INTERVAL-MULTIPLY
;;;=================================

(defun interval-multiply (coeff i-list)
  (do-verbose ("interval-multiply")
    (let* ((itv-list i-list)
           (mult coeff)
           (out (a*x mult itv-list))
           )
      out
      )))

;(interval-multiply 2 '((1 2 3 4)))

;;;=================================
;;; PITCH-INTERVAL-MULTIPLY
;;; ================================

(defun pitch-interval-multiply (coeff pitch-list &key (quantize 1/2))
  (do-verbose ("pitch-interval-multiply")
    (let* ((out (micro-quantize
                 (interval-to-pitch
                  (interval-multiply
                   coeff
                   (pitch-to-interval pitch-list)
                   ))
                 :quantize quantize
                 ))
           )
      out)))

#!
(setf pch '((c4 d4 e4 g4 b4)(g4 f4 e4 b4)))

(pitch-interval-multiply 1.2 pch)
(pitch-interval-multiply 1.6 pch)
(pitch-interval-multiply 1.8 pch)
(pitch-interval-multiply 2 pch)
(pitch-interval-multiply 1.2 pch :quantize 1/4)
(pitch-interval-multiply 1.6 pch :quantize 1/8)
(pitch-interval-multiply 1.8 pch :quantize 1/8)
(pitch-interval-multiply 2 pch :quantize 1/4)
!#

Merci Stephane ,

je vais essaye de l'adapter à ce que je souhaite faire

Patrick