Am Sa., 28. Dez. 2024 um 19:01 Uhr schrieb Christ van Willegen
<cvwille...@gmail.com>:
>
> Hello Simon,
>
> On Sat, Dec 28, 2024 at 3:25 PM Simon Albrecht <simon.albre...@mail.de> wrote:
>>
>> I would like to obtain LilyPond output with black and white inverted
>> (black background, white music and text) for on-screen use and
>> projections. Does someone know how to achieve that through LilyPond
>> code, or has it been done before? Should absolutely be an LSR snippet IMO.
>
>
> I, too, had this problem. Someone on the list helped me, but I can't find
> their name right now :-(
>
> Does the attached sample fit your purpose? It's best to split off (part of)
> this file into an color.ily file that you can include 'everywhere' you need
> it, so that you can avoid repetition of the color function.
>
> Please note that I tried my best to find all the relevant grob names, but I
> might have missed some :-(
>
> Regards,
>
> Christ van Willegen
>
To color entire pages it's probably easiest to do:
\paper {
page-color = #red
#(define (page-post-process layout pages)
(let ((color (ly:output-def-lookup $defaultpaper 'page-color #f)))
(when (color? color)
(for-each
(lambda (page)
(set! (ly:prob-property page 'stencil)
(stencil-with-color (ly:prob-property page 'stencil) color)))
pages))))
}
Cheers,
Harm
