Hi Thomas Morley
This code fully solved the problem...
Thanks very much.
Givaldo de Cidra
2013/8/14 Thomas Morley <thomasmorle...@gmail.com>
> 2013/7/28 Givaldo de Cidra <givaldodeci...@gmail.com>
> >
> >
> > \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
>
--
Abraços,
Givaldo de Cidra
"Ser e Pensar Sempre no Objetivo é o Caminho para Alcançar o Sucesso"
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
