Subject: [LilyPond] colorier des notes de basse

From: christianleBars via LilyPond <[email-masked]>
Date: Thu, 30 Oct 2025 08:17:45 +0000

j'ai trouvé un code qui devrait automatiser les notes de basse que voici:
\version "2.24.4"
%------------------------------------------------------
% Définition des couleurs par corde 
#(define (color-stem-by-string note)
   (let* ((pitch (ly:event-property note 'pitch))
          (notename (ly:pitch-notename pitch))
          (octave (ly:pitch-octave pitch)))
     (cond
       ;; Corde de Mi (E, 4ème corde)
       ((or (and (= notename 2) (= octave 2))  % Mi grave (E2)
            (and (= notename 4) (= octave 2))  % Fa (F2)
            (and (= notename 5) (= octave 2))) % Fa# (F#2)
        "cyan")
       ;; Corde de La (A, 3ème corde)
       ((or (and (= notename 5) (= octave 3))  % La (A3)
            (and (= notename 0) (= octave 3))) % Do (C3)
        "brown")
       ;; Corde de Ré (D, 2ème corde)
       ((or (and (= notename 0) (= octave 3))  % Ré (D3)
            (and (= notename 2) (= octave 3))) % Mi (E3)
        "orange")
       ;; Corde de Sol (G, 1ère corde)
       ((or (and (= notename 4) (= octave 3))  % Sol (G3)
            (and (= notename 5) (= octave 3))) % La (A3)
        "blueviolet")
       (else "black"))))  % Couleur par défaut
%-------------------------------------------------
% Fonction pour appliquer les couleurs aux hampes
colorStems =
{
  \override Stem.color = #(lambda (grob)
    (let 
     ((note (ly:grob-property grob 'note))
     )
   (color-stem-by-string note)))
}
%--------------------------------------------------------  
\score
 {
  \new Staff 
    {
     \clef bass
    \colorStems  % Applique les couleurs aux hampes
     \relative c
       {
       % Exemple de ligne de basse
       e4 f fis g | a b c d | e g a b | c2 r |
      }
  }
  \layout {}
  \midi {}
}

seulement il me renvoie l'erreur suivante:
 [/usr/share/lilypond/2.24.4/ly/init.ly:65:2](0): 
Erreur : Guile a signalé une erreur pour l'expression débutant ici

#

(let ((book-handler (if (defined? 'default-toplevel-book-handler)

In procedure ly:event-property: Wrong type argument in position 1 (expecting Stream_event): ()

Arrêté avec le code de retour 1.
comme je ne comprend pas le code que j'ai pompé quelqu'un peut-il me donner une explication qui me permetterai de faire fonctionner ce code.
Par avance merci.
Bonne journée

---
Pour poster dans ce sujet, visitez la [page du sujet](https://lilypond.community/t/colorier-des-notes-de-basse/6004/1).

Pour créer un nouveau sujet, écrivez à [[email-masked]](mailto:[email-masked]) ou visitez la [page d'accueil de lilypond.community](https://lilypond.community).