How to change spacing between accidentals?

[Andreas v. Heydwolff]

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.]


}
}