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 136 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
147 (thickness . 2) | 147 (thickness . 2) |
148 (X-offset . ,ly:self-alignment-interface::centered-on-x-parent) | 148 (X-offset . ,ly:self-alignment-interface::centered-on-x-parent) |
149 (meta . ((class . Item) | 149 (meta . ((class . Item) |
150 (interfaces . (ambitus-interface | 150 (interfaces . (ambitus-interface |
151 font-interface)))))) | 151 font-interface)))))) |
152 | 152 |
153 (AmbitusNoteHead | 153 (AmbitusNoteHead |
154 . ( | 154 . ( |
155 (duration-log . 2) | 155 (duration-log . 2) |
156 (glyph-name . ,note-head::calc-glyph-name) | 156 (glyph-name . ,note-head::calc-glyph-name) |
| 157 (ignore-ambitus . #t) |
157 (stencil . ,ly:note-head::print) | 158 (stencil . ,ly:note-head::print) |
158 (Y-offset . ,staff-symbol-referencer::callback) | 159 (Y-offset . ,staff-symbol-referencer::callback) |
159 (Y-extent . ,grob::always-Y-extent-from-stencil) | 160 (Y-extent . ,grob::always-Y-extent-from-stencil) |
160 (meta . ((class . Item) | 161 (meta . ((class . Item) |
161 (interfaces . (ambitus-interface | 162 (interfaces . (ambitus-interface |
162 font-interface | 163 font-interface |
163 ledgered-interface | 164 ledgered-interface |
164 note-head-interface | 165 note-head-interface |
165 rhythmic-head-interface | 166 rhythmic-head-interface |
166 staff-symbol-referencer-interface)))))) | 167 staff-symbol-referencer-interface)))))) |
(...skipping 1989 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2156 (interfaces . ()))))) | 2157 (interfaces . ()))))) |
2157 | 2158 |
2158 (StemTremolo | 2159 (StemTremolo |
2159 . ( | 2160 . ( |
2160 (beam-thickness . 0.48) ; staff-space | 2161 (beam-thickness . 0.48) ; staff-space |
2161 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space | 2162 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space |
2162 (direction . ,ly:stem-tremolo::calc-direction) | 2163 (direction . ,ly:stem-tremolo::calc-direction) |
2163 (parent-alignment-X . ,CENTER) | 2164 (parent-alignment-X . ,CENTER) |
2164 (slope . ,ly:stem-tremolo::calc-slope) | 2165 (slope . ,ly:stem-tremolo::calc-slope) |
2165 (stencil . ,ly:stem-tremolo::print) | 2166 (stencil . ,ly:stem-tremolo::print) |
2166 (style . ,ly:stem-tremolo::calc-style) | 2167 (shape . ,ly:stem-tremolo::calc-shape) |
2167 (X-extent . ,ly:stem-tremolo::width) | 2168 (X-extent . ,ly:stem-tremolo::width) |
2168 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) | 2169 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) |
2169 (Y-extent . ,(grob::unpure-Y-extent-from-stencil ly:stem-tremolo::pure-h
eight)) | 2170 (Y-extent . ,(grob::unpure-Y-extent-from-stencil ly:stem-tremolo::pure-h
eight)) |
2170 (Y-offset . ,(ly:make-unpure-pure-container ly:stem-tremolo::calc-y-offs
et ly:stem-tremolo::pure-calc-y-offset)) | 2171 (Y-offset . ,(ly:make-unpure-pure-container ly:stem-tremolo::calc-y-offs
et ly:stem-tremolo::pure-calc-y-offset)) |
2171 (meta . ((class . Item) | 2172 (meta . ((class . Item) |
2172 (interfaces . (self-alignment-interface | 2173 (interfaces . (self-alignment-interface |
2173 stem-tremolo-interface)))))) | 2174 stem-tremolo-interface)))))) |
2174 | 2175 |
2175 (StringNumber | 2176 (StringNumber |
2176 . ( | 2177 . ( |
(...skipping 657 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2834 ;; make sure that \property Foo.Bar =\turnOff doesn't complain | 2835 ;; make sure that \property Foo.Bar =\turnOff doesn't complain |
2835 | 2836 |
2836 (for-each (lambda (x) | 2837 (for-each (lambda (x) |
2837 ;; (display (car x)) (newline) | 2838 ;; (display (car x)) (newline) |
2838 | 2839 |
2839 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) | 2840 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) |
2840 (set-object-property! (car x) 'is-grob? #t)) | 2841 (set-object-property! (car x) 'is-grob? #t)) |
2841 all-grob-descriptions) | 2842 all-grob-descriptions) |
2842 | 2843 |
2843 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) | 2844 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) |
LEFT | RIGHT |