|
From: | Givaldo de Cidra |
Subject: | Re: change the key signature |
Date: | Wed, 14 Aug 2013 12:01:50 -0300 |
2013/7/28 Givaldo de Cidra <address@hidden>Hi,
>
>
> \set Staff.keySignature '= # (((1. 0.), SHARP) ((1. 3.), natural))
>
> I want the key signature have a natural sign of caution.
>
> Is it possible?
I'm a bit ashamed not having found a better method.
It's Fischer-Technik/Tinkertoy at it's worst.
Anyway, here it is:
\version "2.16.2"
#(define NEARNULL 1/10000000000000)
#(define OTHERNEARNULL -1/10000000000000)
very-kludgy-method-to-get-parenthesized-accidentals-in-key-signature =
\override Staff.KeySignature #'before-line-breaking =
#(lambda (grob)
(let* ((glyph-name-alist (ly:grob-property grob 'glyph-name-alist))
(lst (list (cons NEARNULL "accidentals.leftparen")
(cons OTHERNEARNULL "accidentals.rightparen"))))
(ly:grob-set-property! grob 'glyph-name-alist
(append lst glyph-name-alist))))
\layout {
\context {
\Staff
\very-kludgy-method-to-get-parenthesized-accidentals-in-key-signature
}
}
\new Staff {
\set Staff.keySignature =
#`(((1 . 0) . ,SHARP)
((1 . 3) . ,NEARNULL)
((1 . 3) . ,NATURAL)
((1 . 3) . ,OTHERNEARNULL)
((1 . -1) . ,NEARNULL)
((1 . -1) . ,FLAT)
((1 . -1) . ,OTHERNEARNULL)
)
a'
}
Cheers,
Harm
[Prev in Thread] | Current Thread | [Next in Thread] |