%{
 0    0.0 232560    1:1    --    0:0       0.0
 1  105.0 247095   17:16   --   17:16    105.0
 2  203.9 261630    9:8    --   18:17     99.0
 3  297.5 276165   19:16   --   19:18     93.6
 4  386.3 290700    5:4    --   20:19     88.8
 5  498.0 310080    4:3    --   16:15    111.7
 6  597.0 328320   24:17   --   18:17     99.0
 7  702.0 348840    3:2    --   17:16    105.0
 8  813.7 372096    8:5    --   16:15    111.7
 9  902.5 391680   32:19   --   20:19     88.8
10  996.1 413440   16:9    --   19:18     93.6
11 1095.0 437760   32:17   --   18:17     99.0
12 1200.0 465120    2:1    --   17:16    105.0
%}

justePitchNames = #`(
  (  c . ,(ly:make-pitch -1 0    0/200))
  (bis . ,(ly:make-pitch -1 0    0/200))
  (cis . ,(ly:make-pitch -1 0   99/200))
  (des . ,(ly:make-pitch -1 0   99/200))
  (  d . ,(ly:make-pitch -1 1   -7/200))
  (dis . ,(ly:make-pitch -1 1   81/200))
  ( es . ,(ly:make-pitch -1 1   81/200))
  (  e . ,(ly:make-pitch -1 2   -7/200))
  (  f . ,(ly:make-pitch -1 3   -8/200))
  (eis . ,(ly:make-pitch -1 3   -8/200))
  (fis . ,(ly:make-pitch -1 3   97/200))
  (ges . ,(ly:make-pitch -1 3   97/200))
  (  g . ,(ly:make-pitch -1 4    9/200))
  (gis . ,(ly:make-pitch -1 4   98/200))
  ( as . ,(ly:make-pitch -1 4   98/200))
  (  a . ,(ly:make-pitch -1 5   -9/200))
  (ais . ,(ly:make-pitch -1 5   90/200))
  (bes . ,(ly:make-pitch -1 5   90/200))
  (  b . ,(ly:make-pitch -1 6   -5/200))
)

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

\language justeNotos