%  Language: Alpha -------------------------------------------%
%%  Chromatic single-letter scale
%%  Raphaël André <raf@souslepont.org>
%%  \include "/home/raf/parts/alphaInclude.ly"


alpha = #(append (assoc-get 'nederlands language-pitch-names)
  `(
         (h . ,(ly:make-pitch -1 5 FLAT))
         (i . ,(ly:make-pitch -1 6 FLAT))
         (j . ,(ly:make-pitch -1 0 FLAT))
         (k . ,(ly:make-pitch -1 1 FLAT))
         (l . ,(ly:make-pitch -1 2 FLAT))
         (n . ,(ly:make-pitch -1 3 FLAT))
         (o . ,(ly:make-pitch -1 4 FLAT))
         (t . ,(ly:make-pitch -1 5 SHARP))
         (u . ,(ly:make-pitch -1 6 SHARP))
         (v . ,(ly:make-pitch -1 0 SHARP))
         (w . ,(ly:make-pitch -1 1 SHARP))
         (x . ,(ly:make-pitch -1 2 SHARP))
         (y . ,(ly:make-pitch -1 3 SHARP))
         (z . ,(ly:make-pitch -1 4 SHARP))
         (vis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
         (yis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
         (zis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
         (ies . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
         (les . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
         (hes . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  ))
pitchnames = \alpha
#(ly:parser-set-note-names pitchnames)