[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: magic coloring of contexts
From: |
Eluze |
Subject: |
Re: magic coloring of contexts |
Date: |
Tue, 12 Jun 2012 00:30:39 +0200 |
User-agent: |
Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20120428 Thunderbird/12.0.1 |
Am 11.06.2012 18:32, schrieb David Kastrup:
It would be good if you mentioned what override-color-for-all-grobs
actually is.
I found it here:
http://lsr.dsi.unimi.it/LSR/Snippet?id=443
#(define (override-color-for-all-grobs color)
(lambda (context)
(let loop ((x all-grob-descriptions))
(if (not (null? x))
(let ((grob-name (caar x)))
(ly:context-pushpop-property context grob-name 'color color)
(loop (cdr x)))))))
Eluze