Re: change the key signature

[Thomas Morley]

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