How to change spacing between accidentals?

[Andreas v. Heydwolff]

Oops, sorry, forgot to tell: dev. version 2.11.14-2
and Thunderbird crashed while sending the mail, so here it is once more:


Hello all,

Han-Wen is doing a great job of helping a few interested people
including me to get Lilypond do Turkish Makam music with its 9/9
microtone steps between full notes. For those interested, "Makam" has
several etymologies, a common shared definition is that the term Makam
comprises the scale in which a melody is written inseparably seen
together with the typical movement this Makam represents (e.g., start
high, end low on a, or start in the middle, move up and then go down and
end low on g). See more at http://en.wikipedia.org/wiki/Makam.

However, the accidentals of some of the Makams are too close together.
Han-Wen pointed me to the list for help which I am seeking, please.

  \override Staff.AccidentalPlacement #'padding = #'5.0

with various numbers inserted had no effect so far. Any help is highly
appreciated.

An example source file is below. As no init file is included yet in LP
the initializations take up most of the space of this example, but some
actual score follows far below.

Regards,

Andreas v. Heydwolff

--

\header {

  texidoc = "Makam is Turkish type of melody that uses 1/9 tone
  microtonal alterations."

       title = "accidentals too close"

}
% #(set-default-paper-size "a4")
\paper

{
  ragged-right = ##t
%   linewidth = 160 \mm

}


\version "2.11.14"


%{

Define 1/9 alterations.

%}


#(define-public KOMA 1/9)
#(define-public EKSIK 3/9)
#(define-public BAKIYE 4/9)
#(define-public KUCUK 5/9)
#(define-public BUYUKMUCENNEB 8/9)

%{

Define pitch names

%}

makamPitchNames = #`(
  (c . ,(ly:make-pitch -1 0 NATURAL))
  (d . ,(ly:make-pitch -1 1 NATURAL))
  (e . ,(ly:make-pitch -1 2 NATURAL))
  (f . ,(ly:make-pitch -1 3 NATURAL))
  (g . ,(ly:make-pitch -1 4 NATURAL))
  (a . ,(ly:make-pitch -1 5 NATURAL))
  (b . ,(ly:make-pitch -1 6 NATURAL))

  (cc . ,(ly:make-pitch -1 0 KOMA))
  (dc . ,(ly:make-pitch -1 1 KOMA))
  (ec . ,(ly:make-pitch -1 2 KOMA))
  (fc . ,(ly:make-pitch -1 3 KOMA))
  (gc . ,(ly:make-pitch -1 4 KOMA))
  (ac . ,(ly:make-pitch -1 5 KOMA))
  (bc . ,(ly:make-pitch -1 6 KOMA))

  (cb . ,(ly:make-pitch -1 0 BAKIYE))
  (db . ,(ly:make-pitch -1 1 BAKIYE))
  (eb . ,(ly:make-pitch -1 2 BAKIYE))
  (fb . ,(ly:make-pitch -1 3 BAKIYE))
  (gb . ,(ly:make-pitch -1 4 BAKIYE))
  (ab . ,(ly:make-pitch -1 5 BAKIYE))
  (bb . ,(ly:make-pitch -1 6 BAKIYE))

  (ck . ,(ly:make-pitch -1 0 KUCUK))
  (dk . ,(ly:make-pitch -1 1 KUCUK))
  (ek . ,(ly:make-pitch -1 2 KUCUK))
  (fk . ,(ly:make-pitch -1 3 KUCUK))
  (gk . ,(ly:make-pitch -1 4 KUCUK))
  (ak . ,(ly:make-pitch -1 5 KUCUK))
  (bk . ,(ly:make-pitch -1 6 KUCUK))

  (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
  (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
  (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
  (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
  (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
  (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
  (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))

  ;; f for flat.
  (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
  (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
  (efc . ,(ly:make-pitch -1 2 (- KOMA)))
  (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
  (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
  (afc . ,(ly:make-pitch -1 5 (- KOMA)))
  (bfc . ,(ly:make-pitch -1 6 (- KOMA)))

  (cfe . ,(ly:make-pitch -1 0 (- EKSIK)))
  (dfe . ,(ly:make-pitch -1 1 (- EKSIK)))
  (efe . ,(ly:make-pitch -1 2 (- EKSIK)))
  (ffe . ,(ly:make-pitch -1 3 (- EKSIK)))
  (gfe . ,(ly:make-pitch -1 4 (- EKSIK)))
  (afe . ,(ly:make-pitch -1 5 (- EKSIK)))
  (bfe . ,(ly:make-pitch -1 6 (- EKSIK)))

  (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
  (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
  (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
  (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
  (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
  (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
  (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))

  (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
  (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
  (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
  (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
  (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
  (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
  (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))

  (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
  (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
  (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
  (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
  (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
  (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
  (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))

)


%% set pitch names.
pitchnames = \makamPitchNames
#(ly:parser-set-note-names parser makamPitchNames)


makamGlyphs = #'((1 . "accidentals.doublesharp")
       (8/9 . "accidentals.sharp.slashslashslash.stemstem")
       (5/9 . "accidentals.sharp.slashslashslash.stem")
       (4/9 . "accidentals.sharp")
       (1/9 . "accidentals.sharp.slashslash.stem")
       (0 . "accidentals.natural")
       (-1/9 . "accidentals.mirroredflat")
       (-4/9 . "accidentals.flat.slash")
       (-5/18 . "accidentals.mirroredflat")
       (-5/9 . "accidentals.flat")
       (-8/9 . "accidentals.flat.slashslash")
       (-1 . "accidentals.flatflat")
       )

\score {
  \relative a'' {
   \autoBeamOff
  %{ define alteration <-> symbol mapping. The following glyphs are
available.

  accidentals.sharp
  accidentals.sharp.slashslash.stem
  accidentals.sharp.slashslashslash.stemstem
  accidentals.sharp.slashslashslash.stem
  accidentals.sharp.slashslash.stemstemstem
  accidentals.natural
  accidentals.flat
  accidentals.flat.slash
  accidentals.flat.slashslash
  accidentals.mirroredflat.flat
  accidentals.mirroredflat
  accidentals.flatflat
  accidentals.flatflat.slash
  accidentals.doublesharp

  %}


 \override Accidental #'glyph-name-alist =  \makamGlyphs
 \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
%  \override Staff.AccidentalPlacement #'padding = #'5.0
%  \set Staff.printKeyCancellation = ##f

  \set Staff.keySignature =  #'(
    (1 . -4/9)
    (6 . -1/9))
\time 4/4
c,4^\markup { SABA }~c c c c4. dfb8 dfb4 \acciaccatura e8 dfb8[ c]
\acciaccatura dfb8 c8[ bfc] \bar "|" \break


  \set Staff.keySignature =  #'(
    (3 .  4/9)
    (5 . -4/9)
    (2 . -4/9)
    (6 . -1/9))

d4^\markup { HICAZKAR } g2 g8[ afb g fb] \bar "|" \break


  \set Staff.keySignature =  #'(
    (0 .  4/9)
    (3 .  4/9)
    (2 . -4/9)
    (6 . -4/9))
\time 7/4
d2^\markup { SEDARABAN } efb8[ fb] efb8.[ d16] cb8[ efb] \bar "|" \break

  \set Staff.keySignature =  #'(
    (3 . 4/9)
    (6 . -1/9))

\time 8/8
f16^\markup { NEVA }[ e d e] d4 d8[ bfc] c[ d] \bar "|" \break

  \set Staff.keySignature =  #'(
    (0 . 4/9)
    (6 . -4/9))
\time 2/4
g,8^\markup { HICAZ }[ a] bfb16[ cb8.]


}
}