justePitchNames = #`(
  (  c  . ,(ly:make-pitch -1 0    0/200))
  (  e  . ,(ly:make-pitch -1 2    0/200))
  (  f  . ,(ly:make-pitch -1 3    0/200))
  (  g  . ,(ly:make-pitch -1 4    0/200))
  (gis  . ,(ly:make-pitch -1 4  100/200))
  ( as  . ,(ly:make-pitch -1 4  100/200))
  (  a  . ,(ly:make-pitch -1 5    0/200))

  (  cp . ,(ly:make-pitch -1 0   -6/200))
  (  ep . ,(ly:make-pitch -1 2    2/200))
  (  fp . ,(ly:make-pitch -1 3   -8/200))
  (  gp . ,(ly:make-pitch -1 4   -4/200))
  (gisp . ,(ly:make-pitch -1 4  110/200))
  ( asp . ,(ly:make-pitch -1 4   86/200))

  (  ca . ,(ly:make-pitch -1 0   16/200))
  (  ea . ,(ly:make-pitch -1 2    2/200))
  (  fa . ,(ly:make-pitch -1 3   14/200))
  (  ga . ,(ly:make-pitch -1 4   18/200))
  (gisa . ,(ly:make-pitch -1 4   88/200))
  ( asa . ,(ly:make-pitch -1 4  129/200))

  ( chl . ,(ly:make-pitch -1 0   -2/200))
  (  ch . ,(ly:make-pitch -1 0   16/200))
  (  eh . ,(ly:make-pitch -1 2    2/200))
  ( fhl . ,(ly:make-pitch -1 3   -4/200))
  (  fh . ,(ly:make-pitch -1 3   14/200))
  ( ghl . ,(ly:make-pitch -1 4   -4/200))
  (  gh . ,(ly:make-pitch -1 4   18/200))
  (gish . ,(ly:make-pitch -1 4   88/200))
  (ashl . ,(ly:make-pitch -1 4  101/200))
  ( ash . ,(ly:make-pitch -1 4  111/200))
)

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

\language justeNotos