[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: change the key signature
From: |
Thomas Morley |
Subject: |
Re: change the key signature |
Date: |
Wed, 14 Aug 2013 16:13:42 +0200 |
2013/7/28 Givaldo de Cidra <address@hidden>
>
>
> \set Staff.keySignature '= # (((1. 0.), SHARP) ((1. 3.), natural))
>
> I want the key signature have a natural sign of caution.
>
> Is it possible?
Hi,
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
atest-22.preview.png
Description: PNG image
- Re: change the key signature,
Thomas Morley <=