LEFT | RIGHT |
(no file at all) | |
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) 1998--2011 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2011 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 ;;;; | 5 ;;;; |
6 ;;;; LilyPond is free software: you can redistribute it and/or modify | 6 ;;;; LilyPond is free software: you can redistribute it and/or modify |
7 ;;;; it under the terms of the GNU General Public License as published by | 7 ;;;; it under the terms of the GNU General Public License as published by |
8 ;;;; the Free Software Foundation, either version 3 of the License, or | 8 ;;;; the Free Software Foundation, either version 3 of the License, or |
9 ;;;; (at your option) any later version. | 9 ;;;; (at your option) any later version. |
10 ;;;; | 10 ;;;; |
(...skipping 824 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
835 (quoted-vector (and (string? quoted-name) | 835 (quoted-vector (and (string? quoted-name) |
836 (hash-ref quote-tab quoted-name #f)))) | 836 (hash-ref quote-tab quoted-name #f)))) |
837 | 837 |
838 | 838 |
839 (if (string? quoted-name) | 839 (if (string? quoted-name) |
840 (if (vector? quoted-vector) | 840 (if (vector? quoted-vector) |
841 (begin | 841 (begin |
842 (set! (ly:music-property music 'quoted-events) quoted-vector) | 842 (set! (ly:music-property music 'quoted-events) quoted-vector) |
843 (set! (ly:music-property music 'iterator-ctor) | 843 (set! (ly:music-property music 'iterator-ctor) |
844 ly:quote-iterator::constructor)) | 844 ly:quote-iterator::constructor)) |
845 » (ly:warning (_ "cannot find quoted music: `~S'") quoted-name))) | 845 » (ly:music-message music (ly:format (_ "cannot find quoted music: `~S
'") quoted-name)))) |
846 music)) | 846 music)) |
847 | 847 |
848 | 848 |
849 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 849 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
850 ;; switch it on here, so parsing and init isn't checked (too slow!) | 850 ;; switch it on here, so parsing and init isn't checked (too slow!) |
851 ;; | 851 ;; |
852 ;; automatic music transformations. | 852 ;; automatic music transformations. |
853 | 853 |
854 (define (switch-on-debugging m) | 854 (define (switch-on-debugging m) |
855 (if (defined? 'set-debug-cell-accesses!) | 855 (if (defined? 'set-debug-cell-accesses!) |
(...skipping 611 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1467 (define-public (event-chord-notes event-chord) | 1467 (define-public (event-chord-notes event-chord) |
1468 "Return a list of all notes from @var{event-chord}." | 1468 "Return a list of all notes from @var{event-chord}." |
1469 (filter | 1469 (filter |
1470 (lambda (m) (eq? 'NoteEvent (ly:music-property m 'name))) | 1470 (lambda (m) (eq? 'NoteEvent (ly:music-property m 'name))) |
1471 (ly:music-property event-chord 'elements))) | 1471 (ly:music-property event-chord 'elements))) |
1472 | 1472 |
1473 (define-public (event-chord-pitches event-chord) | 1473 (define-public (event-chord-pitches event-chord) |
1474 "Return a list of all pitches from @var{event-chord}." | 1474 "Return a list of all pitches from @var{event-chord}." |
1475 (map (lambda (x) (ly:music-property x 'pitch)) | 1475 (map (lambda (x) (ly:music-property x 'pitch)) |
1476 (event-chord-notes event-chord))) | 1476 (event-chord-notes event-chord))) |
LEFT | RIGHT |