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--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2012 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 1277 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1288 (extra-spacing-width . (0.0 . 0.0)) | 1288 (extra-spacing-width . (0.0 . 0.0)) |
1289 ;; Recede in height for purposes of note spacing, | 1289 ;; Recede in height for purposes of note spacing, |
1290 ;; so notes in melismata can be freely spaced above lyrics | 1290 ;; so notes in melismata can be freely spaced above lyrics |
1291 (extra-spacing-height . (0.2 . -0.2)) | 1291 (extra-spacing-height . (0.2 . -0.2)) |
1292 (font-series . medium) | 1292 (font-series . medium) |
1293 (font-size . 1.0) | 1293 (font-size . 1.0) |
1294 (self-alignment-X . ,CENTER) | 1294 (self-alignment-X . ,CENTER) |
1295 (stencil . ,lyric-text::print) | 1295 (stencil . ,lyric-text::print) |
1296 (text . ,(grob::calc-property-by-copy 'text)) | 1296 (text . ,(grob::calc-property-by-copy 'text)) |
1297 (word-space . 0.6) | 1297 (word-space . 0.6) |
| 1298 (skyline-horizontal-padding . 0.1) |
1298 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1299 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1299 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) | 1300 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) |
1300 (meta . ((class . Item) | 1301 (meta . ((class . Item) |
1301 (interfaces . (font-interface | 1302 (interfaces . (font-interface |
1302 lyric-syllable-interface | 1303 lyric-syllable-interface |
1303 rhythmic-grob-interface | 1304 rhythmic-grob-interface |
1304 self-alignment-interface | 1305 self-alignment-interface |
1305 text-interface)))))) | 1306 text-interface)))))) |
1306 | 1307 |
1307 (MeasureGrouping | 1308 (MeasureGrouping |
(...skipping 268 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1576 | 1577 |
1577 | 1578 |
1578 (PaperColumn | 1579 (PaperColumn |
1579 . ( | 1580 . ( |
1580 (allow-loose-spacing . #t) | 1581 (allow-loose-spacing . #t) |
1581 (axes . (,X)) | 1582 (axes . (,X)) |
1582 (before-line-breaking . ,ly:paper-column::before-line-breaking) | 1583 (before-line-breaking . ,ly:paper-column::before-line-breaking) |
1583 (bound-alignment-interfaces . (note-column-interface)) | 1584 (bound-alignment-interfaces . (note-column-interface)) |
1584 (horizontal-skylines . ,ly:separation-item::calc-skylines) | 1585 (horizontal-skylines . ,ly:separation-item::calc-skylines) |
1585 (keep-inside-line . #t) | 1586 (keep-inside-line . #t) |
| 1587 ; 0.08 comes from spacing-horizontal-skyline.ly |
| 1588 ; allows double flat of F to be nestled over dots of C |
| 1589 (skyline-vertical-padding . 0.08) |
1586 ;; (stencil . ,ly:paper-column::print) | 1590 ;; (stencil . ,ly:paper-column::print) |
1587 (X-extent . ,ly:axis-group-interface::width) | 1591 (X-extent . ,ly:axis-group-interface::width) |
1588 | 1592 |
1589 ;; debugging | 1593 ;; debugging |
1590 ;; (font-size . -6) (font-name . "sans") (Y-extent
. #f) | 1594 ;; (font-size . -6) (font-name . "sans") (Y-extent
. #f) |
1591 (meta . ((class . Paper_column) | 1595 (meta . ((class . Paper_column) |
1592 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 1596 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
1593 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) | 1597 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) |
1594 (interfaces . (axis-group-interface | 1598 (interfaces . (axis-group-interface |
1595 font-interface | 1599 font-interface |
(...skipping 301 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1897 (X-extent . ,ly:span-bar::width) | 1901 (X-extent . ,ly:span-bar::width) |
1898 (Y-extent . (+inf.0 . -inf.0)) | 1902 (Y-extent . (+inf.0 . -inf.0)) |
1899 (meta . ((class . Item) | 1903 (meta . ((class . Item) |
1900 (interfaces . (bar-line-interface | 1904 (interfaces . (bar-line-interface |
1901 font-interface | 1905 font-interface |
1902 span-bar-interface)))))) | 1906 span-bar-interface)))))) |
1903 | 1907 |
1904 (SpanBarStub | 1908 (SpanBarStub |
1905 . ( | 1909 . ( |
1906 (X-extent . ,grob::x-parent-width) | 1910 (X-extent . ,grob::x-parent-width) |
1907 » (Y-extent . ,(ly:make-unpure-pure-container #f ly:axis-group-interface::
pure-height)) | 1911 » (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-hei
ght) |
| 1912 » (Y-extent . #f) |
1908 (meta . ((class . Item) | 1913 (meta . ((class . Item) |
1909 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 1914 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
1910 (pure-relevant-grobs . ,ly:pure-from-neigh
bor-interface::calc-pure-relevant-grobs))) | 1915 (pure-relevant-grobs . ,ly:pure-from-neigh
bor-interface::calc-pure-relevant-grobs))) |
1911 (interfaces . (pure-from-neighbor-interface)))))) | 1916 (interfaces . (pure-from-neighbor-interface)))))) |
1912 | 1917 |
1913 (StaffGrouper | 1918 (StaffGrouper |
1914 . ( | 1919 . ( |
1915 (staff-staff-spacing . ((basic-distance . 9) | 1920 (staff-staff-spacing . ((basic-distance . 9) |
1916 (minimum-distance . 7) | 1921 (minimum-distance . 7) |
1917 (padding . 1) | 1922 (padding . 1) |
(...skipping 191 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2109 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 2114 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
2110 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) | 2115 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) |
2111 (interfaces . (axis-group-interface | 2116 (interfaces . (axis-group-interface |
2112 piano-pedal-interface | 2117 piano-pedal-interface |
2113 side-position-interface)))))) | 2118 side-position-interface)))))) |
2114 | 2119 |
2115 (System | 2120 (System |
2116 . ( | 2121 . ( |
2117 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) | 2122 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) |
2118 (axes . (,X ,Y)) | 2123 (axes . (,X ,Y)) |
| 2124 (outside-staff-placement-directive . left-to-right-polite) |
2119 (skyline-horizontal-padding . 0.5) | 2125 (skyline-horizontal-padding . 0.5) |
2120 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) | 2126 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) |
2121 (X-extent . ,ly:axis-group-interface::width) | 2127 (X-extent . ,ly:axis-group-interface::width) |
2122 (Y-extent . ,ly:system::height) | 2128 (Y-extent . ,ly:system::height) |
2123 (meta . ((class . System) | 2129 (meta . ((class . System) |
2124 (object-callbacks . ((footnotes-before-line-breaking . ,ly:syst
em::footnotes-before-line-breaking) | 2130 (object-callbacks . ((footnotes-before-line-breaking . ,ly:syst
em::footnotes-before-line-breaking) |
2125 (footnotes-after-line-breaking . ,ly:syste
m::footnotes-after-line-breaking) | 2131 (footnotes-after-line-breaking . ,ly:syste
m::footnotes-after-line-breaking) |
2126 (pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) | 2132 (pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) |
2127 » » » » (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common))) | 2133 » » » » (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
| 2134 » » » » (vertical-skyline-elements . ,ly:system::v
ertical-skyline-elements) |
| 2135 (vertical-alignment . ,ly:system::get-vert
ical-alignment))) |
2128 (interfaces . (axis-group-interface | 2136 (interfaces . (axis-group-interface |
2129 system-interface)))))) | 2137 system-interface)))))) |
2130 | 2138 |
2131 (SystemStartBar | 2139 (SystemStartBar |
2132 . ( | 2140 . ( |
2133 (collapse-height . 5.0) | 2141 (collapse-height . 5.0) |
2134 (direction . ,LEFT) | 2142 (direction . ,LEFT) |
2135 | 2143 |
2136 ;; ugh--hardcoded. | 2144 ;; ugh--hardcoded. |
2137 (padding . -0.1) ;; bar must cover rounded ending of staff line. | 2145 (padding . -0.1) ;; bar must cover rounded ending of staff line. |
(...skipping 114 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2252 side-position-interface | 2260 side-position-interface |
2253 text-interface | 2261 text-interface |
2254 text-script-interface)))))) | 2262 text-script-interface)))))) |
2255 | 2263 |
2256 (TextSpanner | 2264 (TextSpanner |
2257 . ( | 2265 . ( |
2258 (bound-details . ((left . ((Y . 0) | 2266 (bound-details . ((left . ((Y . 0) |
2259 (padding . 0.25) | 2267 (padding . 0.25) |
2260 (attach-dir . ,LEFT) | 2268 (attach-dir . ,LEFT) |
2261 )) | 2269 )) |
2262 » » » (left-broken . ((end-on-note . #t))) | 2270 » » » (left-broken . ((attach-dir . ,RIGHT))) |
2263 (right . ((Y . 0) | 2271 (right . ((Y . 0) |
2264 (padding . 0.25) | 2272 (padding . 0.25) |
2265 )) | 2273 )) |
2266 )) | 2274 )) |
2267 (dash-fraction . 0.2) | 2275 (dash-fraction . 0.2) |
2268 (dash-period . 3.0) | 2276 (dash-period . 3.0) |
2269 (direction . ,UP) | 2277 (direction . ,UP) |
2270 (font-shape . italic) | 2278 (font-shape . italic) |
2271 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 2279 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
2272 (outside-staff-priority . 350) | 2280 (outside-staff-priority . 350) |
(...skipping 259 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2532 axis-group-interface)))))) | 2540 axis-group-interface)))))) |
2533 | 2541 |
2534 (VerticalAxisGroup | 2542 (VerticalAxisGroup |
2535 . ( | 2543 . ( |
2536 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) | 2544 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) |
2537 (axes . (,Y)) | 2545 (axes . (,Y)) |
2538 (default-staff-staff-spacing . ((basic-distance . 9) | 2546 (default-staff-staff-spacing . ((basic-distance . 9) |
2539 (minimum-distance . 8) | 2547 (minimum-distance . 8) |
2540 (padding . 1))) | 2548 (padding . 1))) |
2541 (nonstaff-unrelatedstaff-spacing . ((padding . 0.5))) | 2549 (nonstaff-unrelatedstaff-spacing . ((padding . 0.5))) |
| 2550 (outside-staff-placement-directive . left-to-right-polite) |
2542 (staff-staff-spacing . ,ly:axis-group-interface::calc-staff-staff-spacin
g) | 2551 (staff-staff-spacing . ,ly:axis-group-interface::calc-staff-staff-spacin
g) |
2543 (stencil . ,ly:axis-group-interface::print) | 2552 (stencil . ,ly:axis-group-interface::print) |
2544 (skyline-horizontal-padding . 0.1) | 2553 (skyline-horizontal-padding . 0.1) |
2545 (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines) | 2554 (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines) |
2546 (X-extent . ,ly:axis-group-interface::width) | 2555 (X-extent . ,ly:axis-group-interface::width) |
2547 (Y-extent . ,ly:hara-kiri-group-spanner::y-extent) | 2556 (Y-extent . ,ly:hara-kiri-group-spanner::y-extent) |
2548 (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback) | 2557 (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback) |
2549 (meta . ((class . Spanner) | 2558 (meta . ((class . Spanner) |
2550 (object-callbacks . ( | 2559 (object-callbacks . ( |
2551 (X-common . ,ly:axis-group-interface::calc
-x-common) | 2560 (X-common . ,ly:axis-group-interface::calc
-x-common) |
2552 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 2561 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
2553 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) | 2562 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) |
2554 | 2563 |
2555 (interfaces . (axis-group-interface | 2564 (interfaces . (axis-group-interface |
2556 hara-kiri-group-spanner-interface)))))) | 2565 hara-kiri-group-spanner-interface)))))) |
2557 | 2566 |
2558 (VoiceFollower | 2567 (VoiceFollower |
2559 . ( | 2568 . ( |
2560 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) | 2569 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) |
2561 (bound-details . ((right . ((attach-dir . ,CENTER) | 2570 (bound-details . ((right . ((attach-dir . ,CENTER) |
2562 (padding . 1.5) | 2571 (padding . 1.5) |
2563 )) | 2572 )) |
2564 (left . ((attach-dir . ,CENTER) | 2573 (left . ((attach-dir . ,CENTER) |
2565 (padding . 1.5) | 2574 (padding . 1.5) |
2566 )) | 2575 )) |
2567 )) | 2576 )) |
| 2577 (cross-staff . #t) |
2568 (gap . 0.5) | 2578 (gap . 0.5) |
2569 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 2579 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
2570 (non-musical . #t) | 2580 (non-musical . #t) |
2571 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) | 2581 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) |
2572 (stencil . ,ly:line-spanner::print) | 2582 (stencil . ,ly:line-spanner::print) |
2573 (style . line) | 2583 (style . line) |
2574 (X-extent . #f) | 2584 (X-extent . #f) |
2575 (Y-extent . #f) | 2585 (Y-extent . #f) |
2576 (meta . ((class . Spanner) | 2586 (meta . ((class . Spanner) |
2577 (interfaces . (line-interface | 2587 (interfaces . (line-interface |
(...skipping 153 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2731 ;; chain_offset_callback, in which case this provides a default by simply | 2741 ;; chain_offset_callback, in which case this provides a default by simply |
2732 ;; passing through the value from the pure callback. | 2742 ;; passing through the value from the pure callback. |
2733 (define (pure-chain-offset-callback grob start end prev-offset) prev-offset) | 2743 (define (pure-chain-offset-callback grob start end prev-offset) prev-offset) |
2734 | 2744 |
2735 (define pure-conversions-alist | 2745 (define pure-conversions-alist |
2736 `( | 2746 `( |
2737 (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height) | 2747 (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height) |
2738 (,ly:axis-group-interface::calc-staff-staff-spacing . ,ly:axis-group-interfa
ce::calc-pure-staff-staff-spacing) | 2748 (,ly:axis-group-interface::calc-staff-staff-spacing . ,ly:axis-group-interfa
ce::calc-pure-staff-staff-spacing) |
2739 (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height) | 2749 (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height) |
2740 (,ly:beam::rest-collision-callback . ,ly:beam::pure-rest-collision-callback) | 2750 (,ly:beam::rest-collision-callback . ,ly:beam::pure-rest-collision-callback) |
| 2751 (,ly:flag::calc-y-offset . ,ly:flag::pure-calc-y-offset) |
2741 (,ly:grob::stencil-height . ,pure-stencil-height) | 2752 (,ly:grob::stencil-height . ,pure-stencil-height) |
2742 (,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-h
eight) | 2753 (,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-h
eight) |
2743 (,ly:rest-collision::force-shift-callback-rest . ,pure-chain-offset-callback
) | 2754 (,ly:rest-collision::force-shift-callback-rest . ,pure-chain-offset-callback
) |
2744 (,ly:rest::height . ,ly:rest::pure-height) | 2755 (,ly:rest::height . ,ly:rest::pure-height) |
2745 (,ly:self-alignment-interface::y-aligned-on-self . ,ly:self-alignment-interf
ace::pure-y-aligned-on-self) | 2756 (,ly:self-alignment-interface::y-aligned-on-self . ,ly:self-alignment-interf
ace::pure-y-aligned-on-self) |
2746 (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::
pure-y-aligned-side) | 2757 (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::
pure-y-aligned-side) |
2747 (,ly:slur::height . ,ly:slur::pure-height) | 2758 (,ly:slur::height . ,ly:slur::pure-height) |
2748 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) | 2759 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) |
2749 (,ly:stem::calc-stem-begin-position . ,ly:stem::pure-calc-stem-begin-positio
n) | 2760 (,ly:stem::calc-stem-begin-position . ,ly:stem::pure-calc-stem-begin-positio
n) |
2750 (,ly:stem::calc-stem-end-position . ,ly:stem::pure-calc-stem-end-position) | 2761 (,ly:stem::calc-stem-end-position . ,ly:stem::pure-calc-stem-end-position) |
2751 (,stem::length . ,stem::pure-length) | 2762 (,stem::length . ,stem::pure-length) |
2752 (,ly:stem::height . ,ly:stem::pure-height) | 2763 (,ly:stem::height . ,ly:stem::pure-height) |
2753 (,ly:stem-tremolo::calc-y-offset . ,ly:stem-tremolo::pure-calc-y-offset) | 2764 (,ly:stem-tremolo::calc-y-offset . ,ly:stem-tremolo::pure-calc-y-offset) |
2754 (,ly:system::height . ,ly:system::calc-pure-height))) | 2765 (,ly:system::height . ,ly:system::calc-pure-height))) |
2755 | 2766 |
2756 (define pure-functions | 2767 (define pure-functions |
2757 (list | 2768 (list |
2758 parenthesize-elements | 2769 parenthesize-elements |
2759 laissez-vibrer::print | 2770 laissez-vibrer::print |
2760 ly:flag::calc-y-offset | |
2761 ly:rest::y-offset-callback | 2771 ly:rest::y-offset-callback |
2762 ly:staff-symbol-referencer::callback | 2772 ly:staff-symbol-referencer::callback |
2763 ly:staff-symbol::height)) | 2773 ly:staff-symbol::height)) |
2764 | 2774 |
2765 (define-public (pure-relevant? grob) | 2775 (define-public (pure-relevant? grob) |
2766 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) | 2776 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) |
2767 (not (eq? #f | 2777 (not (eq? #f |
2768 (or | 2778 (or |
2769 (ly:unpure-pure-container? extent-callback) | 2779 (ly:unpure-pure-container? extent-callback) |
2770 (pair? extent-callback) | 2780 (pair? extent-callback) |
(...skipping 26 matching lines...) Expand all Loading... |
2797 (if (not (procedure? unpure)) | 2807 (if (not (procedure? unpure)) |
2798 unpure | 2808 unpure |
2799 (if (memq unpure pure-functions) | 2809 (if (memq unpure pure-functions) |
2800 (apply unpure args) | 2810 (apply unpure args) |
2801 (let ((pure (assq unpure pure-conversions-alist))) | 2811 (let ((pure (assq unpure pure-conversions-alist))) |
2802 (if pure | 2812 (if pure |
2803 (apply (cdr pure) | 2813 (apply (cdr pure) |
2804 (append | 2814 (append |
2805 (list (car args) start end) | 2815 (list (car args) start end) |
2806 (cdr args)))))))))) | 2816 (cdr args)))))))))) |
LEFT | RIGHT |