ly/svenska.ly

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