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--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 481 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
492 (right-edge . (extra-space . 0.1)))) | 492 (right-edge . (extra-space . 0.1)))) |
493 (stencil . ,ly:text-interface::print) | 493 (stencil . ,ly:text-interface::print) |
494 (text . ,(make-musicglyph-markup "scripts.rcomma")) | 494 (text . ,(make-musicglyph-markup "scripts.rcomma")) |
495 (Y-offset . ,ly:breathing-sign::offset-callback) | 495 (Y-offset . ,ly:breathing-sign::offset-callback) |
496 (meta . ((class . Item) | 496 (meta . ((class . Item) |
497 (interfaces . (break-aligned-interface | 497 (interfaces . (break-aligned-interface |
498 breathing-sign-interface | 498 breathing-sign-interface |
499 font-interface | 499 font-interface |
500 text-interface)))))) | 500 text-interface)))))) |
501 | 501 |
502 (Brace | |
503 . ( | |
504 (direction . ,LEFT) | |
505 (font-encoding . fetaBraces) | |
506 (minimum-brace-height . 95) | |
507 (padding . 0.5) | |
508 (positions . ,ly:arpeggio::calc-positions) | |
509 (script-priority . 0) | |
510 (side-axis . ,X) | |
511 (staff-position . 0.0) | |
512 (stencil . ,ly:arpeggio::brew-chord-brace) | |
513 (X-extent . (-1 . 0)) | |
514 (X-offset . ,ly:side-position-interface::x-aligned-side) | |
515 (Y-offset . ,ly:staff-symbol-referencer::callback) | |
516 (meta . ((class . Item) | |
517 (interfaces . (arpeggio-interface | |
518 brace-interface | |
519 font-interface | |
520 side-position-interface | |
521 staff-symbol-referencer-interface)))))) | |
522 | |
523 (ChordName | 502 (ChordName |
524 . ( | 503 . ( |
525 (after-line-breaking . ,ly:chord-name::after-line-breaking) | 504 (after-line-breaking . ,ly:chord-name::after-line-breaking) |
526 (font-family . sans) | 505 (font-family . sans) |
527 (font-size . 1.5) | 506 (font-size . 1.5) |
528 (stencil . ,ly:text-interface::print) | 507 (stencil . ,ly:text-interface::print) |
529 (extra-spacing-height . (0.2 . -0.2)) | 508 (extra-spacing-height . (0.2 . -0.2)) |
530 (word-space . 0.0) | 509 (word-space . 0.0) |
531 (meta . ((class . Item) | 510 (meta . ((class . Item) |
532 (interfaces . (chord-name-interface | 511 (interfaces . (chord-name-interface |
(...skipping 365 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
898 text-script-interface)))))) | 877 text-script-interface)))))) |
899 | 878 |
900 (FootnoteItem | 879 (FootnoteItem |
901 . ( | 880 . ( |
902 (annotation-balloon . #f) | 881 (annotation-balloon . #f) |
903 (annotation-line . #t) | 882 (annotation-line . #t) |
904 (break-visibility . ,inherit-y-parent-visibility) | 883 (break-visibility . ,inherit-y-parent-visibility) |
905 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) | 884 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) |
906 (stencil . ,ly:balloon-interface::print) | 885 (stencil . ,ly:balloon-interface::print) |
907 (text . ,(grob::calc-property-by-copy 'text)) | 886 (text . ,(grob::calc-property-by-copy 'text)) |
| 887 (X-extent . #f) |
908 (Y-extent . #f) | 888 (Y-extent . #f) |
909 (X-offset . ,(grob::calc-property-by-copy 'X-offset)) | 889 (X-offset . ,(grob::calc-property-by-copy 'X-offset)) |
910 (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) | 890 (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) |
911 (meta . ((class . Item) | 891 (meta . ((class . Item) |
912 (interfaces . (balloon-interface | 892 (interfaces . (balloon-interface |
913 footnote-interface | 893 footnote-interface |
914 font-interface | 894 font-interface |
915 text-interface)))))) | 895 text-interface)))))) |
916 | 896 |
917 (FootnoteSpanner | 897 (FootnoteSpanner |
918 . ( | 898 . ( |
919 (annotation-balloon . #f) | 899 (annotation-balloon . #f) |
920 (annotation-line . #t) | 900 (annotation-line . #t) |
921 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) | 901 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) |
922 (spanner-placement . ,LEFT) | 902 (spanner-placement . ,LEFT) |
923 (stencil . ,ly:balloon-interface::print-spanner) | 903 (stencil . ,ly:balloon-interface::print-spanner) |
924 (text . ,(grob::calc-property-by-copy 'text)) | 904 (text . ,(grob::calc-property-by-copy 'text)) |
| 905 (X-extent . #f) |
925 (Y-extent . #f) | 906 (Y-extent . #f) |
926 (X-offset . ,(grob::calc-property-by-copy 'X-offset)) | 907 (X-offset . ,(grob::calc-property-by-copy 'X-offset)) |
927 (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) | 908 (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) |
928 (meta . ((class . Spanner) | 909 (meta . ((class . Spanner) |
929 (interfaces . (balloon-interface | 910 (interfaces . (balloon-interface |
930 footnote-interface | 911 footnote-interface |
931 footnote-spanner-interface | 912 footnote-spanner-interface |
932 font-interface | 913 font-interface |
933 text-interface)))))) | 914 text-interface)))))) |
934 | 915 |
(...skipping 382 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1317 font-interface | 1298 font-interface |
1318 metronome-mark-interface | 1299 metronome-mark-interface |
1319 self-alignment-interface | 1300 self-alignment-interface |
1320 side-position-interface | 1301 side-position-interface |
1321 text-interface)))))) | 1302 text-interface)))))) |
1322 | 1303 |
1323 (MultiMeasureRest | 1304 (MultiMeasureRest |
1324 . ( | 1305 . ( |
1325 (expand-limit . 10) | 1306 (expand-limit . 10) |
1326 (hair-thickness . 2.0) | 1307 (hair-thickness . 2.0) |
1327 » (round-exceptions . ()) | 1308 » (round-up-exceptions . ()) |
1328 (padding . 1) | 1309 (padding . 1) |
1329 (spacing-pair . (break-alignment . break-alignment)) | 1310 (spacing-pair . (break-alignment . break-alignment)) |
1330 (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods) | 1311 (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods) |
1331 (staff-position . 0) | 1312 (staff-position . 0) |
1332 (stencil . ,ly:multi-measure-rest::print) | 1313 (stencil . ,ly:multi-measure-rest::print) |
1333 (thick-thickness . 6.6) | 1314 (thick-thickness . 6.6) |
1334 ;; See Wanske pp. 125 | 1315 ;; See Wanske pp. 125 |
1335 » (usable-duration-logs . (0 -1 -2 -3)) | 1316 » (usable-duration-logs . ,(iota 4 -3)) |
1336 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1317 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1337 (meta . ((class . Spanner) | 1318 (meta . ((class . Spanner) |
1338 (interfaces . (font-interface | 1319 (interfaces . (font-interface |
1339 multi-measure-interface | 1320 multi-measure-interface |
1340 multi-measure-rest-interface | 1321 multi-measure-rest-interface |
1341 rest-interface | 1322 rest-interface |
1342 staff-symbol-referencer-interface)))))) | 1323 staff-symbol-referencer-interface)))))) |
1343 | 1324 |
1344 (MultiMeasureRestNumber | 1325 (MultiMeasureRestNumber |
1345 . ( | 1326 . ( |
(...skipping 605 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1951 stem-interface)))))) | 1932 stem-interface)))))) |
1952 | 1933 |
1953 (StemTremolo | 1934 (StemTremolo |
1954 . ( | 1935 . ( |
1955 (beam-thickness . 0.48) ; staff-space | 1936 (beam-thickness . 0.48) ; staff-space |
1956 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space | 1937 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space |
1957 (slope . ,ly:stem-tremolo::calc-slope) | 1938 (slope . ,ly:stem-tremolo::calc-slope) |
1958 (stencil . ,ly:stem-tremolo::print) | 1939 (stencil . ,ly:stem-tremolo::print) |
1959 (style . ,ly:stem-tremolo::calc-style) | 1940 (style . ,ly:stem-tremolo::calc-style) |
1960 (X-extent . ,ly:stem-tremolo::width) | 1941 (X-extent . ,ly:stem-tremolo::width) |
1961 (Y-extent . ,ly:stem-tremolo::height) | |
1962 (meta . ((class . Item) | 1942 (meta . ((class . Item) |
1963 (interfaces . (stem-tremolo-interface)))))) | 1943 (interfaces . (stem-tremolo-interface)))))) |
1964 | 1944 |
1965 (StringNumber | 1945 (StringNumber |
1966 . ( | 1946 . ( |
1967 (avoid-slur . around) | 1947 (avoid-slur . around) |
1968 (font-encoding . fetaText) | 1948 (font-encoding . fetaText) |
1969 (font-size . -5) ; don't overlap when next to heads. | 1949 (font-size . -5) ; don't overlap when next to heads. |
1970 (padding . 0.5) | 1950 (padding . 0.5) |
1971 (script-priority . 100) | 1951 (script-priority . 100) |
(...skipping 627 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2599 ly:script-interface::print | 2579 ly:script-interface::print |
2600 ly:sustain-pedal::print)) | 2580 ly:sustain-pedal::print)) |
2601 | 2581 |
2602 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) | 2582 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) |
2603 ;; and the print function is not pure, but there is a easy way to | 2583 ;; and the print function is not pure, but there is a easy way to |
2604 ;; figure out the Y-extent from the print function. | 2584 ;; figure out the Y-extent from the print function. |
2605 (define pure-print-to-height-conversions | 2585 (define pure-print-to-height-conversions |
2606 `( | 2586 `( |
2607 (,ly:arpeggio::print . ,ly:arpeggio::pure-height) | 2587 (,ly:arpeggio::print . ,ly:arpeggio::pure-height) |
2608 (,ly:arpeggio::brew-chord-bracket . ,ly:arpeggio::pure-height) | 2588 (,ly:arpeggio::brew-chord-bracket . ,ly:arpeggio::pure-height) |
2609 (,ly:arpeggio::brew-chord-brace . ,ly:arpeggio::pure-height) | |
2610 (,ly:arpeggio::brew-chord-slur . ,ly:arpeggio::pure-height) | 2589 (,ly:arpeggio::brew-chord-slur . ,ly:arpeggio::pure-height) |
2611 (,ly:hairpin::print . ,ly:hairpin::pure-height) | 2590 (,ly:hairpin::print . ,ly:hairpin::pure-height) |
| 2591 (,ly:stem-tremolo::print . ,ly:stem-tremolo::pure-height) |
2612 (,ly:volta-bracket-interface::print . ,volta-bracket-interface::pure-height)
)) | 2592 (,ly:volta-bracket-interface::print . ,volta-bracket-interface::pure-height)
)) |
2613 | 2593 |
2614 ;; ly:grob::stencil-extent is safe if the print callback is safe too | 2594 ;; ly:grob::stencil-extent is safe if the print callback is safe too |
2615 (define (pure-stencil-height grob start stop) | 2595 (define (pure-stencil-height grob start stop) |
2616 (let* ((sten (ly:grob-property-data grob 'stencil)) | 2596 (let* ((sten (ly:grob-property-data grob 'stencil)) |
2617 (pure-height-callback (assoc-get sten pure-print-to-height-conversions)
)) | 2597 (pure-height-callback (assoc-get sten pure-print-to-height-conversions)
)) |
2618 (cond ((or | 2598 (cond ((or |
2619 (ly:stencil? sten) | 2599 (ly:stencil? sten) |
2620 (memq sten pure-print-callbacks)) | 2600 (memq sten pure-print-callbacks)) |
2621 (ly:grob::stencil-height grob)) | 2601 (ly:grob::stencil-height grob)) |
(...skipping 52 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2674 (if (not (procedure? unpure)) | 2654 (if (not (procedure? unpure)) |
2675 unpure | 2655 unpure |
2676 (if (memq unpure pure-functions) | 2656 (if (memq unpure pure-functions) |
2677 (apply unpure args) | 2657 (apply unpure args) |
2678 (let ((pure (assq unpure pure-conversions-alist))) | 2658 (let ((pure (assq unpure pure-conversions-alist))) |
2679 (if pure | 2659 (if pure |
2680 (apply (cdr pure) | 2660 (apply (cdr pure) |
2681 (append | 2661 (append |
2682 (list (car args) start end) | 2662 (list (car args) start end) |
2683 (cdr args))))))))) | 2663 (cdr args))))))))) |
LEFT | RIGHT |