Le 14/06/2022 à 18:22, Jean Abou Samra a écrit :
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 ?
Jean-Marc m'a donné un exemple en privé. C'est bête, il y a un
cas particulier s'il n'y a qu'une seule ligne supplémentaire…
La correction :
\version "2.22.2"
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)))
(define (doit x)
(match x
(('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)))
((translate-stencil global-off lonely-stil)
(doit `(translate-stencil ,global-off
(combine-stencil ,lonely-stil))))
(() original)))
(doit expr))
original)))
}
}
\score {
{ c' }
\lay
}
\score {
{ c''' }
\lay
}
\score {
{ <c c'''> }
\lay
}
Cordialement,
Jean