%{
 0 b       0   1:1
 1 c     112  16:15
 2 cisk  182  10:9
 2 cisl  193  19:17
 2 cis   204   9:8
 3 dl    281  20:17
 3 d     316   6:5
 4 dis   386   5:4
 4 dish  409  19:15
 5 e     498   4:3
 6 eisl  583   7:5
 6 eis   597  24:17
 6 eish  603  17:12
 7 fis   702   3:2
 8 gl    796  19:12
 8 g     814   8:5
 9 gis   884   5:3
 9 gish  906  27:16
10 al    996  16:9
10 a    1018   9:5
11 ais  1088  15:8
11 aish 1111  19:10
11 aisi 1129  48:25
12 b    1200   2:1
%}


justePitchNames = #`(
  (  c  . ,(ly:make-pitch -1 0   12/200))
  (bis  . ,(ly:make-pitch -1 0   12/200))
  (cisk . ,(ly:make-pitch -1 0   82/200))
  (cisl . ,(ly:make-pitch -1 0   93/200))
  (cis  . ,(ly:make-pitch -1 0  104/200))
  (des  . ,(ly:make-pitch -1 0  104/200))
  ( dl  . ,(ly:make-pitch -1 1  -19/200))
  ( d   . ,(ly:make-pitch -1 1   16/200))
  (dis  . ,(ly:make-pitch -1 1   86/200))
  (dish . ,(ly:make-pitch -1 1  109/200))
  ( es  . ,(ly:make-pitch -1 1   86/200))
  (  e  . ,(ly:make-pitch -1 2   -2/200))
  (  f  . ,(ly:make-pitch -1 3   -3/200))
  (eisl . ,(ly:make-pitch -1 3  -17/200))
  (eis  . ,(ly:make-pitch -1 3   -3/200))
  (  fh . ,(ly:make-pitch -1 3    3/200))
  (eish . ,(ly:make-pitch -1 3    3/200))
  (fis  . ,(ly:make-pitch -1 3  102/200))
  (ges  . ,(ly:make-pitch -1 3  102/200))
  (  gl . ,(ly:make-pitch -1 4   -4/200))
  (  g  . ,(ly:make-pitch -1 4   14/200))
  (gis  . ,(ly:make-pitch -1 4   84/200))
  ( as  . ,(ly:make-pitch -1 4   84/200))
  (gish . ,(ly:make-pitch -1 4  106/200))
  ( ash . ,(ly:make-pitch -1 4  106/200))
  ( al  . ,(ly:make-pitch -1 5   -4/200))
  (  a  . ,(ly:make-pitch -1 5   18/200))
  (ais  . ,(ly:make-pitch -1 5   88/200))
  (bes  . ,(ly:make-pitch -1 5   88/200))
  (aish . ,(ly:make-pitch -1 5  111/200))
  (besh . ,(ly:make-pitch -1 5  111/200))
  (aisi . ,(ly:make-pitch -1 5  129/200))
  (besi . ,(ly:make-pitch -1 5  129/200))
  (  b  . ,(ly:make-pitch -1 6    0/200))
)

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

\language justeNotos