%{
 0    0.0 124416    1:1    --    1:1       0.0
 1   90.2 131072  256:243  --  256:243    90.2
 2  203.9 139968    9:8    -- 2187:2048  113.7
 3  294.1 147456   32:27   --  256:243    90.2
 4  407.8 157464   81:64   -- 2187:2048  113.7
 5  498.0 165888    4:3    --  256:243    90.2
 6  611.7 177147  729:512  -- 2187:2048  113.7
 7  702.0 186624    3:2    --  256:243    90.2
 8  792.2 196608  128:81   --  256:243    90.2
 9  905.9 209952   27:16   -- 2187:2048  113.7
10  996.1 221184   16:9    --  256:243    90.2
11 1109.8 236196  243:128  -- 2187:2048  113.7
12 1200.0 248832    2:1    --  256:243    90.2
%}

justePitchNames = #`(
  (  c . ,(ly:make-pitch -1 0    0/200))
  (bis . ,(ly:make-pitch -1 0    0/200))
  (cis . ,(ly:make-pitch -1 0  114/200))
  (des . ,(ly:make-pitch -1 0  114/200))
  (  d . ,(ly:make-pitch -1 1    4/200))
  (dis . ,(ly:make-pitch -1 1  118/200))
  ( es . ,(ly:make-pitch -1 1  118/200))
  (  e . ,(ly:make-pitch -1 2    8/200))
  (  f . ,(ly:make-pitch -1 3   22/200))
  (eis . ,(ly:make-pitch -1 3   22/200))
  (fis . ,(ly:make-pitch -1 3  112/200))
  (ges . ,(ly:make-pitch -1 3  112/200))
  (  g . ,(ly:make-pitch -1 4    2/200))
  (gis . ,(ly:make-pitch -1 4  116/200))
  ( as . ,(ly:make-pitch -1 4  116/200))
  (  a . ,(ly:make-pitch -1 5    6/200))
  (ais . ,(ly:make-pitch -1 5  120/200))
  (bes . ,(ly:make-pitch -1 5  120/200))
  (  b . ,(ly:make-pitch -1 6   10/200))
)

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

\language justeNotos