release: 1.3.107

[lilypond.git] / ly / svenska.ly

diff --git a/ly/svenska.ly b/ly/svenska.ly
index d5422ce6465854a8624f6545aff3bd776a9f4c65..8fdb6abcc148cdfeaf19174974ed25eee651127e 100644 (file)
--- a/ly/svenska.ly
+++ b/ly/svenska.ly
@@ -3,84 +3,41 @@
 %
 % by Mats Bengtsson.
 
-\notenames {
-       cessess = \musicalpitch { -1 0 -2 }
-       cess    = \musicalpitch { -1 0 -1 }
-       c       = \musicalpitch { -1 0 0 }
-       ciss    = \musicalpitch { -1 0 1 }
-       cississ = \musicalpitch { -1 0 2 }
-       dessess = \musicalpitch { -1 1 -2 }
-       dess    = \musicalpitch { -1 1 -1 }
-       d       = \musicalpitch { -1 1 0 }
-       diss    = \musicalpitch { -1 1 1 }
-       dississ = \musicalpitch { -1 1 2 }
-       essess  = \musicalpitch { -1 2 -2 }
-       ess     = \musicalpitch { -1 2 -1 }
-       e       = \musicalpitch { -1 2 0 }
-       eiss    = \musicalpitch { -1 2 1 }
-       eississ = \musicalpitch { -1 2 2 }
-       fessess = \musicalpitch { -1 3 -2 }
-       fess    = \musicalpitch { -1 3 -1 }
-       f       = \musicalpitch { -1 3 0 }
-       fiss    = \musicalpitch { -1 3 1 }
-       fississ = \musicalpitch { -1 3 2 }
-       gessess = \musicalpitch { -1 4 -2 }
-       gess    = \musicalpitch { -1 4 -1 }
-       g       = \musicalpitch { -1 4 0 }
-       giss    = \musicalpitch { -1 4 1 }
-       gississ = \musicalpitch { -1 4 2 }
-       assess  = \musicalpitch { -1 5 -2 }
-       ass     = \musicalpitch { -1 5 -1 }
-       a       = \musicalpitch { -1 5 0 }
-       aiss    = \musicalpitch { -1 5 1 }
-       aississ = \musicalpitch { -1 5 2 }
-       hessess = \musicalpitch { -1 6 -2 }
-       b       = \musicalpitch { -1 6 -1 }
-       h       = \musicalpitch { -1 6 0 }
-       hiss    = \musicalpitch { -1 6 1 }
-       hississ = \musicalpitch { -1 6 2 }
-
-
-       %
-       % upper case: 1 octave lower.
-       %
-
-
-       Cessess = \musicalpitch { -2 0 -2 }
-       Cess    = \musicalpitch { -2 0 -1 }
-       C       = \musicalpitch { -2 0 0 }
-       Ciss    = \musicalpitch { -2 0 1 }
-       Cississ = \musicalpitch { -2 0 2 }
-       Dessess = \musicalpitch { -2 1 -2 }
-       Dess    = \musicalpitch { -2 1 -1 }
-       D       = \musicalpitch { -2 1 0 }
-       Diss    = \musicalpitch { -2 1 1 }
-       Dississ = \musicalpitch { -2 1 2 }
-       Essess  = \musicalpitch { -2 2 -2 }
-       Ess     = \musicalpitch { -2 2 -1 }
-       E       = \musicalpitch { -2 2 0 }
-       Eiss    = \musicalpitch { -2 2 1 }
-       Eississ = \musicalpitch { -2 2 2 }
-       Fessess = \musicalpitch { -2 3 -2 }
-       Fess    = \musicalpitch { -2 3 -1 }
-       F       = \musicalpitch { -2 3 0 }
-       Fiss    = \musicalpitch { -2 3 1 }
-       Fississ = \musicalpitch { -2 3 2 }
-       Gessess = \musicalpitch { -2 4 -2 }
-       Gess    = \musicalpitch { -2 4 -1 }
-       G       = \musicalpitch { -2 4 0 }
-       Giss    = \musicalpitch { -2 4 1 }
-       Gississ = \musicalpitch { -2 4 2 }
-       Assess  = \musicalpitch { -2 5 -2 }
-       Ass     = \musicalpitch { -2 5 -1 }
-       A       = \musicalpitch { -2 5 0 }
-       Aiss    = \musicalpitch { -2 5 1 }
-       Aississ = \musicalpitch { -2 5 2 }
-       Hessess = \musicalpitch { -2 6 -2 }
-       B       = \musicalpitch { -2 6 -1 }
-       H       = \musicalpitch { -2 6 0 }
-       Hiss    = \musicalpitch { -2 6 1 }
-       Hississ = \musicalpitch { -2 6 2 }
-
-
-}
+\notenames #'(
+       (cessess . ,(make-pitch -1 0 -2 ))
+       (cess . ,(make-pitch -1 0 -1 ))
+       (c . ,(make-pitch -1 0 0 ))
+       (ciss . ,(make-pitch -1 0 1 ))
+       (cississ . ,(make-pitch -1 0 2 ))
+       (dessess . ,(make-pitch -1 1 -2 ))
+       (dess . ,(make-pitch -1 1 -1 ))
+       (d . ,(make-pitch -1 1 0 ))
+       (diss . ,(make-pitch -1 1 1 ))
+       (dississ . ,(make-pitch -1 1 2 ))
+       (essess . ,(make-pitch -1 2 -2 ))
+       (ess . ,(make-pitch -1 2 -1 ))
+       (e . ,(make-pitch -1 2 0 ))
+       (eiss . ,(make-pitch -1 2 1 ))
+       (eississ . ,(make-pitch -1 2 2 ))
+       (fessess . ,(make-pitch -1 3 -2 ))
+       (fess . ,(make-pitch -1 3 -1 ))
+       (f . ,(make-pitch -1 3 0 ))
+       (fiss . ,(make-pitch -1 3 1 ))
+       (fississ . ,(make-pitch -1 3 2 ))
+       (gessess . ,(make-pitch -1 4 -2 ))
+       (gess . ,(make-pitch -1 4 -1 ))
+       (g . ,(make-pitch -1 4 0 ))
+       (giss . ,(make-pitch -1 4 1 ))
+       (gississ . ,(make-pitch -1 4 2 ))
+       (assess . ,(make-pitch -1 5 -2 ))
+       (ass . ,(make-pitch -1 5 -1 ))
+       (a . ,(make-pitch -1 5 0 ))
+       (aiss . ,(make-pitch -1 5 1 ))
+       (aississ . ,(make-pitch -1 5 2 ))
+       (hessess . ,(make-pitch -1 6 -2 ))
+       (b . ,(make-pitch -1 6 -1 ))
+       (h . ,(make-pitch -1 6 0 ))
+       (hiss . ,(make-pitch -1 6 1 ))
+       (hississ . ,(make-pitch -1 6 2 ))
+)
+\version "1.3.96";