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.] } } _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user