2 % common Swedish names for notes. "ess" means flat, "iss" means sharp
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 ))