Re: PowerChords

[Jean Abou Samra]

Le 16/06/2021 à 08:04, Voltrane a écrit :
> Bonjour,
>
> J’essaie de faire une partition de jazz dans laquelle ne figurent comme
> réalisées que les tierces et les septièmes des accords (sur Do majeur 7,
> n’afficher que mi et si).
> J’essaie d’utiliser PowerChords mais il me rajoute toujours la fondamentale
> même si je n’indique que 3 et 7. Comment éviter cela?
> Merci

Scheme à la rescousse :

\version "2.22.1"

#(define (index-list? x)
   (and (list? x)
        (every index? x)))

selectNotes =
#(define-music-function (notes music) (index-list? ly:music?)
   (for-some-music
     (lambda (m)
       (if (music-is-of-type? m 'event-chord)
           (let loop ((i 1)
                      (remaining-elts (ly:music-property m 'elements))
                      (remaining-notes notes)
                      (acc '()))
             (cond
               ((or (null? remaining-notes)
                    (null? remaining-elts))
                (ly:music-set-property! m 'elements (reverse! acc))
                #t)
               ((eqv? i (car remaining-notes))
                (loop (1+ i)
                      (cdr remaining-elts)
                      (cdr remaining-notes)
                      (cons (car remaining-elts)
                            acc)))
               (else
                 (loop (1+ i)
                       (cdr remaining-elts)
                       remaining-notes
                       acc))))
           #f))
     music)
   music)

\selectNotes 2,4 \chordmode {
  d1:m7
  g:7
  c:maj7
  q
}

Cordialement,
Jean