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) 1998--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2011 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 1169 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1180 (X-extent . (0 . 0)) | 1180 (X-extent . (0 . 0)) |
1181 (meta . ((class . Item) | 1181 (meta . ((class . Item) |
1182 (interfaces . (break-aligned-interface)))))) | 1182 (interfaces . (break-aligned-interface)))))) |
1183 | 1183 |
1184 (LigatureBracket | 1184 (LigatureBracket |
1185 . ( | 1185 . ( |
1186 ;; ugh. A ligature bracket is totally different from | 1186 ;; ugh. A ligature bracket is totally different from |
1187 ;; a tuplet bracket. | 1187 ;; a tuplet bracket. |
1188 | 1188 |
1189 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors) | 1189 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors) |
1190 (control-points . ,ly:tuplet-bracket::calc-control-points) | |
1191 (direction . ,UP) | 1190 (direction . ,UP) |
1192 (edge-height . (0.7 . 0.7)) | 1191 (edge-height . (0.7 . 0.7)) |
1193 (padding . 2.0) | 1192 (padding . 2.0) |
1194 (positions . ,ly:tuplet-bracket::calc-positions) | 1193 (positions . ,ly:tuplet-bracket::calc-positions) |
1195 (shorten-pair . (-0.2 . -0.2)) | 1194 (shorten-pair . (-0.2 . -0.2)) |
1196 (staff-padding . 0.25) | 1195 (staff-padding . 0.25) |
1197 (stencil . ,ly:tuplet-bracket::print) | 1196 (stencil . ,ly:tuplet-bracket::print) |
1198 (thickness . 1.6) | 1197 (thickness . 1.6) |
| 1198 (X-positions . ,ly:tuplet-bracket::calc-x-positions) |
1199 (meta . ((class . Spanner) | 1199 (meta . ((class . Spanner) |
1200 (interfaces . (line-interface | 1200 (interfaces . (line-interface |
1201 tuplet-bracket-interface)))))) | 1201 tuplet-bracket-interface)))))) |
1202 | 1202 |
1203 (LyricExtender | 1203 (LyricExtender |
1204 . ( | 1204 . ( |
1205 (minimum-length . 1.5) | 1205 (minimum-length . 1.5) |
1206 (stencil . ,ly:lyric-extender::print) | 1206 (stencil . ,ly:lyric-extender::print) |
1207 (thickness . 0.8) ; line-thickness | 1207 (thickness . 0.8) ; line-thickness |
1208 (Y-extent . (0 . 0)) | 1208 (Y-extent . (0 . 0)) |
(...skipping 1131 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2340 (meta . ((class . Spanner) | 2340 (meta . ((class . Spanner) |
2341 (interfaces . (font-interface | 2341 (interfaces . (font-interface |
2342 line-interface | 2342 line-interface |
2343 line-spanner-interface | 2343 line-spanner-interface |
2344 side-position-interface | 2344 side-position-interface |
2345 trill-spanner-interface)))))) | 2345 trill-spanner-interface)))))) |
2346 | 2346 |
2347 (TupletBracket | 2347 (TupletBracket |
2348 . ( | 2348 . ( |
2349 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors) | 2349 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors) |
2350 (control-points . ,ly:tuplet-bracket::calc-control-points) | |
2351 (cross-staff . ,ly:tuplet-bracket::calc-cross-staff) | 2350 (cross-staff . ,ly:tuplet-bracket::calc-cross-staff) |
2352 (direction . ,ly:tuplet-bracket::calc-direction) | 2351 (direction . ,ly:tuplet-bracket::calc-direction) |
2353 (edge-height . (0.7 . 0.7)) | 2352 (edge-height . (0.7 . 0.7)) |
2354 (full-length-to-extent . #t) | 2353 (full-length-to-extent . #t) |
2355 (padding . 1.1) | 2354 (padding . 1.1) |
2356 (positions . ,ly:tuplet-bracket::calc-positions) | 2355 (positions . ,ly:tuplet-bracket::calc-positions) |
2357 (shorten-pair . (-0.2 . -0.2)) | 2356 (shorten-pair . (-0.2 . -0.2)) |
2358 (staff-padding . 0.25) | 2357 (staff-padding . 0.25) |
2359 (stencil . ,ly:tuplet-bracket::print) | 2358 (stencil . ,ly:tuplet-bracket::print) |
2360 (thickness . 1.6) | 2359 (thickness . 1.6) |
| 2360 (X-positions . ,ly:tuplet-bracket::calc-x-positions) |
2361 | 2361 |
2362 (meta . ((class . Spanner) | 2362 (meta . ((class . Spanner) |
2363 (interfaces . (line-interface | 2363 (interfaces . (line-interface |
2364 tuplet-bracket-interface)))))) | 2364 tuplet-bracket-interface)))))) |
2365 | 2365 |
2366 (TupletNumber | 2366 (TupletNumber |
2367 . ( | 2367 . ( |
2368 (avoid-slur . inside) | 2368 (avoid-slur . inside) |
2369 (cross-staff . ,ly:tuplet-number::calc-cross-staff) | 2369 (cross-staff . ,ly:tuplet-number::calc-cross-staff) |
2370 (direction . ,tuplet-number::calc-direction) | 2370 (direction . ,tuplet-number::calc-direction) |
2371 (font-shape . italic) | 2371 (font-shape . italic) |
2372 (font-size . -2) | 2372 (font-size . -2) |
2373 (stencil . ,ly:tuplet-number::print) | 2373 (stencil . ,ly:tuplet-number::print) |
2374 (text . ,tuplet-number::calc-denominator-text) | 2374 (text . ,tuplet-number::calc-denominator-text) |
| 2375 (X-offset . ,ly:tuplet-number::calc-x-offset) |
| 2376 (Y-offset . ,ly:tuplet-number::calc-y-offset) |
2375 (meta . ((class . Spanner) | 2377 (meta . ((class . Spanner) |
2376 (interfaces . (font-interface | 2378 (interfaces . (font-interface |
2377 text-interface | 2379 text-interface |
2378 tuplet-number-interface)))))) | 2380 tuplet-number-interface)))))) |
2379 | 2381 |
2380 | 2382 |
2381 (UnaCordaPedal | 2383 (UnaCordaPedal |
2382 . ( | 2384 . ( |
2383 (direction . ,RIGHT) | 2385 (direction . ,RIGHT) |
2384 (extra-spacing-width . (+inf.0 . -inf.0)) | 2386 (extra-spacing-width . (+inf.0 . -inf.0)) |
(...skipping 314 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2699 (if (not (procedure? unpure)) | 2701 (if (not (procedure? unpure)) |
2700 unpure | 2702 unpure |
2701 (if (memq unpure pure-functions) | 2703 (if (memq unpure pure-functions) |
2702 (apply unpure args) | 2704 (apply unpure args) |
2703 (let ((pure (assq unpure pure-conversions-alist))) | 2705 (let ((pure (assq unpure pure-conversions-alist))) |
2704 (if pure | 2706 (if pure |
2705 (apply (cdr pure) | 2707 (apply (cdr pure) |
2706 (append | 2708 (append |
2707 (list (car args) start end) | 2709 (list (car args) start end) |
2708 (cdr args)))))))))) | 2710 (cdr args)))))))))) |
OLD | NEW |