Re: En rouge et noir

[Jean Abou Samra]

Bonjour Jean-Marc,


Le 14/06/2022 à 17:37, Librairie Les hirondelles a écrit :
> Cher Jean (Gloire à son nom pour les siècles à venir), chère liste,
>
> Je me cogne désormais au dernier souci suivant :
>
> notes = \relative c{ \clef bass \time 3/4 \key e \minor
>   e4 fis g c,2 b4 ais fis' a, g2 fis4
> }
>
> \score {
>       \new Staff {\notes}
>       \lay %%% = \layout{... tout le code créé par Jean (mille ans de 
> gloire sur sa descendance) ...}
> }
>
> me renvoie le code d'erreur suivant : "Dessin des systèmes...<unnamed 
> port>: In procedure scm-error in expression (scm-error (quote 
> misc-error) #f ...):<unnamed port>: no matching clause for ()"
>
> Tout est Ok si on met \relative c'{...}, ou même si seule la première 
> note est octaviée (e'4 fis, g...). Je comprends pas tout, mais il 
> semble que le fonctionnement de \lay soit lié à la présence de 
> ledger-lines sur la première note... S'il n'y en a pas, couik : pas 
> content.


Bizarre, pour moi tout fonctionne… Le code complet que j'ai testé :

\version "2.23.9"

lay = \layout {
  #(use-modules (ice-9 match))
  \context {
    \Staff
    \override LedgerLineSpanner.stencil =
      #(grob-transformer 'stencil
        (lambda (grob original)
          (if (ly:stencil? original)
              (let ((expr (ly:stencil-expr original))
                    (X-ext (ly:stencil-extent original X))
                    (Y-ext (ly:stencil-extent original Y)))
                (match expr
                  (('translate-stencil global-off ('combine-stencil . 
ledgers))
                   (let* ((new-ledgers
                           (map
                            (lambda (ledger)
                              (match-let
                                  ((('translate-stencil (0.0 . 
ledger-Y-off) ledger-expr) ledger))
                                (if (positive? ledger-Y-off)
                                    `(color ,(css-color "red")
                                            ,ledger)
                                    ledger)))
                            ledgers))
                         (new-expr
                          `(translate-stencil ,global-off 
(combine-stencil . ,new-ledgers))))
                      (ly:make-stencil new-expr X-ext Y-ext)))
                  (() original)))
              original)))
      }
    }

\score {
  \relative c{ \clef bass \time 3/4 \key e \minor
    e4 fis g c,2 b4 ais fis' a, g2 fis4
  }
  \lay
}


Et tout va bien aussi en 2.22. Quelle version utilises-tu ? Tu es
sûr que tu as bien pris le snippet avec la correction que j'ai
faite ?

Cordialement,
Jean