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--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 154 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
165 font-interface | 165 font-interface |
166 ledgered-interface | 166 ledgered-interface |
167 note-head-interface | 167 note-head-interface |
168 rhythmic-head-interface | 168 rhythmic-head-interface |
169 staff-symbol-referencer-interface)))))) | 169 staff-symbol-referencer-interface)))))) |
170 | 170 |
171 (Arpeggio | 171 (Arpeggio |
172 . ( | 172 . ( |
173 (cross-staff . ,ly:arpeggio::calc-cross-staff) | 173 (cross-staff . ,ly:arpeggio::calc-cross-staff) |
174 (direction . ,LEFT) | 174 (direction . ,LEFT) |
| 175 (line-thickness . 1) |
175 (padding . 0.5) | 176 (padding . 0.5) |
176 (positions . ,ly:arpeggio::calc-positions) | 177 (positions . ,ly:arpeggio::calc-positions) |
177 (protrusion . 0.4) | 178 (protrusion . 0.4) |
178 (script-priority . 0) | 179 (script-priority . 0) |
179 (side-axis . ,X) | 180 (side-axis . ,X) |
180 (staff-position . 0.0) | 181 (staff-position . 0.0) |
181 (stencil . ,ly:arpeggio::print) | 182 (stencil . ,ly:arpeggio::print) |
| 183 (thickness . 1) |
182 (X-extent . ,ly:arpeggio::width) | 184 (X-extent . ,ly:arpeggio::width) |
183 (Y-extent . ,(grob::unpure-Y-extent-from-stencil ly:arpeggio::pure-heigh
t)) | 185 (Y-extent . ,(grob::unpure-Y-extent-from-stencil ly:arpeggio::pure-heigh
t)) |
184 (X-offset . ,ly:side-position-interface::x-aligned-side) | 186 (X-offset . ,ly:side-position-interface::x-aligned-side) |
185 (Y-offset . ,staff-symbol-referencer::callback) | 187 (Y-offset . ,staff-symbol-referencer::callback) |
186 (meta . ((class . Item) | 188 (meta . ((class . Item) |
187 (interfaces . (arpeggio-interface | 189 (interfaces . (arpeggio-interface |
188 font-interface | 190 font-interface |
189 side-position-interface | 191 side-position-interface |
190 staff-symbol-referencer-interface)))))) | 192 staff-symbol-referencer-interface)))))) |
191 | 193 |
(...skipping 2666 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2858 ;; make sure that \property Foo.Bar =\turnOff doesn't complain | 2860 ;; make sure that \property Foo.Bar =\turnOff doesn't complain |
2859 | 2861 |
2860 (for-each (lambda (x) | 2862 (for-each (lambda (x) |
2861 ;; (display (car x)) (newline) | 2863 ;; (display (car x)) (newline) |
2862 | 2864 |
2863 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) | 2865 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) |
2864 (set-object-property! (car x) 'is-grob? #t)) | 2866 (set-object-property! (car x) 'is-grob? #t)) |
2865 all-grob-descriptions) | 2867 all-grob-descriptions) |
2866 | 2868 |
2867 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) | 2869 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) |
LEFT | RIGHT |