%{
 0    0.0     96    1:1    --    0:0       0.0
 1  105.0    102   17:16   --   17:16    105.0
 2  203.9    108    9:8    --   18:17     99.0
 3  297.5    114   19:16   --   19:18     93.6
 4  386.3    120    5:4    --   20:19     88.8
 5  498.0    128    4:3    --   16:15    111.7
 6  603.0    136   17:12   --   17:16    105.0
 7  702.0    144    3:2    --   18:17     99.0
 8  806.9    153   51:32   --   17:16    105.0
 9  905.9    162   27:16   --   18:17     99.0
10  999.5    171   57:32   --   19:18     93.6
11 1088.3    180   15:8    --   20:19     88.8
12 1200.0    192    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    2/200))
  (gis . ,(ly:make-pitch -1 4  101/200))
  ( as . ,(ly:make-pitch -1 4  101/200))
  (  a . ,(ly:make-pitch -1 5   -5/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