Re: Mise en couleur à des fins pédagogique…

[Valentin Villenave]

On 1/24/19, Jean-Christophe Taboada <address@hidden> wrote:
> Le code (un peu trop long pour être posté, et assez difficile à “minimiser”)
>  est ici : http://lilybin.com/ixnhda/4 <http://lilybin.com/ixnhda/2>

Bof, cent lignes de code, ce n’est pas un problème sur la liste… (ci-dessous).

> 1. je dois faire en sorte que la dernière note (la plus grave, en “gris") de
> chaque accord soit dans la portée en clef de fa (et si je peux éviter de
> tout refaire en voix séparées, je serais bien content…)

Ah bin ça évidemment, c’est
http://lilypond.org/doc/v2.19/Documentation/notation/common-notation-for-keyboards.fr.html#cross_002dstaff-stems

Mais effectivement, cela nécessite de virer la note inférieure de
chaque accord et de la remettre dans la portée du bas.

> 2. la mise en couleurs des notes ne s’applique… qu’aux têtes de notes (et
> j’ai besoin qu’au moins les altérations soient colorées aussi)…
> Accessoirement, c’est très moche comme façon de faire. J’ai vainement essayé
> de mettre le \tweak dans une variable, mais ça ne fonctionne pas :(

Ça _peut_ fonctionner à condition d’utiliser la toute dernière version
de LilyPond, et d’ajouter \etc ensuite pour que \tweak ait bien le bon
nombre d’arguments. L’avantage est qu’on peut ainsi facilement ajouter
des tweaks pour d’autres objets (altérations, points etc.). Ci-dessous
un code compatible avec 2.18, mais il sera facile de substituer
\enVert à \tweak color.

> Merci de vos lumières, ô Grands Sachems de la Mare-aux-Nénuphars*.

Pas mal comme nom de secte…


%%%%%%%%%%%%%%%%%%%
%[[ExTranThe-q3f1-corr]]
\version "2.18.2"

\paper {
  indent=0\mm
  line-width=160\mm
  oddFooterMarkup=##f
  oddHeaderMarkup=##f
  bookTitleMarkup=##f
  scoreTitleMarkup=##f
}
carrure = {
  \key des \major
  \numericTimeSignature
  \time 4/4
}

accords = {
  \chordmode {
    f4.:7.9+ es8:m7.9 s2|
    des4:6.9 c2.:7.9+ |
    f4.:7.9+ es8:m7.9 s4. d8:7.9+
    s4 ces:7
  }
}

vert=#(rgb-color 0.141 0.619 0.337)

% 2.19 minimum
enVert =
\tweak NoteHead.color \vert
\tweak Dots.color \vert
\tweak Accidental.color \vert
\tweak AccidentalCautionary.color \vert
\etc

md = {
  \carrure
  \relative c' \crossStaff {
    < % \enVert
    \enVert c
    aes'>4. <
    \enVert des
    f>8~ q2 |
    <
    \enVert bes
    es?>4 q2. |
    <
    \enVert es
    aes?>4. <
    \enVert des
    f>8~ q4 f8 <
    \enVert c
    f>~ | q4 <
    \enVert bes
    es?>2.
  }
}
mg = {
  \carrure
  \clef "bass"
  <<
    \crossStaff {
      \override NoteHead.color = \vert
      \override Dots.color = \vert
      \override Accidental.color = \vert
      es4. ges8~ ges2
      f4 e2.
      a4. ges8~ ges4 s8 f~
      f4 es2.
    } \\
    \relative c {
      f,8 ges f es_( es2) |
      des4 c2. |
      f8 ges f es_( es4.) d8_( |
      d4) ces'2
    }
  >>
}

\score {
  <<
    \new ChordNames { \accords }
    \new PianoStaff
    <<
      \new Staff = "upper" \md
      \new Staff = "lower" \mg
    >>
  >>
  \layout {
    \hide Staff.TimeSignature
    ragged-right = ##f
    \context {
      \PianoStaff
      \consists #Span_stem_engraver
    }
  }
}
%%%%%%%%%%%%%

V.