ly/svenska.ly

   1 %
   2 % common Swedish names for notes. "ess" means flat, "iss" means sharp
   3 %
   4 % by Mats Bengtsson.
   5
   6 pitchnamesSvenska = #`(
   7         (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
   8         (cess . ,(ly:make-pitch -1 0 FLAT))
   9         (c . ,(ly:make-pitch -1 0 NATURAL))
  10         (ciss . ,(ly:make-pitch -1 0 SHARP))
  11         (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  12         (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  13         (dess . ,(ly:make-pitch -1 1 FLAT))
  14         (d . ,(ly:make-pitch -1 1 NATURAL))
  15         (diss . ,(ly:make-pitch -1 1 SHARP))
  16         (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  17         (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  18         (ess . ,(ly:make-pitch -1 2 FLAT))
  19         (e . ,(ly:make-pitch -1 2 NATURAL))
  20         (eiss . ,(ly:make-pitch -1 2 SHARP))
  21         (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  22         (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  23         (fess . ,(ly:make-pitch -1 3 FLAT))
  24         (f . ,(ly:make-pitch -1 3 NATURAL))
  25         (fiss . ,(ly:make-pitch -1 3 SHARP))
  26         (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  27         (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  28         (gess . ,(ly:make-pitch -1 4 FLAT))
  29         (g . ,(ly:make-pitch -1 4 NATURAL))
  30         (giss . ,(ly:make-pitch -1 4 SHARP))
  31         (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  32         (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  33         (ass . ,(ly:make-pitch -1 5 FLAT))
  34         (a . ,(ly:make-pitch -1 5 NATURAL))
  35         (aiss . ,(ly:make-pitch -1 5 SHARP))
  36         (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  37         (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  38         (b . ,(ly:make-pitch -1 6 FLAT))
  39         (h . ,(ly:make-pitch -1 6 NATURAL))
  40         (hiss . ,(ly:make-pitch -1 6 SHARP))
  41         (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  42 )
  43
  44 pitchnames = \pitchnamesSvenska
  45 \version "2.7.39"
  46
  47 #(ly:parser-set-note-names parser pitchnames)