\version "2.24.2"

% August/September 2023, by Ruud Harmsen
% Explication: https://rudhar.com/musica/hwedwortehun/ia03.htm

%{ Reference tone here is equal temperament C, which
   means A is not exactly 440 Hz, but slightly higher.
   That is undesirable. See below for a corrected table,
   which has A as its reference.
   
hwedwortehunPitchNames = #`(
  (c      . ,(ly:make-pitch -1 0        0))
  (cis    . ,(ly:make-pitch -1 0  104955/200000))
  (d      . ,(ly:make-pitch -1 1    3910/200000))
  (dis    . ,(ly:make-pitch -1 1   97513/200000))
  (es     . ,(ly:make-pitch -1 1   97513/200000))
  (e      . ,(ly:make-pitch -1 2  -13686/200000))
  (eih    . ,(ly:make-pitch -1 2   70781/200000))
  (f      . ,(ly:make-pitch -1 3  -29219/200000))
  (fih    . ,(ly:make-pitch -1 3   51318/200000))
  (fis    . ,(ly:make-pitch -1 3  128274/200000))
  (g      . ,(ly:make-pitch -1 4    1955/200000))
  (gis    . ,(ly:make-pitch -1 4   72627/200000))
  (gisih  . ,(ly:make-pitch -1 4  140528/200000))
  (aeh    . ,(ly:make-pitch -1 4  140528/200000))
  (a      . ,(ly:make-pitch -1 5    5865/200000))
  (aih    . ,(ly:make-pitch -1 5   68826/200000))
  (b      . ,(ly:make-pitch -1 6  -11731/200000))
)
%}

hwedwortehunPitchNames = #`(
  (c      . ,(ly:make-pitch -1 0   -5865/200000))
  (cis    . ,(ly:make-pitch -1 0   99090/200000))
  (d      . ,(ly:make-pitch -1 1   -1955/200000))
  (dis    . ,(ly:make-pitch -1 1   91648/200000))
  (es     . ,(ly:make-pitch -1 1   91648/200000))
  (e      . ,(ly:make-pitch -1 2  -19551/200000))
  (eih    . ,(ly:make-pitch -1 2   64916/200000))
  (f      . ,(ly:make-pitch -1 3  -35084/200000))
  (fih    . ,(ly:make-pitch -1 3   45453/200000))
  (fis    . ,(ly:make-pitch -1 3  122409/200000))
  (g      . ,(ly:make-pitch -1 4   -3910/200000))
  (gis    . ,(ly:make-pitch -1 4   66762/200000))
  (gisih  . ,(ly:make-pitch -1 4  134663/200000))
  (aeh    . ,(ly:make-pitch -1 4  134663/200000))
  (a      . ,(ly:make-pitch -1 5       0/200000))
  (aih    . ,(ly:make-pitch -1 5   62961/200000))
  (b      . ,(ly:make-pitch -1 6  -17596/200000))
)

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

\language hwedwortehunNotos