Re: Accords jazz altéré

[Pierre Perol-Schneider]

Re,

Le 18 février 2016 à 05:31, Éric Bouvéron <address@hidden> a écrit :

 

Existe-t-il en français une liste des accords utilisable sur le lilypond français et leur écriture, telle que:

http://www.lilypond.org/doc/v2.18/Documentation/notation/chord-name-chart

et

http://www.lilypond.org/doc/v2.18/Documentation/d9/lily-03a6097d.ly

Pas que je sache.

On peut adapter les codes existants:

\version "2.18.2"
\include "italiano.ly"

% Markups pour les bémols et dièses
my-bemol = \markup\concat {
  \hspace #0.1 
  \fontsize #-1
  \raise #0.3 \musicglyph #"accidentals.flat"
  \hspace #0.1 
}

my-diese = \markup\concat {
  \hspace #0.1 
  \fontsize #-1
  \raise #.7 \musicglyph #"accidentals.sharp"
  \hspace #0.1 
}

% Liste de mes accords
myJazzChords = {
    <do mib solb sib>-\markup\concat { "m" \raise #.7 \small { "7" \hspace #-.2 "/" \hspace #.1 \my-bemol "5" } }
    % ... à compléter
}

% Add to existing exceptions:
myJazzChordsAdd = #(append (sequential-music-to-chord-exceptions myJazzChords #t) ignatzekExceptions)
     
% Définitions de mes accords Jazz:
#(define (my-chord-name->pop-markup pitch lowercase?)
   (define (conditional-string-downcase str condition)
           (if condition (string-downcase str) str))
  (let* ((alt (ly:pitch-alteration pitch)))
  (make-line-markup
    (list
      (conditional-string-downcase
        (vector-ref #("Do" "Ré" "Mi" "Fa" "Sol" "La" "Si") (ly:pitch-notename pitch))
        lowercase?)
      ;; If it's natural, do nothing
      (if (= alt 0)
        (make-line-markup (list empty-markup))
        (if (= alt FLAT)
          ;; Otherwise, handle adding the flat symbol
          #{
             \markup\concat {
               \hspace #.1
               \fontsize #-2
               \raise #.5
               \musicglyph #"accidentals.flat"
             }
          #}
          ;; or handle adding the sharp symbol
           #{
             \markup\concat {
               \hspace #.1
               \fontsize #-2
               \raise #1
               \musicglyph #"accidentals.sharp"
               \hspace #.1
           }
          #}))))))

%% Exemple:
\new ChordNames {
  \set chordNameExceptions = #myJazzChordsAdd
  % use our new markup chord naming functions to get the new accidentals
  \set chordRootNamer = #my-chord-name->pop-markup

  \chordmode {
    dod1:m7.5-
  }
}

à contrôler (fait en vitesse) !!

Cordialement,

Pierre