LEFT | RIGHT |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2004--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2004--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 ;;;; GNU General Public License for more details. | 13 ;;;; GNU General Public License for more details. |
(...skipping 193 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
207 | 207 |
208 | 208 |
209 ;; a function to add new clefs at runtime | 209 ;; a function to add new clefs at runtime |
210 (define-public (add-new-clef clef-name clef-glyph clef-position octavation c0-po
sition) | 210 (define-public (add-new-clef clef-name clef-glyph clef-position octavation c0-po
sition) |
211 "Append the entries for a clef symbol to supported clefs and | 211 "Append the entries for a clef symbol to supported clefs and |
212 @code{c0-pitch-alist}." | 212 @code{c0-pitch-alist}." |
213 (set! supported-clefs | 213 (set! supported-clefs |
214 (acons clef-name (list clef-glyph clef-position octavation) supported-cl
efs)) | 214 (acons clef-name (list clef-glyph clef-position octavation) supported-cl
efs)) |
215 (set! c0-pitch-alist | 215 (set! c0-pitch-alist |
216 (acons clef-glyph c0-position c0-pitch-alist))) | 216 (acons clef-glyph c0-position c0-pitch-alist))) |
LEFT | RIGHT |