%{
 0    0.0     48    1:1    --    0:0       0.0
 1  105.0     51   17:16   --   17:16    105.0
 2  203.9     54    9:8    --   18:17     99.0
 3  297.5     57   19:16   --   19:18     93.6
 4  386.3     60    5:4    --   20:19     88.8
 5  498.0     64    4:3    --   16:15    111.7
 6  603.0     68   17:12   --   17:16    105.0
 7  702.0     72    3:2    --   18:17     99.0
 8  795.6     76   19:12   --   19:18     93.6
 9  884.4     80    5:3    --   20:19     88.8
10  989.3     85   85:48   --   17:16    105.0
11 1088.3     90   15:8    --   18:17     99.0
12 1200.0     96    2:1    --   16:15    111.7
%}

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   -2/200))
  (eis . ,(ly:make-pitch -1 3   -2/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   79/200))
  ( as . ,(ly:make-pitch -1 4   79/200))
  (  a . ,(ly:make-pitch -1 5  -16/200))
  (ais . ,(ly:make-pitch -1 5   83/200))
  (bes . ,(ly:make-pitch -1 5   83/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