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 920 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
931 (padding . 1.5) | 931 (padding . 1.5) |
932 )) | 932 )) |
933 (left . ((attach-dir . ,CENTER) | 933 (left . ((attach-dir . ,CENTER) |
934 (padding . 1.5) | 934 (padding . 1.5) |
935 )) | 935 )) |
936 )) | 936 )) |
937 (gap . 0.5) | 937 (gap . 0.5) |
938 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 938 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
939 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) | 939 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) |
940 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) | 940 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) |
| 941 (simple-Y . #t) |
941 (stencil . ,ly:line-spanner::print) | 942 (stencil . ,ly:line-spanner::print) |
942 (style . line) | 943 (style . line) |
943 (X-extent . #f) | 944 (X-extent . #f) |
944 (Y-extent . #f) | 945 (Y-extent . #f) |
945 (zigzag-width . 0.75) | 946 (zigzag-width . 0.75) |
946 (meta . ((class . Spanner) | 947 (meta . ((class . Spanner) |
947 (interfaces . (glissando-interface | 948 (interfaces . (glissando-interface |
948 line-interface | 949 line-interface |
949 line-spanner-interface | 950 line-spanner-interface |
950 unbreakable-spanner-interface)))))) | 951 unbreakable-spanner-interface)))))) |
| 952 |
| 953 (GlissandoStem ; ugh...massive code dup... |
| 954 . ( |
| 955 (after-line-breaking . ,ly:glissando-stem::after-line-breaking) |
| 956 (beamlet-default-length . (1.1 . 1.1)) |
| 957 (beamlet-max-length-proportion . (0.75 . 0.75)) |
| 958 (cross-staff . ,ly:stem::calc-cross-staff) |
| 959 (default-direction . ,ly:stem::calc-default-direction) |
| 960 (details |
| 961 . ( |
| 962 ;; 3.5 (or 3 measured from note head) is standard length |
| 963 ;; 32nd, 64th, 128th flagged stems should be longer |
| 964 (lengths . (3.5 3.5 3.5 4.25 5.0 6.0)) |
| 965 |
| 966 ;; FIXME. 3.5 yields too long beams (according to Ross and |
| 967 ;; looking at Baerenreiter examples) for a number of common |
| 968 ;; boundary cases. Subtracting half a beam thickness fixes |
| 969 ;; this, but the bug may well be somewhere else. |
| 970 |
| 971 ;; FIXME this should come from 'lengths |
| 972 (beamed-lengths . (3.26 3.5 3.6)) |
| 973 |
| 974 ;; The 'normal' minima |
| 975 (beamed-minimum-free-lengths . (1.83 1.5 1.25)) |
| 976 ;(beamed-minimum-free-lengths . (2.0 1.8
3 1.25)) |
| 977 |
| 978 ;; The 'extreme case' minima |
| 979 (beamed-extreme-minimum-free-lengths . (2.0 1.25)) |
| 980 |
| 981 ;; Stems in unnatural (forced) direction should be shortened by |
| 982 ;; one staff space, according to [Roush & Gourlay]. |
| 983 ;; Flagged stems we shorten only half a staff space. |
| 984 (stem-shorten . (1.0 0.5)) |
| 985 |
| 986 )) |
| 987 |
| 988 ;; We use the normal minima as minimum for the ideal lengths, |
| 989 ;; and the extreme minima as abolute minimum length. |
| 990 |
| 991 (direction . ,DOWN) |
| 992 (duration-log . ,stem::calc-duration-log) |
| 993 (flag . ,ly:stem::calc-flag) |
| 994 (length . ,ly:stem::calc-length) |
| 995 (neutral-direction . ,DOWN) |
| 996 (positioning-done . ,ly:stem::calc-positioning-done) |
| 997 (stem-end-position . ,ly:stem::calc-stem-end-position) |
| 998 (stem-info . ,ly:stem::calc-stem-info) |
| 999 (stencil . ,ly:stem::print) |
| 1000 (thickness . 1.3) |
| 1001 (X-extent . ,ly:stem::width) |
| 1002 (X-offset . ,ly:stem::offset-callback) |
| 1003 (Y-extent . ,ly:stem::height) |
| 1004 (Y-offset . ,ly:staff-symbol-referencer::callback) |
| 1005 (meta . ((class . Item) |
| 1006 (interfaces . (font-interface |
| 1007 glissando-stem-interface |
| 1008 stem-interface)))))) |
951 | 1009 |
952 (GraceSpacing | 1010 (GraceSpacing |
953 . ( | 1011 . ( |
954 (common-shortest-duration . ,grace-spacing::calc-shortest-duration) | 1012 (common-shortest-duration . ,grace-spacing::calc-shortest-duration) |
955 (shortest-duration-space . 1.6) | 1013 (shortest-duration-space . 1.6) |
956 (spacing-increment . 0.8) | 1014 (spacing-increment . 0.8) |
957 (meta . ((class . Spanner) | 1015 (meta . ((class . Spanner) |
958 (interfaces . (grace-spacing-interface | 1016 (interfaces . (grace-spacing-interface |
959 spacing-options-interface | 1017 spacing-options-interface |
960 spanner-interface)))))) | 1018 spanner-interface)))))) |
(...skipping 470 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1431 (glyph-name . ,note-head::calc-glyph-name) | 1489 (glyph-name . ,note-head::calc-glyph-name) |
1432 (ligature-flexa . #f) | 1490 (ligature-flexa . #f) |
1433 (stem-attachment . ,ly:note-head::calc-stem-attachment) | 1491 (stem-attachment . ,ly:note-head::calc-stem-attachment) |
1434 (stencil . ,ly:note-head::print) | 1492 (stencil . ,ly:note-head::print) |
1435 (X-offset . ,ly:note-head::stem-x-shift) | 1493 (X-offset . ,ly:note-head::stem-x-shift) |
1436 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1494 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1437 (meta . ((class . Item) | 1495 (meta . ((class . Item) |
1438 (interfaces . (font-interface | 1496 (interfaces . (font-interface |
1439 gregorian-ligature-interface | 1497 gregorian-ligature-interface |
1440 ledgered-interface | 1498 ledgered-interface |
| 1499 ligature-head-interface |
1441 mensural-ligature-interface | 1500 mensural-ligature-interface |
1442 note-head-interface | 1501 note-head-interface |
1443 rhythmic-grob-interface | 1502 rhythmic-grob-interface |
1444 rhythmic-head-interface | 1503 rhythmic-head-interface |
1445 staff-symbol-referencer-interface | 1504 staff-symbol-referencer-interface |
1446 vaticana-ligature-interface)))))) | 1505 vaticana-ligature-interface)))))) |
1447 | 1506 |
1448 (NoteName | 1507 (NoteName |
1449 . ( | 1508 . ( |
1450 (stencil . ,ly:text-interface::print) | 1509 (stencil . ,ly:text-interface::print) |
(...skipping 129 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1580 | 1639 |
1581 (PhrasingSlur | 1640 (PhrasingSlur |
1582 . ( | 1641 . ( |
1583 (control-points . ,ly:slur::calc-control-points) | 1642 (control-points . ,ly:slur::calc-control-points) |
1584 (cross-staff . ,ly:slur::calc-cross-staff) | 1643 (cross-staff . ,ly:slur::calc-cross-staff) |
1585 (details . ,default-slur-details) | 1644 (details . ,default-slur-details) |
1586 (direction . ,ly:slur::calc-direction) | 1645 (direction . ,ly:slur::calc-direction) |
1587 (height-limit . 2.0) | 1646 (height-limit . 2.0) |
1588 (minimum-length . 1.5) | 1647 (minimum-length . 1.5) |
1589 (ratio . 0.333) | 1648 (ratio . 0.333) |
| 1649 (spanner-id . "") |
1590 (springs-and-rods . ,ly:spanner::set-spacing-rods) | 1650 (springs-and-rods . ,ly:spanner::set-spacing-rods) |
1591 (stencil . ,ly:slur::print) | 1651 (stencil . ,ly:slur::print) |
1592 (thickness . 1.1) | 1652 (thickness . 1.1) |
1593 (Y-extent . ,ly:slur::height) | 1653 (Y-extent . ,ly:slur::height) |
1594 (meta . ((class . Spanner) | 1654 (meta . ((class . Spanner) |
1595 (interfaces . (slur-interface)))))) | 1655 (interfaces . (slur-interface)))))) |
1596 | 1656 |
1597 ;; an example of a text spanner | 1657 ;; an example of a text spanner |
1598 (PianoPedalBracket | 1658 (PianoPedalBracket |
1599 . ( | 1659 . ( |
(...skipping 134 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1734 . ( | 1794 . ( |
1735 (avoid-slur . inside) | 1795 (avoid-slur . inside) |
1736 (control-points . ,ly:slur::calc-control-points) | 1796 (control-points . ,ly:slur::calc-control-points) |
1737 (cross-staff . ,ly:slur::calc-cross-staff) | 1797 (cross-staff . ,ly:slur::calc-cross-staff) |
1738 (details . ,default-slur-details) | 1798 (details . ,default-slur-details) |
1739 (direction . ,ly:slur::calc-direction) | 1799 (direction . ,ly:slur::calc-direction) |
1740 (height-limit . 2.0) | 1800 (height-limit . 2.0) |
1741 (line-thickness . 0.8) | 1801 (line-thickness . 0.8) |
1742 (minimum-length . 1.5) | 1802 (minimum-length . 1.5) |
1743 (ratio . 0.25) | 1803 (ratio . 0.25) |
| 1804 (spanner-id . "") |
1744 (springs-and-rods . ,ly:spanner::set-spacing-rods) | 1805 (springs-and-rods . ,ly:spanner::set-spacing-rods) |
1745 (stencil . ,ly:slur::print) | 1806 (stencil . ,ly:slur::print) |
1746 (thickness . 1.2) | 1807 (thickness . 1.2) |
1747 (Y-extent . ,ly:slur::height) | 1808 (Y-extent . ,ly:slur::height) |
1748 (meta . ((class . Spanner) | 1809 (meta . ((class . Spanner) |
1749 (interfaces . (slur-interface)))))) | 1810 (interfaces . (slur-interface)))))) |
1750 | 1811 |
1751 (SostenutoPedal | 1812 (SostenutoPedal |
1752 . ( | 1813 . ( |
1753 (direction . ,RIGHT) | 1814 (direction . ,RIGHT) |
(...skipping 151 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1905 | 1966 |
1906 ;; We use the normal minima as minimum for the ideal lengths, | 1967 ;; We use the normal minima as minimum for the ideal lengths, |
1907 ;; and the extreme minima as abolute minimum length. | 1968 ;; and the extreme minima as abolute minimum length. |
1908 | 1969 |
1909 (direction . ,ly:stem::calc-direction) | 1970 (direction . ,ly:stem::calc-direction) |
1910 (duration-log . ,stem::calc-duration-log) | 1971 (duration-log . ,stem::calc-duration-log) |
1911 (flag . ,ly:stem::calc-flag) | 1972 (flag . ,ly:stem::calc-flag) |
1912 (length . ,ly:stem::calc-length) | 1973 (length . ,ly:stem::calc-length) |
1913 (neutral-direction . ,DOWN) | 1974 (neutral-direction . ,DOWN) |
1914 (positioning-done . ,ly:stem::calc-positioning-done) | 1975 (positioning-done . ,ly:stem::calc-positioning-done) |
| 1976 (stem-begin-position . ,ly:stem::calc-stem-begin-position) |
1915 (stem-end-position . ,ly:stem::calc-stem-end-position) | 1977 (stem-end-position . ,ly:stem::calc-stem-end-position) |
1916 (stem-info . ,ly:stem::calc-stem-info) | 1978 (stem-info . ,ly:stem::calc-stem-info) |
1917 (stencil . ,ly:stem::print) | 1979 (stencil . ,ly:stem::print) |
1918 (thickness . 1.3) | 1980 (thickness . 1.3) |
1919 (X-extent . ,ly:stem::width) | 1981 (X-extent . ,ly:stem::width) |
1920 (X-offset . ,ly:stem::offset-callback) | 1982 (X-offset . ,ly:stem::offset-callback) |
1921 (Y-extent . ,ly:stem::height) | 1983 (Y-extent . ,ly:stem::height) |
1922 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1984 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1923 (meta . ((class . Item) | 1985 (meta . ((class . Item) |
1924 (interfaces . (font-interface | 1986 (interfaces . (font-interface |
(...skipping 722 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2647 (if (not (procedure? unpure)) | 2709 (if (not (procedure? unpure)) |
2648 unpure | 2710 unpure |
2649 (if (memq unpure pure-functions) | 2711 (if (memq unpure pure-functions) |
2650 (apply unpure args) | 2712 (apply unpure args) |
2651 (let ((pure (assq unpure pure-conversions-alist))) | 2713 (let ((pure (assq unpure pure-conversions-alist))) |
2652 (if pure | 2714 (if pure |
2653 (apply (cdr pure) | 2715 (apply (cdr pure) |
2654 (append | 2716 (append |
2655 (list (car args) start end) | 2717 (list (car args) start end) |
2656 (cdr args))))))))) | 2718 (cdr args))))))))) |
LEFT | RIGHT |