%{
 0    0.0    216    1:1    --    0:0       0.0
 1   93.6    228   19:18   --   19:18     93.6
 2  182.4    240   10:9    --   20:19     88.8
 3  294.1    256   32:27   --   16:15    111.7
 4  386.3    270    5:4    --  135:128    92.2
 5  498.0    288    4:3    --   16:15    111.7
 6  603.0    306   17:12   --   17:16    105.0
 7  702.0    324    3:2    --   18:17     99.0
 8  795.6    342   19:12   --   19:18     93.6
 9  884.4    360    5:3    --   20:19     88.8
10  996.1    384   16:9    --   16:15    111.7
11 1088.3    405   15:8    --  135:128    92.2
12 1200.0    432    2:1    --   16:15    111.7
%}

justePitchNames = #`(
  (  c . ,(ly:make-pitch -1 0   -6/200))
  (bis . ,(ly:make-pitch -1 0   -6/200))
  (cis . ,(ly:make-pitch -1 0   86/200))
  (des . ,(ly:make-pitch -1 0   86/200))
  (  d . ,(ly:make-pitch -1 1   -2/200))
  (dis . ,(ly:make-pitch -1 1   92/200))
  ( es . ,(ly:make-pitch -1 1   92/200))
  (  e . ,(ly:make-pitch -1 2  -20/200))
  (  f . ,(ly:make-pitch -1 3   -8/200))
  (eis . ,(ly:make-pitch -1 3   -8/200))
  (fis . ,(ly:make-pitch -1 3   84/200))
  (ges . ,(ly:make-pitch -1 3   84/200))
  (  g . ,(ly:make-pitch -1 4   -4/200))
  (gis . ,(ly:make-pitch -1 4  101/200))
  ( as . ,(ly:make-pitch -1 4  101/200))
  (  a . ,(ly:make-pitch -1 5    0/200))
  (ais . ,(ly:make-pitch -1 5   94/200))
  (bes . ,(ly:make-pitch -1 5   94/200))
  (  b . ,(ly:make-pitch -1 6  -18/200))
)

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

\language justeNotos