Re: Omitting specific symbols from key signatures

[Adam Good]

Torsten that's GREAT! Very very nice and works so well. But it's working a little too well for my purposes :)

Are you on the dev list? If you'd be willing to help me out some more I can send you a couple of files that are under development and we can address specifically the two makams that have this issue.

Let me know and thanks ahead!!

Adam

On Wed, Oct 31, 2018 at 9:08 AM Torsten Hämmerle <address@hidden> wrote:

Adam Good-3 wrote
> Thank you Torsten, unfortunately this doesn't satisfy the criteria of #3
> request, working across transpositions. If I ask for:
> \key c \KeySig
>
> ...it prints a ces in the key signature. […]

Hi Adam,

Yes, unfortunately, my trickery only works for keys with a "sharp" tonic. In
other cases, e.g. starting with a C, the artificially lowered first step in
the scale will get a flat in the key signature, which is not what you asked
for…


The consequence of all this simply is that we need a *flexible* key
signature dynamically reacting on the current tonic:
If the tonic does not take any accidental (as in your C example), do
nothing.
If, however, the tonic has an accidental (no matter if it's a sharp, a flat,
a semi-sharp or whatever) just leave it away.

So, we can't get away with just specifying a fixed, well defined key
signature, but we have to look for the current tonic and, if there's an
accidental in the key sig, remove it.

Unfortunately, the grob does not know the tonic and we have to read it from
the context.
To make it even worse, everything may change if we apply transposition.

So, based on the naturalize-pitch snipped, I've defined a \makamKey function
that reads all the music and eventually kicks out tonic accidentals from the
key signature (i.e. pitch-alist).
That way, a fis or bes tonic will never be displayed in the key signature
but will be printed each time as an individual accidental.
But a c tonic, for instance, will have no influence on the key signature
(i.e. no superfluous unwanted accidentals).

%%%%%%%%%%%
\version "2.18.2"

#(define (makam-alist tonic alist)
   (let ((tonic-step (ly:pitch-notename tonic))
         (tonic-alt (ly:pitch-alteration tonic)))
     (if (eqv? tonic-alt 0)
         alist
         (filter (lambda (s) (not (eqv? tonic-step (car s))))
                 alist))))

#(define (makam-key music)
   (let ((es (ly:music-property music 'elements))
         (e (ly:music-property music 'element))
         (tonic (ly:music-property music 'tonic))
         (pitch-alist (ly:music-property music 'pitch-alist)))
     (if (pair? es)
         (ly:music-set-property!
          music 'elements
          (map makam-key es)))
     (if (ly:music? e)
         (ly:music-set-property!
          music 'element
          (makam-key e)))
     (if (pair? pitch-alist)
         (ly:music-set-property!
          music 'pitch-alist (makam-alist tonic pitch-alist)))
     music))

makamKey =
#(define-music-function (parser location m)
   (ly:music?)
   (makam-key m))

testmusic = \makamKey \relative c' {
  \key fis \locrian fis4 g a b c d e fis
}

{ \testmusic }
\transpose fis c \testmusic
\transpose fis dis \testmusic
\transpose fis bes, \testmusic
%%%%%%%%

<http://lilypond.1069038.n5.nabble.com/file/t3887/special-makam-keysig.png>

HTH,
Torsten

a



--
Sent from: http://lilypond.1069038.n5.nabble.com/User-f3.html

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user