1 % common german names for notes. "es" means flat, "is" means sharp
3 % by Roland Meier <meier@informatik.th-darmstadt.de>
4 % based on swedish.ly by Mats Bengtsson.
6 % 1999/06/09 Bjoern Jacke <bjoern.jacke@gmx.de>
7 % added asas and marked ases as `unusual'
11 (ceses
. ,(make-pitch -
1 0 -
2 ))
12 (ces
. ,(make-pitch -
1 0 -
1 ))
13 (c . ,(make-pitch -
1 0 0 ))
14 (cis . ,(make-pitch -
1 0 1 ))
15 (cisis
. ,(make-pitch -
1 0 2 ))
16 (deses
. ,(make-pitch -
1 1 -
2 ))
17 (des . ,(make-pitch -
1 1 -
1 ))
18 (d . ,(make-pitch -
1 1 0 ))
19 (dis . ,(make-pitch -
1 1 1 ))
20 (disis
. ,(make-pitch -
1 1 2 ))
21 (eses
. ,(make-pitch -
1 2 -
2 ))
22 (es . ,(make-pitch -
1 2 -
1 ))
23 (e . ,(make-pitch -
1 2 0 ))
24 (eis . ,(make-pitch -
1 2 1 ))
25 (eisis
. ,(make-pitch -
1 2 2 ))
26 (feses
. ,(make-pitch -
1 3 -
2 ))
27 (fes
. ,(make-pitch -
1 3 -
1 ))
28 (f . ,(make-pitch -
1 3 0 ))
29 (fis . ,(make-pitch -
1 3 1 ))
30 (fisis
. ,(make-pitch -
1 3 2 ))
31 (geses
. ,(make-pitch -
1 4 -
2 ))
32 (ges . ,(make-pitch -
1 4 -
1 ))
33 (g . ,(make-pitch -
1 4 0 ))
34 (gis . ,(make-pitch -
1 4 1 ))
35 (gisis
. ,(make-pitch -
1 4 2 ))
36 (asas
. ,(make-pitch -
1 5 -
2 ))
37 (ases
. ,(make-pitch -
1 5 -
2 )) ; non-standard name for asas
38 (as . ,(make-pitch -
1 5 -
1 ))
39 (a . ,(make-pitch -
1 5 0 ))
40 (ais . ,(make-pitch -
1 5 1 ))
41 (aisis
. ,(make-pitch -
1 5 2 ))
42 (heses
. ,(make-pitch -
1 6 -
2 ))
43 (b . ,(make-pitch -
1 6 -
1 ))
44 (h . ,(make-pitch -
1 6 0 ))
45 (his
. ,(make-pitch -
1 6 1 ))
46 (hisis
. ,(make-pitch -
1 6 2 ))