%{
 0    0.0    480    1:1    --    0:0       0.0
 1  111.7    512   16:15   --   16:15    111.7
 2  203.9    540    9:8    --  135:128    92.2
 3  315.6    576    6:5    --   16:15    111.7
 4  386.3    600    5:4    --   25:24     70.7
 5  498.0    640    4:3    --   16:15    111.7
 6  590.2    675   45:32   --  135:128    92.2
 7  702.0    720    3:2    --   16:15    111.7
 8  813.7    768    8:5    --   16:15    111.7
 9  905.9    810   27:16   --  135:128    92.2
10 1017.6    864    9:5    --   16:15    111.7
11 1088.3    900   15:8    --   25:24     70.7
12 1200.0    960    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   92/200))
  (des . ,(ly:make-pitch -1 0   92/200))
  (  d . ,(ly:make-pitch -1 1    4/200))
  (dis . ,(ly:make-pitch -1 1   75/200))
  ( es . ,(ly:make-pitch -1 1   75/200))
  (  e . ,(ly:make-pitch -1 2  -14/200))
  (  f . ,(ly:make-pitch -1 3  -22/200))
  (eis . ,(ly:make-pitch -1 3  -22/200))
  (fis . ,(ly:make-pitch -1 3   90/200))
  (ges . ,(ly:make-pitch -1 3   90/200))
  (  g . ,(ly:make-pitch -1 4    2/200))
  (gis . ,(ly:make-pitch -1 4   94/200))
  ( as . ,(ly:make-pitch -1 4   94/200))
  (  a . ,(ly:make-pitch -1 5    6/200))
  (ais . ,(ly:make-pitch -1 5   77/200))
  (bes . ,(ly:make-pitch -1 5   77/200))
  (  b . ,(ly:make-pitch -1 6  -12/200))
)

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

\language justeNotos