Subject: Accords jazz altéré

From: Éric Bouvéron <[email-masked]>
Date: Thu, 18 Feb 2016 12:31:32 +0800

Bonjour,
J' ai essayé de trouver comment former des accords altérés, mais sans grand
succès.
Par exemple, je souhaiterais pouvoir faire un accord
E7b9, ou E7#5
J'écris mi1:7b9  ou mi17d5
mais n'obtiens pas ce que je souhaite.
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

Merci et à bientôt,

-- 
Éric Bouvéron

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Thu, 18 Feb 2016 07:22:40 +0100

Bonjour Éric,

La réponse se trouve sur le lien envoyé:
http://www.lilypond.org/doc/v2.18/Documentation/notation/chord-name-chart.fr.html

Soit:

\version "2.18.2"

\paper {
  indent = 0\mm
  line-width = 160\mm
}

chs = \transpose c' c' {
  <c e g>1
  <c es g>  % m = minor triad
  <c e gis>
  <c es ges> \break
  <c e g bes>
  <c es g bes>
  <c e g b>  % triangle = maj
  <c es ges beses>
  <c es ges b> \break
  <c e gis bes>
  <c es g b>
  <c e gis b>
  <c es ges bes> \break
  <c e g a>  % 6 = major triad with added sixth
  <c es g a>  % m6 = minor triad with added sixth
  <c e g bes d'>
  <c es g bes d'> \break
  <c es g bes d' f' a' >
  <c es g bes d' f' >
  <c es ges bes d' >
  <c e g bes des' > \break
  <c e g bes dis'>
  <c e g bes d' f'>
  <c e g bes d' fis'>
  <c e g bes d' f' a'> \break
  <c e g bes d' fis' as'>
  <c e gis bes dis'>
  <c e g bes dis' fis'>
  <c e g bes d' f' as'> \break
  <c e g bes des' f' as'>
  <c e g bes d' fis'>
  <c e g b d'>
  <c e g bes d' f' as'> \break
  <c e g bes des' f' as'>
  <c e g bes des' f' a'>
  <c e g b d'>
  <c e g b d' f' a'> \break
  <c e g b d' fis'>
  <c e g bes des' f ' a'>
  <c f g>
  <c f g bes> \break
  <c f g bes d'>
  <c e g d'>  % add9
  <c es g f'>
  <c e g b fis'>  % Lydian
  <c e g bes des' ees' fis' aes'>  % altered chord
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% alternate Jazz notation

efullmusicJazzAlt = {
  <c e gis>1-\markup { "+" }
  <c e g b>-\markup {
    \normal-size-super
    % \override #'(font-family . math) "N"
    \override #'(font-family . math) "M"
  }
  %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  %%c:3.5.7 = \markup { \normal-size-super "maj7" }

  <c es ges>-\markup { \super "o" }  % should be $\circ$ ?
  <c es ges bes>-\markup { \super \combine "o" "/" }
  <c es ges beses>-\markup { \super  "o7" }
}

efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f)

epartialmusicJazzAlt = {
  <c d>1-\markup { \normal-size-super "2" }
  <c es>-\markup { "m" }
  <c f>-\markup { \normal-size-super "sus4" }
  <c g>-\markup { \normal-size-super "5" }
  %% TODO, partial exceptions
  <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
  <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
}

epartialJazzAlt = #(sequential-music-to-chord-exceptions
epartialmusicJazzAlt #f)

jazzAltProperties = \sequential {
  \set majorSevenSymbol = #whiteTriangleMarkup
  \set chordNameSeparator = #(make-simple-markup  "/")
  \set chordNameExceptionsFull = #efullJazzAlt
  \set chordNameExceptionsPartial = #epartialJazzAlt
  \set chordNameFunction = #jazz-chord-names
}

banterProperties = \sequential {
  \set chordNameFunction = #banter-chord-names
}

\score{
  <<
    \new ChordNames {
      \set instrumentName = #"Default"
      \set shortInstrumentName = #"Def"
      \chs
    }
    \new ChordNames {
      \jazzAltProperties
      \set instrumentName = #"Alternative"
      \set shortInstrumentName = #"Alt"
      \chs
    }
  %{

  %% This is the Banter (1987) style.  It gives exceedingly
  %% verbose (wide) names, making the output file take up to 4 pages.
  %% (TODO: how big is is now?)
  %% Turned off by default.

  %% TODO: use smaller font for Banter (or remove some esoteric
  %% chords).

    \new ChordNames {
      \banterProperties
      \set instrumentName = #"Banter"
      \set shortInstrumentName = #"Ban"
      \chs
    }
  %}

  \new Staff  \transpose c c' { \chs }
  \layout {
    \context {
      \ChordNames
      \consists "Instrument_name_engraver"
    }
    \context {
      \Score
      \remove "Bar_number_engraver"
    }
  }
}

Cordialement,
Pierre

Le 18 février 2016 à 05:31, Éric Bouvéron <[email-masked]> a écrit :

> Bonjour,
> J' ai essayé de trouver comment former des accords altérés, mais sans
> grand succès.
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>
>

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Thu, 18 Feb 2016 07:27:24 +0100

Oups, désolé, je viens de comprendre ta question...
M'en vais me prendre un café !
Pierre

---

From: Philippe Neyrat <[email-masked]>
Date: Thu, 18 Feb 2016 07:45:36 +0100

Bonjour,

> J'écris mi1:7b9  ou mi17d5

la syntaxe c'est :
Note/durée:[m|7|maj7|sus|(etc)].intervalle[+|-].intervalle[+|-].(etc)
un ":" pour séparer la note et sa durée, et un "." pour séparer les
intervalles modifiés.

par exemple :

a1:7sus4.5-
c2:7.5^.9

Dans ton exemple :

e1:7.9-
e1:7.5+

Si ça peut aider :

http://lilypond.org/doc/v2.18/Documentation/notation/displaying-chords
et :
http://lilypond.org/doc/v2.18/Documentation/notation/chord-name-chart

Bon courage.

Philippe

-- 
Propulsé par l'Association Sud-Ouest.org
Plateforme Libre d'hébergement mail à prix libre
    https://www.sud-ouest.org

---

From: Philippe Neyrat <[email-masked]>
Date: Thu, 18 Feb 2016 07:54:05 +0100

> un ":" pour séparer la note et sa durée, et un "." pour séparer les

Je voulais dire :
un : pour séparer la [note et sa durée] du reste de la description de
l'accord...

Faut être précis...

cordialement,

Philippe

---

From: Philippe Neyrat <[email-masked]>
Date: Thu, 18 Feb 2016 08:22:55 +0100

> c2:7.5^.9

un point en trop...

le "^" s'utilise comme ça pour enlever une note de l'accord :

\chordmode {
  c1^3 c:7^5 c:9^3 c:9^3.5 c:13.11^3.7
}

<accord>^<intervalles à enlever, séparés par des points>

Désolé, j'avais pas dû bien lire :
http://www.lilypond.org/doc/v2.18/Documentation/notation/chord-mode.fr.html

Philippe

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Thu, 18 Feb 2016 13:31:49 +0100

Re,

> 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