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 12 matching lines...) Expand all Loading... |
23 ;;;; WARNING: don't use anonymous functions for initialization. | 23 ;;;; WARNING: don't use anonymous functions for initialization. |
24 | 24 |
25 ;; TODO: junk the meta field in favor of something more compact? | 25 ;; TODO: junk the meta field in favor of something more compact? |
26 | 26 |
27 (define-public all-grob-descriptions | 27 (define-public all-grob-descriptions |
28 `( | 28 `( |
29 (Accidental | 29 (Accidental |
30 . ( | 30 . ( |
31 (alteration . ,accidental-interface::calc-alteration) | 31 (alteration . ,accidental-interface::calc-alteration) |
32 (avoid-slur . inside) | 32 (avoid-slur . inside) |
| 33 (glyph-name . ,accidental-interface::glyph-name) |
33 (glyph-name-alist . ,standard-alteration-glyph-name-alist) | 34 (glyph-name-alist . ,standard-alteration-glyph-name-alist) |
34 (stencil . ,ly:accidental-interface::print) | 35 (stencil . ,ly:accidental-interface::print) |
| 36 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
35 (X-extent . ,ly:accidental-interface::width) | 37 (X-extent . ,ly:accidental-interface::width) |
36 (Y-extent . ,ly:accidental-interface::height) | 38 (Y-extent . ,ly:accidental-interface::height) |
37 (meta . ((class . Item) | 39 (meta . ((class . Item) |
38 (interfaces . (accidental-interface | 40 (interfaces . (accidental-interface |
39 inline-accidental-interface | 41 inline-accidental-interface |
40 font-interface)))))) | 42 font-interface)))))) |
41 | 43 |
42 (AccidentalCautionary | 44 (AccidentalCautionary |
43 . ( | 45 . ( |
44 (alteration . ,accidental-interface::calc-alteration) | 46 (alteration . ,accidental-interface::calc-alteration) |
(...skipping 849 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
894 (meta . ((class . Item) | 896 (meta . ((class . Item) |
895 (interfaces . (finger-interface | 897 (interfaces . (finger-interface |
896 font-interface | 898 font-interface |
897 self-alignment-interface | 899 self-alignment-interface |
898 side-position-interface | 900 side-position-interface |
899 text-interface | 901 text-interface |
900 text-script-interface)))))) | 902 text-script-interface)))))) |
901 | 903 |
902 (Flag | 904 (Flag |
903 . ( | 905 . ( |
| 906 (glyph-name . ,ly:flag::glyph-name) |
904 (stencil . ,ly:flag::print) | 907 (stencil . ,ly:flag::print) |
905 (X-extent . ,ly:flag::width) | 908 (X-extent . ,ly:flag::width) |
906 (X-offset . ,ly:flag::calc-x-offset) | 909 (X-offset . ,ly:flag::calc-x-offset) |
907 (Y-offset . ,ly:flag::calc-y-offset) | 910 (Y-offset . ,ly:flag::calc-y-offset) |
908 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 911 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
909 (meta . ((class . Item) | 912 (meta . ((class . Item) |
910 (interfaces . (flag-interface | 913 (interfaces . (flag-interface |
911 font-interface)))))) | 914 font-interface)))))) |
912 | 915 |
913 (FootnoteItem | 916 (FootnoteItem |
(...skipping 196 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1110 (glyph-name-alist . ,cancellation-glyph-name-alist) | 1113 (glyph-name-alist . ,cancellation-glyph-name-alist) |
1111 (non-musical . #t) | 1114 (non-musical . #t) |
1112 (space-alist . ( | 1115 (space-alist . ( |
1113 (time-signature . (extra-space . 1.25)) | 1116 (time-signature . (extra-space . 1.25)) |
1114 (staff-bar . (extra-space . 0.6)) | 1117 (staff-bar . (extra-space . 0.6)) |
1115 (key-signature . (extra-space . 0.5)) | 1118 (key-signature . (extra-space . 0.5)) |
1116 (cue-clef . (extra-space . 0.5)) | 1119 (cue-clef . (extra-space . 0.5)) |
1117 (right-edge . (extra-space . 0.5)) | 1120 (right-edge . (extra-space . 0.5)) |
1118 (first-note . (fixed-space . 2.5)))) | 1121 (first-note . (fixed-space . 2.5)))) |
1119 (stencil . ,ly:key-signature-interface::print) | 1122 (stencil . ,ly:key-signature-interface::print) |
| 1123 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1120 (extra-spacing-width . (0.0 . 1.0)) | 1124 (extra-spacing-width . (0.0 . 1.0)) |
1121 (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-hei
ght-including-staff) | 1125 (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-hei
ght-including-staff) |
1122 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1126 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1123 (meta . ((class . Item) | 1127 (meta . ((class . Item) |
1124 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 1128 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
1125 (pure-relevant-grobs . ,ly:pure-from-neigh
bor-interface::calc-pure-relevant-grobs))) | 1129 (pure-relevant-grobs . ,ly:pure-from-neigh
bor-interface::calc-pure-relevant-grobs))) |
1126 (interfaces . (break-aligned-interface | 1130 (interfaces . (break-aligned-interface |
1127 font-interface | 1131 font-interface |
1128 key-cancellation-interface | 1132 key-cancellation-interface |
1129 key-signature-interface | 1133 key-signature-interface |
(...skipping 154 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1284 (extra-spacing-width . (0.0 . 0.0)) | 1288 (extra-spacing-width . (0.0 . 0.0)) |
1285 ;; Recede in height for purposes of note spacing, | 1289 ;; Recede in height for purposes of note spacing, |
1286 ;; so notes in melismata can be freely spaced above lyrics | 1290 ;; so notes in melismata can be freely spaced above lyrics |
1287 (extra-spacing-height . (0.2 . -0.2)) | 1291 (extra-spacing-height . (0.2 . -0.2)) |
1288 (font-series . medium) | 1292 (font-series . medium) |
1289 (font-size . 1.0) | 1293 (font-size . 1.0) |
1290 (self-alignment-X . ,CENTER) | 1294 (self-alignment-X . ,CENTER) |
1291 (stencil . ,lyric-text::print) | 1295 (stencil . ,lyric-text::print) |
1292 (text . ,(grob::calc-property-by-copy 'text)) | 1296 (text . ,(grob::calc-property-by-copy 'text)) |
1293 (word-space . 0.6) | 1297 (word-space . 0.6) |
| 1298 (skyline-horizontal-padding . 0.1) |
1294 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1299 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1295 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) | 1300 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) |
1296 (meta . ((class . Item) | 1301 (meta . ((class . Item) |
1297 (interfaces . (font-interface | 1302 (interfaces . (font-interface |
1298 lyric-syllable-interface | 1303 lyric-syllable-interface |
1299 rhythmic-grob-interface | 1304 rhythmic-grob-interface |
1300 self-alignment-interface | 1305 self-alignment-interface |
1301 text-interface)))))) | 1306 text-interface)))))) |
1302 | 1307 |
1303 (MeasureGrouping | 1308 (MeasureGrouping |
(...skipping 23 matching lines...) Expand all Loading... |
1327 (meta . ((class . Spanner) | 1332 (meta . ((class . Spanner) |
1328 (interfaces . (font-interface | 1333 (interfaces . (font-interface |
1329 mensural-ligature-interface)))))) | 1334 mensural-ligature-interface)))))) |
1330 | 1335 |
1331 (MetronomeMark | 1336 (MetronomeMark |
1332 . ( | 1337 . ( |
1333 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) | 1338 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) |
1334 (break-visibility . ,end-of-line-invisible) | 1339 (break-visibility . ,end-of-line-invisible) |
1335 (direction . ,UP) | 1340 (direction . ,UP) |
1336 (extra-spacing-width . (+inf.0 . -inf.0)) | 1341 (extra-spacing-width . (+inf.0 . -inf.0)) |
| 1342 (outside-staff-horizontal-padding . 0.12) |
1337 (outside-staff-priority . 1000) | 1343 (outside-staff-priority . 1000) |
1338 (padding . 0.8) | 1344 (padding . 0.8) |
1339 (side-axis . ,Y) | 1345 (side-axis . ,Y) |
1340 (stencil . ,ly:text-interface::print) | 1346 (stencil . ,ly:text-interface::print) |
1341 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1347 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1342 (Y-offset . ,ly:side-position-interface::y-aligned-side) | 1348 (Y-offset . ,ly:side-position-interface::y-aligned-side) |
1343 (X-offset . ,(ly:make-simple-closure | 1349 (X-offset . ,(ly:make-simple-closure |
1344 `(,+ | 1350 `(,+ |
1345 ,(ly:make-simple-closure | 1351 ,(ly:make-simple-closure |
1346 (list ly:break-alignable-interface::self-align-callbac
k)) | 1352 (list ly:break-alignable-interface::self-align-callbac
k)) |
(...skipping 224 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1571 | 1577 |
1572 | 1578 |
1573 (PaperColumn | 1579 (PaperColumn |
1574 . ( | 1580 . ( |
1575 (allow-loose-spacing . #t) | 1581 (allow-loose-spacing . #t) |
1576 (axes . (,X)) | 1582 (axes . (,X)) |
1577 (before-line-breaking . ,ly:paper-column::before-line-breaking) | 1583 (before-line-breaking . ,ly:paper-column::before-line-breaking) |
1578 (bound-alignment-interfaces . (note-column-interface)) | 1584 (bound-alignment-interfaces . (note-column-interface)) |
1579 (horizontal-skylines . ,ly:separation-item::calc-skylines) | 1585 (horizontal-skylines . ,ly:separation-item::calc-skylines) |
1580 (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) |
1581 ;; (stencil . ,ly:paper-column::print) | 1590 ;; (stencil . ,ly:paper-column::print) |
1582 (X-extent . ,ly:axis-group-interface::width) | 1591 (X-extent . ,ly:axis-group-interface::width) |
1583 | 1592 |
1584 ;; debugging | 1593 ;; debugging |
1585 ;; (font-size . -6) (font-name . "sans") (Y-extent
. #f) | 1594 ;; (font-size . -6) (font-name . "sans") (Y-extent
. #f) |
1586 (meta . ((class . Paper_column) | 1595 (meta . ((class . Paper_column) |
1587 (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) |
1588 (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))) |
1589 (interfaces . (axis-group-interface | 1598 (interfaces . (axis-group-interface |
1590 font-interface | 1599 font-interface |
(...skipping 54 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1645 (cross-staff . ,ly:slur::calc-cross-staff) | 1654 (cross-staff . ,ly:slur::calc-cross-staff) |
1646 (details . ,default-slur-details) | 1655 (details . ,default-slur-details) |
1647 (direction . ,ly:slur::calc-direction) | 1656 (direction . ,ly:slur::calc-direction) |
1648 (height-limit . 2.0) | 1657 (height-limit . 2.0) |
1649 (minimum-length . 1.5) | 1658 (minimum-length . 1.5) |
1650 (ratio . 0.333) | 1659 (ratio . 0.333) |
1651 (spanner-id . "") | 1660 (spanner-id . "") |
1652 (springs-and-rods . ,ly:spanner::set-spacing-rods) | 1661 (springs-and-rods . ,ly:spanner::set-spacing-rods) |
1653 (stencil . ,ly:slur::print) | 1662 (stencil . ,ly:slur::print) |
1654 (thickness . 1.1) | 1663 (thickness . 1.1) |
1655 » (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1664 » (vertical-skylines . ,ly:slur::vertical-skylines) |
1656 (Y-extent . ,ly:slur::height) | 1665 (Y-extent . ,ly:slur::height) |
1657 (meta . ((class . Spanner) | 1666 (meta . ((class . Spanner) |
1658 (interfaces . (slur-interface)))))) | 1667 (interfaces . (slur-interface)))))) |
1659 | 1668 |
1660 ;; an example of a text spanner | 1669 ;; an example of a text spanner |
1661 (PianoPedalBracket | 1670 (PianoPedalBracket |
1662 . ( | 1671 . ( |
1663 (bound-padding . 1.0) | 1672 (bound-padding . 1.0) |
1664 (bracket-flare . (0.5 . 0.5)) | 1673 (bracket-flare . (0.5 . 0.5)) |
1665 (direction . ,DOWN) | 1674 (direction . ,DOWN) |
(...skipping 12 matching lines...) Expand all Loading... |
1678 (RehearsalMark | 1687 (RehearsalMark |
1679 . ( | 1688 . ( |
1680 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) | 1689 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) |
1681 (baseline-skip . 2) | 1690 (baseline-skip . 2) |
1682 (break-align-symbols . (staff-bar clef)) | 1691 (break-align-symbols . (staff-bar clef)) |
1683 (break-visibility . ,end-of-line-invisible) | 1692 (break-visibility . ,end-of-line-invisible) |
1684 (direction . ,UP) | 1693 (direction . ,UP) |
1685 (extra-spacing-width . (+inf.0 . -inf.0)) | 1694 (extra-spacing-width . (+inf.0 . -inf.0)) |
1686 (font-size . 2) | 1695 (font-size . 2) |
1687 (non-musical . #t) | 1696 (non-musical . #t) |
| 1697 (outside-staff-horizontal-padding . 0.12) |
1688 (outside-staff-priority . 1500) | 1698 (outside-staff-priority . 1500) |
1689 (padding . 0.8) | 1699 (padding . 0.8) |
1690 (self-alignment-X . ,CENTER) | 1700 (self-alignment-X . ,CENTER) |
1691 (stencil . ,ly:text-interface::print) | 1701 (stencil . ,ly:text-interface::print) |
1692 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1702 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1693 (X-offset . ,(ly:make-simple-closure | 1703 (X-offset . ,(ly:make-simple-closure |
1694 `(,+ | 1704 `(,+ |
1695 ,(ly:make-simple-closure | 1705 ,(ly:make-simple-closure |
1696 (list ly:break-alignable-interface::self-align-callbac
k)) | 1706 (list ly:break-alignable-interface::self-align-callbac
k)) |
1697 ,(ly:make-simple-closure | 1707 ,(ly:make-simple-closure |
(...skipping 74 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1772 (font-encoding . fetaMusic) | 1782 (font-encoding . fetaMusic) |
1773 (positioning-done . ,ly:script-interface::calc-positioning-done) | 1783 (positioning-done . ,ly:script-interface::calc-positioning-done) |
1774 (side-axis . ,Y) | 1784 (side-axis . ,Y) |
1775 | 1785 |
1776 ;; padding set in script definitions. | 1786 ;; padding set in script definitions. |
1777 (slur-padding . 0.2) | 1787 (slur-padding . 0.2) |
1778 (staff-padding . 0.25) | 1788 (staff-padding . 0.25) |
1779 | 1789 |
1780 (stencil . ,ly:script-interface::print) | 1790 (stencil . ,ly:script-interface::print) |
1781 (use-skylines . #t) | 1791 (use-skylines . #t) |
| 1792 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
1782 (X-offset . ,script-interface::calc-x-offset) | 1793 (X-offset . ,script-interface::calc-x-offset) |
1783 (Y-offset . ,ly:side-position-interface::y-aligned-side) | 1794 (Y-offset . ,ly:side-position-interface::y-aligned-side) |
1784 (meta . ((class . Item) | 1795 (meta . ((class . Item) |
1785 (interfaces . (font-interface | 1796 (interfaces . (font-interface |
1786 script-interface | 1797 script-interface |
1787 side-position-interface)))))) | 1798 side-position-interface)))))) |
1788 | 1799 |
1789 (ScriptColumn | 1800 (ScriptColumn |
1790 . ( | 1801 . ( |
1791 (before-line-breaking . ,ly:script-column::before-line-breaking) | 1802 (before-line-breaking . ,ly:script-column::before-line-breaking) |
(...skipping 14 matching lines...) Expand all Loading... |
1806 (details . ,default-slur-details) | 1817 (details . ,default-slur-details) |
1807 (direction . ,ly:slur::calc-direction) | 1818 (direction . ,ly:slur::calc-direction) |
1808 (height-limit . 2.0) | 1819 (height-limit . 2.0) |
1809 (line-thickness . 0.8) | 1820 (line-thickness . 0.8) |
1810 (minimum-length . 1.5) | 1821 (minimum-length . 1.5) |
1811 (ratio . 0.25) | 1822 (ratio . 0.25) |
1812 (spanner-id . "") | 1823 (spanner-id . "") |
1813 (springs-and-rods . ,ly:spanner::set-spacing-rods) | 1824 (springs-and-rods . ,ly:spanner::set-spacing-rods) |
1814 (stencil . ,ly:slur::print) | 1825 (stencil . ,ly:slur::print) |
1815 (thickness . 1.2) | 1826 (thickness . 1.2) |
1816 » (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 1827 » (vertical-skylines . ,ly:slur::vertical-skylines) |
1817 (Y-extent . ,ly:slur::height) | 1828 (Y-extent . ,ly:slur::height) |
1818 (meta . ((class . Spanner) | 1829 (meta . ((class . Spanner) |
1819 (interfaces . (slur-interface)))))) | 1830 (interfaces . (slur-interface)))))) |
1820 | 1831 |
1821 (SostenutoPedal | 1832 (SostenutoPedal |
1822 . ( | 1833 . ( |
1823 (direction . ,RIGHT) | 1834 (direction . ,RIGHT) |
1824 (extra-spacing-width . (+inf.0 . -inf.0)) | 1835 (extra-spacing-width . (+inf.0 . -inf.0)) |
1825 (font-shape . italic) | 1836 (font-shape . italic) |
1826 (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner | 1837 (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner |
(...skipping 63 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1890 (X-extent . ,ly:span-bar::width) | 1901 (X-extent . ,ly:span-bar::width) |
1891 (Y-extent . (+inf.0 . -inf.0)) | 1902 (Y-extent . (+inf.0 . -inf.0)) |
1892 (meta . ((class . Item) | 1903 (meta . ((class . Item) |
1893 (interfaces . (bar-line-interface | 1904 (interfaces . (bar-line-interface |
1894 font-interface | 1905 font-interface |
1895 span-bar-interface)))))) | 1906 span-bar-interface)))))) |
1896 | 1907 |
1897 (SpanBarStub | 1908 (SpanBarStub |
1898 . ( | 1909 . ( |
1899 (X-extent . ,grob::x-parent-width) | 1910 (X-extent . ,grob::x-parent-width) |
1900 » (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) |
1901 (meta . ((class . Item) | 1913 (meta . ((class . Item) |
1902 (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) |
1903 (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))) |
1904 (interfaces . (pure-from-neighbor-interface)))))) | 1916 (interfaces . (pure-from-neighbor-interface)))))) |
1905 | 1917 |
1906 (StaffGrouper | 1918 (StaffGrouper |
1907 . ( | 1919 . ( |
1908 (staff-staff-spacing . ((basic-distance . 9) | 1920 (staff-staff-spacing . ((basic-distance . 9) |
1909 (minimum-distance . 7) | 1921 (minimum-distance . 7) |
1910 (padding . 1) | 1922 (padding . 1) |
(...skipping 191 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2102 (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) |
2103 (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))) |
2104 (interfaces . (axis-group-interface | 2116 (interfaces . (axis-group-interface |
2105 piano-pedal-interface | 2117 piano-pedal-interface |
2106 side-position-interface)))))) | 2118 side-position-interface)))))) |
2107 | 2119 |
2108 (System | 2120 (System |
2109 . ( | 2121 . ( |
2110 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) | 2122 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) |
2111 (axes . (,X ,Y)) | 2123 (axes . (,X ,Y)) |
| 2124 (outside-staff-placement-directive . left-to-right-polite) |
2112 (skyline-horizontal-padding . 0.5) | 2125 (skyline-horizontal-padding . 0.5) |
2113 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) | 2126 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) |
2114 (X-extent . ,ly:axis-group-interface::width) | 2127 (X-extent . ,ly:axis-group-interface::width) |
2115 (Y-extent . ,ly:system::height) | 2128 (Y-extent . ,ly:system::height) |
2116 (meta . ((class . System) | 2129 (meta . ((class . System) |
2117 (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) |
2118 (footnotes-after-line-breaking . ,ly:syste
m::footnotes-after-line-breaking) | 2131 (footnotes-after-line-breaking . ,ly:syste
m::footnotes-after-line-breaking) |
2119 (pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) | 2132 (pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) |
2120 » » » » (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))) |
2121 (interfaces . (axis-group-interface | 2136 (interfaces . (axis-group-interface |
2122 system-interface)))))) | 2137 system-interface)))))) |
2123 | 2138 |
2124 (SystemStartBar | 2139 (SystemStartBar |
2125 . ( | 2140 . ( |
2126 (collapse-height . 5.0) | 2141 (collapse-height . 5.0) |
2127 (direction . ,LEFT) | 2142 (direction . ,LEFT) |
2128 | 2143 |
2129 ;; ugh--hardcoded. | 2144 ;; ugh--hardcoded. |
2130 (padding . -0.1) ;; bar must cover rounded ending of staff line. | 2145 (padding . -0.1) ;; bar must cover rounded ending of staff line. |
(...skipping 85 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2216 staff-symbol-referencer-interface | 2231 staff-symbol-referencer-interface |
2217 tab-note-head-interface | 2232 tab-note-head-interface |
2218 text-interface)))))) | 2233 text-interface)))))) |
2219 | 2234 |
2220 (TextScript | 2235 (TextScript |
2221 . ( | 2236 . ( |
2222 (avoid-slur . around) | 2237 (avoid-slur . around) |
2223 (cross-staff . ,script-or-side-position-cross-staff) | 2238 (cross-staff . ,script-or-side-position-cross-staff) |
2224 (direction . ,DOWN) | 2239 (direction . ,DOWN) |
2225 (extra-spacing-width . (+inf.0 . -inf.0)) | 2240 (extra-spacing-width . (+inf.0 . -inf.0)) |
| 2241 (outside-staff-horizontal-padding . 0.12) |
2226 (outside-staff-priority . 450) | 2242 (outside-staff-priority . 450) |
2227 | 2243 |
2228 ;; sync with Fingering ? | 2244 ;; sync with Fingering ? |
2229 (padding . 0.5) | 2245 (padding . 0.5) |
2230 | 2246 |
2231 (script-priority . 200) | 2247 (script-priority . 200) |
2232 (side-axis . ,Y) | 2248 (side-axis . ,Y) |
2233 (slur-padding . 0.5) | 2249 (slur-padding . 0.5) |
2234 (staff-padding . 0.5) | 2250 (staff-padding . 0.5) |
2235 (stencil . ,ly:text-interface::print) | 2251 (stencil . ,ly:text-interface::print) |
2236 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) | 2252 (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil) |
2237 ;; todo: add X self alignment? | 2253 ;; todo: add X self alignment? |
2238 (X-offset . ,ly:self-alignment-interface::x-aligned-on-self) | 2254 (X-offset . ,ly:self-alignment-interface::x-aligned-on-self) |
2239 (Y-offset . ,ly:side-position-interface::y-aligned-side) | 2255 (Y-offset . ,ly:side-position-interface::y-aligned-side) |
2240 (meta . ((class . Item) | 2256 (meta . ((class . Item) |
2241 (interfaces . (font-interface | 2257 (interfaces . (font-interface |
2242 instrument-specific-markup-interface | 2258 instrument-specific-markup-interface |
2243 self-alignment-interface | 2259 self-alignment-interface |
2244 side-position-interface | 2260 side-position-interface |
2245 text-interface | 2261 text-interface |
2246 text-script-interface)))))) | 2262 text-script-interface)))))) |
2247 | 2263 |
2248 (TextSpanner | 2264 (TextSpanner |
2249 . ( | 2265 . ( |
2250 (bound-details . ((left . ((Y . 0) | 2266 (bound-details . ((left . ((Y . 0) |
2251 (padding . 0.25) | 2267 (padding . 0.25) |
2252 (attach-dir . ,LEFT) | 2268 (attach-dir . ,LEFT) |
2253 )) | 2269 )) |
2254 » » » (left-broken . ((end-on-note . #t))) | 2270 » » » (left-broken . ((attach-dir . ,RIGHT))) |
2255 (right . ((Y . 0) | 2271 (right . ((Y . 0) |
2256 (padding . 0.25) | 2272 (padding . 0.25) |
2257 )) | 2273 )) |
2258 )) | 2274 )) |
2259 (dash-fraction . 0.2) | 2275 (dash-fraction . 0.2) |
2260 (dash-period . 3.0) | 2276 (dash-period . 3.0) |
2261 (direction . ,UP) | 2277 (direction . ,UP) |
2262 (font-shape . italic) | 2278 (font-shape . italic) |
2263 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 2279 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
2264 (outside-staff-priority . 350) | 2280 (outside-staff-priority . 350) |
(...skipping 259 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2524 axis-group-interface)))))) | 2540 axis-group-interface)))))) |
2525 | 2541 |
2526 (VerticalAxisGroup | 2542 (VerticalAxisGroup |
2527 . ( | 2543 . ( |
2528 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) | 2544 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) |
2529 (axes . (,Y)) | 2545 (axes . (,Y)) |
2530 (default-staff-staff-spacing . ((basic-distance . 9) | 2546 (default-staff-staff-spacing . ((basic-distance . 9) |
2531 (minimum-distance . 8) | 2547 (minimum-distance . 8) |
2532 (padding . 1))) | 2548 (padding . 1))) |
2533 (nonstaff-unrelatedstaff-spacing . ((padding . 0.5))) | 2549 (nonstaff-unrelatedstaff-spacing . ((padding . 0.5))) |
| 2550 (outside-staff-placement-directive . left-to-right-polite) |
2534 (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) |
2535 (stencil . ,ly:axis-group-interface::print) | 2552 (stencil . ,ly:axis-group-interface::print) |
| 2553 (skyline-horizontal-padding . 0.1) |
2536 (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines) | 2554 (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines) |
2537 (X-extent . ,ly:axis-group-interface::width) | 2555 (X-extent . ,ly:axis-group-interface::width) |
2538 (Y-extent . ,ly:hara-kiri-group-spanner::y-extent) | 2556 (Y-extent . ,ly:hara-kiri-group-spanner::y-extent) |
2539 (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback) | 2557 (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback) |
2540 (meta . ((class . Spanner) | 2558 (meta . ((class . Spanner) |
2541 (object-callbacks . ( | 2559 (object-callbacks . ( |
2542 (X-common . ,ly:axis-group-interface::calc
-x-common) | 2560 (X-common . ,ly:axis-group-interface::calc
-x-common) |
2543 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 2561 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
2544 (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))) |
2545 | 2563 |
2546 (interfaces . (axis-group-interface | 2564 (interfaces . (axis-group-interface |
2547 hara-kiri-group-spanner-interface)))))) | 2565 hara-kiri-group-spanner-interface)))))) |
2548 | 2566 |
2549 (VoiceFollower | 2567 (VoiceFollower |
2550 . ( | 2568 . ( |
2551 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) | 2569 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) |
2552 (bound-details . ((right . ((attach-dir . ,CENTER) | 2570 (bound-details . ((right . ((attach-dir . ,CENTER) |
2553 (padding . 1.5) | 2571 (padding . 1.5) |
2554 )) | 2572 )) |
2555 (left . ((attach-dir . ,CENTER) | 2573 (left . ((attach-dir . ,CENTER) |
2556 (padding . 1.5) | 2574 (padding . 1.5) |
2557 )) | 2575 )) |
2558 )) | 2576 )) |
| 2577 (cross-staff . #t) |
2559 (gap . 0.5) | 2578 (gap . 0.5) |
2560 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 2579 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
2561 (non-musical . #t) | 2580 (non-musical . #t) |
2562 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) | 2581 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) |
2563 (stencil . ,ly:line-spanner::print) | 2582 (stencil . ,ly:line-spanner::print) |
2564 (style . line) | 2583 (style . line) |
2565 (X-extent . #f) | 2584 (X-extent . #f) |
2566 (Y-extent . #f) | 2585 (Y-extent . #f) |
2567 (meta . ((class . Spanner) | 2586 (meta . ((class . Spanner) |
2568 (interfaces . (line-interface | 2587 (interfaces . (line-interface |
(...skipping 153 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2722 ;; 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 |
2723 ;; passing through the value from the pure callback. | 2742 ;; passing through the value from the pure callback. |
2724 (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) |
2725 | 2744 |
2726 (define pure-conversions-alist | 2745 (define pure-conversions-alist |
2727 `( | 2746 `( |
2728 (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height) | 2747 (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height) |
2729 (,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) |
2730 (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height) | 2749 (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height) |
2731 (,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) |
2732 (,ly:grob::stencil-height . ,pure-stencil-height) | 2752 (,ly:grob::stencil-height . ,pure-stencil-height) |
2733 (,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) |
2734 (,ly:rest-collision::force-shift-callback-rest . ,pure-chain-offset-callback
) | 2754 (,ly:rest-collision::force-shift-callback-rest . ,pure-chain-offset-callback
) |
2735 (,ly:rest::height . ,ly:rest::pure-height) | 2755 (,ly:rest::height . ,ly:rest::pure-height) |
2736 (,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) |
2737 (,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) |
2738 (,ly:slur::height . ,ly:slur::pure-height) | 2758 (,ly:slur::height . ,ly:slur::pure-height) |
2739 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) | 2759 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) |
2740 (,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) |
2741 (,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) |
2742 (,stem::length . ,stem::pure-length) | 2762 (,stem::length . ,stem::pure-length) |
2743 (,ly:stem::height . ,ly:stem::pure-height) | 2763 (,ly:stem::height . ,ly:stem::pure-height) |
2744 (,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) |
2745 (,ly:system::height . ,ly:system::calc-pure-height))) | 2765 (,ly:system::height . ,ly:system::calc-pure-height))) |
2746 | 2766 |
2747 (define pure-functions | 2767 (define pure-functions |
2748 (list | 2768 (list |
2749 parenthesize-elements | 2769 parenthesize-elements |
2750 laissez-vibrer::print | 2770 laissez-vibrer::print |
2751 ly:flag::calc-y-offset | |
2752 ly:rest::y-offset-callback | 2771 ly:rest::y-offset-callback |
2753 ly:staff-symbol-referencer::callback | 2772 ly:staff-symbol-referencer::callback |
2754 ly:staff-symbol::height)) | 2773 ly:staff-symbol::height)) |
2755 | 2774 |
2756 (define-public (pure-relevant? grob) | 2775 (define-public (pure-relevant? grob) |
2757 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) | 2776 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) |
2758 (not (eq? #f | 2777 (not (eq? #f |
2759 (or | 2778 (or |
2760 (ly:unpure-pure-container? extent-callback) | 2779 (ly:unpure-pure-container? extent-callback) |
2761 (pair? extent-callback) | 2780 (pair? extent-callback) |
(...skipping 26 matching lines...) Expand all Loading... |
2788 (if (not (procedure? unpure)) | 2807 (if (not (procedure? unpure)) |
2789 unpure | 2808 unpure |
2790 (if (memq unpure pure-functions) | 2809 (if (memq unpure pure-functions) |
2791 (apply unpure args) | 2810 (apply unpure args) |
2792 (let ((pure (assq unpure pure-conversions-alist))) | 2811 (let ((pure (assq unpure pure-conversions-alist))) |
2793 (if pure | 2812 (if pure |
2794 (apply (cdr pure) | 2813 (apply (cdr pure) |
2795 (append | 2814 (append |
2796 (list (car args) start end) | 2815 (list (car args) start end) |
2797 (cdr args)))))))))) | 2816 (cdr args)))))))))) |
LEFT | RIGHT |