Re: Ledgerline color

[Jacques Menu]

Bonjour Mathieu,

Watt aboutte:


\version "2.19.25"


\layout {
  ragged-right = ##t
}

% there is ony one ledger line spanner/grob/stencil
% produced for each musical system on the page (!)
% see: ledger-line-spanner.cc for c++ code for ly:ledger-line-spanner::print

#(define (MyLedgerLineSpannerPrint grob)
   (let*
    ((stil (ly:ledger-line-spanner::print grob))
     ;; (ifaces (ly:grob-interfaces grob))

     (noteheads (ly:grob-object grob 'note-heads))
     (new-stil (box-stencil (stencil-with-color stil (rgb-color 1.0 0.0 0.0)) 
0.1 1))
     )

    (display "noteheads: ")(display noteheads)(newline)(newline)
    ;; (display (ly:grob-properties grob))(newline)(newline)
    ;; (display ifaces)(newline)(newline)

    new-stil))


\new Staff \with {
  \override LedgerLineSpanner.stencil = #MyLedgerLineSpannerPrint
  \override LedgerLineSpanner.after-line-breaking = #grob::display-objects
}
{
  c <d e> f''' g'''
  \break
  c2 e
}



> Le 12 juin 2021 à 08:43, dmlmg20110107 <m.maion@free.fr> a écrit :
> 
> Bonjour à tous, 
> 
> J'espère que ce sujet n'a pas déjà été traité sur la liste, car je n'en ai
> pas trouvé d'équivalent.
> 
> Quelqu'un sait-il comment se comporte la fonction \override
> Staff.LedgerLineSpanner.color ?
> 
> La situation : devant des manuscrits altérés, certains éditeurs sont
> contraints de reconstituer des notes disparues ou inconnues. Pour ce faire,
> il est d'usage de leur attribuer dans la gravure une autre couleur, que ce
> soit la tête, la queue, les points, les altérations, les silences, les
> ornements, et bien sûr les petites lignes de portée supplémentaires (qui se
> nomment "Ledger Lines" si j'ai bien compris nos collègues anglosaxons).
> 
> Exemple : 
> 
> <http://lilypond-french-users.1298960.n2.nabble.com/file/t390216/ledgerline.jpg>
>  
> 
> Mon problème avec Lilypond, comme vous le constatez ci-dessus, c'est que
> toutes les caractéristiques des notes peuvent être parfaitement maîtrisées
> avec les commandes suivantes :
> 
> \override Stem.color = #(rgb-color x y z)
> \override NoteHead.color = #(rgb-color x y z)
> \override Beam.color = #(rgb-color x y z)
> \override Rest.color = #(rgb-color x y z)
> \override Dots.color = #(rgb-color x y z)
> \override Accidental.color = #(rgb-color x y z) etc. etc. etc.
> 
> Sauf :
> 
> \override Staff.LedgerLineSpanner.color = #(rgb-color x y z)
> 
> Soit je place cette commande en début de partition, et toutes mes petites
> lignes de portées supplémentaires sont colorées, soit je place la commande
> devant la note à colorer, avec ou sans \once, et cela n'a aucun effet sur la
> gravure.
> 
> Je ne maîtrise pas suffisamment les rouages internes de Lilypond pour
> improviser quelque chose d'autre...donc quelqu'un de plus performant
> aurait-il une idée ?
> 
> Vous allez me répondre qu'il s'agit là de couper un cheveu en 5, certes,
> mais étant donné la puissance de Lilypond (sans exagérer) je me dis qu'il
> s'agit plus d'un défi. Qu'en dites-vous ?
> 
> Avec tous mes remerciements, 
> Mathieu.
> 
> 
> 
> --
> Sent from: http://lilypond-french-users.1298960.n2.nabble.com/
>