%{
  al-hizaam, al-huzaam
  beh  c   d    es     fis   g   a beh
  11  12  13,33 14,167  17  18  20  22
  66  72  80    85     102 108 120 132

Extra, incidentalmente: 'e', con numeros 90 e 15

Alternative, sin quinta del lupo 108:80 = 27:20
  beh  c   d    es     fis   g   a beh
 352 396  418   495    528 600 640 704
%}

hizaamPitchNames = #`(
  (c      . ,(ly:make-pitch -1 0   15641/200000))
  (d      . ,(ly:make-pitch -1 1   -1955/200000))
  (es     . ,(ly:make-pitch -1 2  -97000/200000))
  (e      . ,(ly:make-pitch -1 2    1955/200000))
  (fis    . ,(ly:make-pitch -1 3  118642/200000))
  (g      . ,(ly:make-pitch -1 4   17596/200000))
  (a      . ,(ly:make-pitch -1 5       0/200000))
  (beh    . ,(ly:make-pitch -1 6  -34996/200000))
  (b      . ,(ly:make-pitch -1 6       0/200000))
)

%% Set pitch names.
#(set! language-pitch-names
       (append language-pitch-names
               (list `(hizaamNotos . ,hizaamPitchNames))))

\language hizaamNotos