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