omn-to-time-signature

[david]

Salut,

J'aimerais utiliser la fonction omn-to-time-signature directement dans mon code Gr, si quelqu'un peut m'aider. Merci !

;;;découpe de barre

(setf time-signatures (gen-repeat 2 '((2 4 1) (3 4 1)(2 4 1)(2 4 1)(2 4 1)))

 

;;;11/4 bar trop long

(setf Gr
    (butlast (omn-à-mesurer (make-omn 
      :pitch (omn :pitch 
      (omn-à-mesurer 
      (boucle pour x dans tétra
      collecter (filtre-répéter 1 
      (rnd-order x :type :pitch :seed 5))) 
      '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 
       1/4 1/4 1/4))) 
      :length (omn :length 
      (omn-à-mesurer 
      (gen-repeat 11 '(ess -sseses)) ; phrase 3/4
      '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4)))) 11/4)))

;;;avec découpe

(setf résultat (omn-to-time-signature Gr time-signatures))

 

[Stephane Boussuge]

Ce code est incomprehensible, désolé , ce n'est pas du code Opusmodus. Par exemple la fonction: omn-à-mesurer n'existe pas dans OM ainsi que boucle pour x dans tétra etc.

 

 

[david]

(setf time-signatures (gen-repeat 2 '((2 4 1) (3 4 1)(2 4 1)(2 4 1)(2 4 1)(2 4 1) (3 4 1)(2 4 1)(2 4 1)(2 4 1))))

(setf Gr
    (butlast  (omn-to-measure (make-omn 
      :pitch (omn :pitch 
      (omn-to-measure 
      (loop for x in tetr
      collect (filter-repeat 1 
      (rnd-order x :type :pitch :seed 5))) 
      '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4))) 
      :length (omn :length 
      (omn-to-measure 
      (gen-repeat 11 '(e s s -s s e s e s)) ; phrase 3/4
      '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4)))) 11/4)))

(setf result (omn-to-time-signature Gr time-signatures))

holy google

[Stephane Boussuge]

The variable tetr is unbound.

[david]

not necessarily...

 

(setf tetr '((s b4 ds5 fs5 a5)(s ds5 fs5 a5 b5)
(s a4 cs5 e5 g5)(s cs5 e5 g5 a5)(s e5 g5 a5 cs6)
(s d5 fs5 a5 c6)(s fs5 a5 c6 d6)
(s c5 e5 g5 bb5)(s e5 g5 bb5 c6)
(s f4 a4 c5 eb5)(s a4 c5 eb5 f5)
(s b4 ds5 fs5 a5)(s ds5 fs5 a5 b5)
(s a4 cs5 e5 g5)(s cs5 e5 g5 a5)(s e5 g5 a5 cs6)
(s d5 fs5 a5 c6)(s fs5 a5 c6 d6)
(s cs5 f5 a5 b5)(s f5 a5 b5 cs6)
(s fs4 bb4 cs5 e5)(s bb4 cs5 e5 fs5)))

[Stephane Boussuge]

Is it what you are searching for ?:

 

(setf Gr
    (omn-to-time-signature
     (butlast  
      (omn-to-measure
       (make-omn 
        :pitch (omn :pitch 
                    (omn-to-measure 
                     (loop for x in tetr
                           collect (filter-repeat
                                    1 
                                    (rnd-order x :type :pitch :seed 5))) 
                     '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4))) 
        :length (omn :length 
                     (omn-to-measure 
                      (gen-repeat 11 '(e s s -s s e s e s)) ; phrase 3/4
                      '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4)))) 11/4))
     time-signatures))

 

[david]

Yes Exactly!!

I had looked for different ways but without success.
Thank you very much Stéphane...I look forward to your next lessons on composerworkshop.

 

David