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) 1998--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> | 4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> |
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 94 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
105 (Ambitus | 105 (Ambitus |
106 . ( | 106 . ( |
107 (axes . (,X ,Y)) | 107 (axes . (,X ,Y)) |
108 (break-align-symbol . ambitus) | 108 (break-align-symbol . ambitus) |
109 (break-visibility . ,begin-of-line-visible) | 109 (break-visibility . ,begin-of-line-visible) |
110 (non-musical . #t) | 110 (non-musical . #t) |
111 (space-alist . ( | 111 (space-alist . ( |
112 (cue-end-clef . (extra-space . 0.5)) | 112 (cue-end-clef . (extra-space . 0.5)) |
113 (clef . (extra-space . 1.15)) | 113 (clef . (extra-space . 1.15)) |
114 (cue-clef . (extra-space . 0.5)) | 114 (cue-clef . (extra-space . 0.5)) |
115 (key-signature . (extra-space . 0.0)) | 115 (key-signature . (extra-space . 1.15)) |
116 (staff-bar . (extra-space . 1.15)) | 116 (staff-bar . (extra-space . 1.15)) |
117 (time-signature . (extra-space . 1.15)) | 117 (time-signature . (extra-space . 1.15)) |
118 (first-note . (fixed-space . 0.0)))) | 118 (first-note . (extra-space . 1.15)))) |
119 (X-extent . ,ly:axis-group-interface::width) | 119 (X-extent . ,ly:axis-group-interface::width) |
120 (Y-extent . ,axis-group-interface::height) | 120 (Y-extent . ,axis-group-interface::height) |
121 (meta . ((class . Item) | 121 (meta . ((class . Item) |
122 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 122 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
123 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) | 123 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) |
124 (interfaces . (ambitus-interface | 124 (interfaces . (ambitus-interface |
125 axis-group-interface | 125 axis-group-interface |
126 break-aligned-interface)))))) | 126 break-aligned-interface)))))) |
127 | 127 |
128 (AmbitusAccidental | 128 (AmbitusAccidental |
(...skipping 2733 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2862 ;; make sure that \property Foo.Bar =\turnOff doesn't complain | 2862 ;; make sure that \property Foo.Bar =\turnOff doesn't complain |
2863 | 2863 |
2864 (for-each (lambda (x) | 2864 (for-each (lambda (x) |
2865 ;; (display (car x)) (newline) | 2865 ;; (display (car x)) (newline) |
2866 | 2866 |
2867 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) | 2867 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) |
2868 (set-object-property! (car x) 'is-grob? #t)) | 2868 (set-object-property! (car x) 'is-grob? #t)) |
2869 all-grob-descriptions) | 2869 all-grob-descriptions) |
2870 | 2870 |
2871 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) | 2871 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) |
LEFT | RIGHT |