OLD | NEW |
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) 2005--2011 Erik Sandberg <mandolaerik@gmail.com> | 3 ;;;; Copyright (C) 2005--2011 Erik Sandberg <mandolaerik@gmail.com> |
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, |
(...skipping 17 matching lines...) Expand all Loading... |
28 (music-event . (annotate-output-event footnote-event | 28 (music-event . (annotate-output-event footnote-event |
29 arpeggio-event breathing-event extender-event span-event | 29 arpeggio-event breathing-event extender-event span-event |
30 rhythmic-event dynamic-event break-event label-event percent-event | 30 rhythmic-event dynamic-event break-event label-event percent-event |
31 key-change-event string-number-event stroke-finger-event tie-event | 31 key-change-event string-number-event stroke-finger-event tie-event |
32 part-combine-event part-combine-force-event | 32 part-combine-event part-combine-force-event |
33 beam-forbid-event script-event tempo-change-event | 33 beam-forbid-event script-event tempo-change-event |
34 tremolo-event bend-after-event fingering-event glissando-event | 34 tremolo-event bend-after-event fingering-event glissando-event |
35 harmonic-event hyphen-event laissez-vibrer-event mark-event | 35 harmonic-event hyphen-event laissez-vibrer-event mark-event |
36 multi-measure-text-event note-grouping-event | 36 multi-measure-text-event note-grouping-event |
37 pes-or-flexa-event repeat-tie-event spacing-section-event | 37 pes-or-flexa-event repeat-tie-event spacing-section-event |
38 layout-instruction-event completize-extender-event break-span-event)) | 38 layout-instruction-event completize-extender-event break-span-event |
| 39 alternative-event)) |
39 | 40 |
40 (layout-instruction-event . (apply-output-event)) | 41 (layout-instruction-event . (apply-output-event)) |
41 (script-event . (articulation-event text-script-event)) | 42 (script-event . (articulation-event text-script-event)) |
42 (part-combine-event . (solo-one-event solo-two-event unisono-event)) | 43 (part-combine-event . (solo-one-event solo-two-event unisono-event)) |
43 (break-event . (line-break-event page-break-event page-turn-event)) | 44 (break-event . (line-break-event page-break-event page-turn-event)) |
44 (dynamic-event . (absolute-dynamic-event)) | 45 (dynamic-event . (absolute-dynamic-event)) |
45 (span-event . (span-dynamic-event beam-event episema-event ligature-event | 46 (span-event . (span-dynamic-event beam-event episema-event ligature-event |
46 pedal-event phrasing-slur-event slur-event staff-span-e
vent | 47 pedal-event phrasing-slur-event slur-event staff-span-e
vent |
47 text-span-event trill-span-event tremolo-span-event | 48 text-span-event trill-span-event tremolo-span-event |
48 tuplet-span-event)) | 49 tuplet-span-event)) |
(...skipping 138 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
187 (list 'unquote `(ly:make-pitch | 188 (list 'unquote `(ly:make-pitch |
188 ,(ly:pitch-octave e) | 189 ,(ly:pitch-octave e) |
189 ,(ly:pitch-notename e) | 190 ,(ly:pitch-notename e) |
190 ,(ly:pitch-alteration e)))) | 191 ,(ly:pitch-alteration e)))) |
191 ((ly:input-location? e) | 192 ((ly:input-location? e) |
192 (list 'unquote '(ly:dummy-input-location))) | 193 (list 'unquote '(ly:dummy-input-location))) |
193 (#t e))) | 194 (#t e))) |
194 | 195 |
195 (define-public (ly:simplify-scheme e) | 196 (define-public (ly:simplify-scheme e) |
196 (list 'quasiquote (simplify e))) | 197 (list 'quasiquote (simplify e))) |
OLD | NEW |