| 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--2012 Erik Sandberg <mandolaerik@gmail.com> | 3 ;;;; Copyright (C) 2005--2012 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 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 43 (part-combine-event . (solo-one-event solo-two-event unisono-event)) | 43 (part-combine-event . (solo-one-event solo-two-event unisono-event)) |
| 44 (break-event . (line-break-event page-break-event page-turn-event)) | 44 (break-event . (line-break-event page-break-event page-turn-event)) |
| 45 (dynamic-event . (absolute-dynamic-event)) | 45 (dynamic-event . (absolute-dynamic-event)) |
| 46 (span-event . (span-dynamic-event beam-event episema-event ligature-event | 46 (span-event . (span-dynamic-event beam-event episema-event ligature-event |
| 47 measure-counter-event pedal-event | 47 measure-counter-event pedal-event |
| 48 phrasing-slur-event slur-event | 48 phrasing-slur-event slur-event |
| 49 staff-span-event text-span-event | 49 staff-span-event text-span-event |
| 50 trill-span-event tremolo-span-event | 50 trill-span-event tremolo-span-event |
| 51 tuplet-span-event)) | 51 tuplet-span-event)) |
| 52 (span-dynamic-event . (decrescendo-event crescendo-event)) | 52 (span-dynamic-event . (decrescendo-event crescendo-event)) |
| 53 (break-span-event . (break-dynamic-span-event)) | 53 (break-span-event . (break-dynamic-span-event break-slur-event |
| 54 break-phrasing-slur-event )) |
| 54 (pedal-event . (sostenuto-event sustain-event una-corda-event)) | 55 (pedal-event . (sostenuto-event sustain-event una-corda-event)) |
| 55 (rhythmic-event . (lyric-event melodic-event multi-measure-rest-event | 56 (rhythmic-event . (lyric-event melodic-event multi-measure-rest-event |
| 56 double-percent-event percent-event | 57 double-percent-event percent-event |
| 57 repeat-slash-event rest-event | 58 repeat-slash-event rest-event |
| 58 skip-event bass-figure-event)) | 59 skip-event bass-figure-event)) |
| 59 (melodic-event . (cluster-note-event note-event)) | 60 (melodic-event . (cluster-note-event note-event)) |
| 60 (() . (Announcement)) | 61 (() . (Announcement)) |
| 61 (Announcement . (AnnounceNewContext)) | 62 (Announcement . (AnnounceNewContext)) |
| 62 )) | 63 )) |
| 63 | 64 |
| (...skipping 89 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 153 (list 'unquote `(ly:make-pitch | 154 (list 'unquote `(ly:make-pitch |
| 154 ,(ly:pitch-octave e) | 155 ,(ly:pitch-octave e) |
| 155 ,(ly:pitch-notename e) | 156 ,(ly:pitch-notename e) |
| 156 ,(ly:pitch-alteration e)))) | 157 ,(ly:pitch-alteration e)))) |
| 157 ((ly:input-location? e) | 158 ((ly:input-location? e) |
| 158 (list 'unquote '(ly:dummy-input-location))) | 159 (list 'unquote '(ly:dummy-input-location))) |
| 159 (#t e))) | 160 (#t e))) |
| 160 | 161 |
| 161 (define-public (ly:simplify-scheme e) | 162 (define-public (ly:simplify-scheme e) |
| 162 (list 'quasiquote (simplify e))) | 163 (list 'quasiquote (simplify e))) |
| OLD | NEW |
|---|
