ly/svenska.ly

   1 %%%% svenska.ly -- common Swedish names for notes
   2 %%%%
   3 %%%% source file of the GNU LilyPond music typesetter
   4 %%%%
   5 %%%% (c) 1997--2009 Mats Bengtsson <mabe@violin.s3.kth.se>
   6
   7 \version "2.12.0"
   8
   9 %{
  10
  11   ess    = flat
  12   essess = double-flat
  13
  14   iss    = sharp
  15   ississ = double-sharp
  16
  17   English: c  d  e  f  g  a  bf b
  18   Swedish: c  d  e  f  g  a  b  h
  19
  20 %}
  21
  22 pitchnamesSvenska = #`(
  23         (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  24         (cess . ,(ly:make-pitch -1 0 FLAT))
  25         (c . ,(ly:make-pitch -1 0 NATURAL))
  26         (ciss . ,(ly:make-pitch -1 0 SHARP))
  27         (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  28         (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  29         (dess . ,(ly:make-pitch -1 1 FLAT))
  30         (d . ,(ly:make-pitch -1 1 NATURAL))
  31         (diss . ,(ly:make-pitch -1 1 SHARP))
  32         (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  33         (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  34         (ess . ,(ly:make-pitch -1 2 FLAT))
  35         (e . ,(ly:make-pitch -1 2 NATURAL))
  36         (eiss . ,(ly:make-pitch -1 2 SHARP))
  37         (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  38         (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  39         (fess . ,(ly:make-pitch -1 3 FLAT))
  40         (f . ,(ly:make-pitch -1 3 NATURAL))
  41         (fiss . ,(ly:make-pitch -1 3 SHARP))
  42         (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  43         (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  44         (gess . ,(ly:make-pitch -1 4 FLAT))
  45         (g . ,(ly:make-pitch -1 4 NATURAL))
  46         (giss . ,(ly:make-pitch -1 4 SHARP))
  47         (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  48         (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  49         (ass . ,(ly:make-pitch -1 5 FLAT))
  50         (a . ,(ly:make-pitch -1 5 NATURAL))
  51         (aiss . ,(ly:make-pitch -1 5 SHARP))
  52         (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  53         (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  54         (b . ,(ly:make-pitch -1 6 FLAT))
  55         (h . ,(ly:make-pitch -1 6 NATURAL))
  56         (hiss . ,(ly:make-pitch -1 6 SHARP))
  57         (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  58 )
  59
  60 pitchnames = \pitchnamesSvenska
  61
  62 #(ly:parser-set-note-names parser pitchnames)