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 333 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
344 ;; We choose to shorten 8th beams the same as single stems, | 344 ;; We choose to shorten 8th beams the same as single stems, |
345 ;; and high order beams less than 8th beams, so that all | 345 ;; and high order beams less than 8th beams, so that all |
346 ;; isolated shortened beams look nice and a bit shortened, | 346 ;; isolated shortened beams look nice and a bit shortened, |
347 ;; sadly possibly breaking patterns with high order beams. | 347 ;; sadly possibly breaking patterns with high order beams. |
348 (beamed-stem-shorten . (1.0 0.5 0.25)) | 348 (beamed-stem-shorten . (1.0 0.5 0.25)) |
349 | 349 |
350 (beaming . ,ly:beam::calc-beaming) | 350 (beaming . ,ly:beam::calc-beaming) |
351 (clip-edges . #t) | 351 (clip-edges . #t) |
352 (collision-interfaces . (beam-interface | 352 (collision-interfaces . (beam-interface |
353 clef-interface | 353 clef-interface |
| 354 flag-interface |
354 inline-accidental-interface | 355 inline-accidental-interface |
355 key-signature-interface | 356 key-signature-interface |
356 note-head-interface | 357 note-head-interface |
357 stem-interface | 358 stem-interface |
358 time-signature-interface)) | 359 time-signature-interface)) |
359 (concaveness . ,ly:beam::calc-concaveness) | 360 (concaveness . ,ly:beam::calc-concaveness) |
360 (cross-staff . ,ly:beam::calc-cross-staff) | 361 (cross-staff . ,ly:beam::calc-cross-staff) |
361 (damping . 1) | 362 (damping . 1) |
362 (details | 363 (details |
363 .( | 364 .( |
(...skipping 505 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
869 (stencil . ,ly:text-interface::print) | 870 (stencil . ,ly:text-interface::print) |
870 (text . ,fingering::calc-text) | 871 (text . ,fingering::calc-text) |
871 (meta . ((class . Item) | 872 (meta . ((class . Item) |
872 (interfaces . (finger-interface | 873 (interfaces . (finger-interface |
873 font-interface | 874 font-interface |
874 self-alignment-interface | 875 self-alignment-interface |
875 side-position-interface | 876 side-position-interface |
876 text-interface | 877 text-interface |
877 text-script-interface)))))) | 878 text-script-interface)))))) |
878 | 879 |
| 880 (Flag |
| 881 . ( |
| 882 (stencil . ,ly:flag::print) |
| 883 (X-extent . ,ly:flag::width) |
| 884 (X-offset . ,ly:flag::calc-x-offset) |
| 885 (Y-offset . ,ly:flag::calc-y-offset) |
| 886 (meta . ((class . Item) |
| 887 (interfaces . (flag-interface |
| 888 font-interface)))))) |
| 889 |
879 (FootnoteItem | 890 (FootnoteItem |
880 . ( | 891 . ( |
881 (annotation-balloon . #f) | 892 (annotation-balloon . #f) |
882 (annotation-line . #t) | 893 (annotation-line . #t) |
883 (break-visibility . ,inherit-y-parent-visibility) | 894 (break-visibility . ,inherit-y-parent-visibility) |
884 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) | 895 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) |
885 (stencil . ,ly:balloon-interface::print) | 896 (stencil . ,ly:balloon-interface::print) |
886 (text . ,(grob::calc-property-by-copy 'text)) | 897 (text . ,(grob::calc-property-by-copy 'text)) |
887 (X-extent . #f) | 898 (X-extent . #f) |
888 (Y-extent . #f) | 899 (Y-extent . #f) |
(...skipping 820 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1709 (Script | 1720 (Script |
1710 . ( | 1721 . ( |
1711 (add-stem-support . #t) | 1722 (add-stem-support . #t) |
1712 (cross-staff . ,ly:script-interface::calc-cross-staff) | 1723 (cross-staff . ,ly:script-interface::calc-cross-staff) |
1713 (direction . ,ly:script-interface::calc-direction) | 1724 (direction . ,ly:script-interface::calc-direction) |
1714 (font-encoding . fetaMusic) | 1725 (font-encoding . fetaMusic) |
1715 (positioning-done . ,ly:script-interface::calc-positioning-done) | 1726 (positioning-done . ,ly:script-interface::calc-positioning-done) |
1716 (side-axis . ,Y) | 1727 (side-axis . ,Y) |
1717 | 1728 |
1718 ;; padding set in script definitions. | 1729 ;; padding set in script definitions. |
| 1730 (slur-padding . 0.2) |
1719 (staff-padding . 0.25) | 1731 (staff-padding . 0.25) |
1720 | 1732 |
1721 (stencil . ,ly:script-interface::print) | 1733 (stencil . ,ly:script-interface::print) |
1722 (X-offset . ,script-interface::calc-x-offset) | 1734 (X-offset . ,script-interface::calc-x-offset) |
1723 (Y-offset . ,ly:side-position-interface::y-aligned-side) | 1735 (Y-offset . ,ly:side-position-interface::y-aligned-side) |
1724 (meta . ((class . Item) | 1736 (meta . ((class . Item) |
1725 (interfaces . (font-interface | 1737 (interfaces . (font-interface |
1726 script-interface | 1738 script-interface |
1727 side-position-interface)))))) | 1739 side-position-interface)))))) |
1728 | 1740 |
(...skipping 181 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1910 ;; Flagged stems we shorten only half a staff space. | 1922 ;; Flagged stems we shorten only half a staff space. |
1911 (stem-shorten . (1.0 0.5)) | 1923 (stem-shorten . (1.0 0.5)) |
1912 | 1924 |
1913 )) | 1925 )) |
1914 | 1926 |
1915 ;; We use the normal minima as minimum for the ideal lengths, | 1927 ;; We use the normal minima as minimum for the ideal lengths, |
1916 ;; and the extreme minima as abolute minimum length. | 1928 ;; and the extreme minima as abolute minimum length. |
1917 | 1929 |
1918 (direction . ,ly:stem::calc-direction) | 1930 (direction . ,ly:stem::calc-direction) |
1919 (duration-log . ,stem::calc-duration-log) | 1931 (duration-log . ,stem::calc-duration-log) |
1920 (flag . ,ly:stem::calc-flag) | |
1921 (neutral-direction . ,DOWN) | 1932 (neutral-direction . ,DOWN) |
1922 (positioning-done . ,ly:stem::calc-positioning-done) | 1933 (positioning-done . ,ly:stem::calc-positioning-done) |
1923 (stem-info . ,ly:stem::calc-stem-info) | 1934 (stem-info . ,ly:stem::calc-stem-info) |
1924 (stencil . ,ly:stem::print) | 1935 (stencil . ,ly:stem::print) |
1925 (thickness . 1.3) | 1936 (thickness . 1.3) |
1926 (X-extent . ,ly:stem::width) | 1937 (X-extent . ,ly:stem::width) |
1927 (X-offset . ,ly:stem::offset-callback) | 1938 (X-offset . ,ly:stem::offset-callback) |
1928 (Y-extent . ,ly:stem::height) | 1939 (Y-extent . ,ly:stem::height) |
1929 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1940 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1930 (meta . ((class . Item) | 1941 (meta . ((class . Item) |
1931 » » (interfaces . (font-interface | 1942 » » (interfaces . (stem-interface)))))) |
1932 » » » » stem-interface)))))) | |
1933 | 1943 |
1934 (StemTremolo | 1944 (StemTremolo |
1935 . ( | 1945 . ( |
1936 (beam-thickness . 0.48) ; staff-space | 1946 (beam-thickness . 0.48) ; staff-space |
1937 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space | 1947 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space |
1938 (slope . ,ly:stem-tremolo::calc-slope) | 1948 (slope . ,ly:stem-tremolo::calc-slope) |
1939 (stencil . ,ly:stem-tremolo::print) | 1949 (stencil . ,ly:stem-tremolo::print) |
1940 (style . ,ly:stem-tremolo::calc-style) | 1950 (style . ,ly:stem-tremolo::calc-style) |
1941 (X-extent . ,ly:stem-tremolo::width) | 1951 (X-extent . ,ly:stem-tremolo::width) |
1942 (meta . ((class . Item) | 1952 (meta . ((class . Item) |
(...skipping 623 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2566 fret-board::calc-stencil | 2576 fret-board::calc-stencil |
2567 note-head::brew-ez-stencil | 2577 note-head::brew-ez-stencil |
2568 print-circled-text-callback | 2578 print-circled-text-callback |
2569 laissez-vibrer::print | 2579 laissez-vibrer::print |
2570 lyric-text::print | 2580 lyric-text::print |
2571 ly:bar-line::print | 2581 ly:bar-line::print |
2572 ly:mensural-ligature::brew-ligature-primitive | 2582 ly:mensural-ligature::brew-ligature-primitive |
2573 ly:note-head::print | 2583 ly:note-head::print |
2574 ly:dots::print | 2584 ly:dots::print |
2575 ly:clef::print | 2585 ly:clef::print |
| 2586 ly:flag::print |
| 2587 default-flag |
| 2588 normal-flag |
| 2589 mensural-flag |
| 2590 no-flag |
| 2591 modern-straight-flag |
| 2592 old-straight-flag |
2576 ly:key-signature-interface::print | 2593 ly:key-signature-interface::print |
2577 ly:percent-repeat-item-interface::beat-slash | 2594 ly:percent-repeat-item-interface::beat-slash |
2578 ly:text-interface::print | 2595 ly:text-interface::print |
2579 ly:script-interface::print | 2596 ly:script-interface::print |
2580 ly:sustain-pedal::print)) | 2597 ly:sustain-pedal::print)) |
2581 | 2598 |
2582 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) | 2599 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) |
2583 ;; and the print function is not pure, but there is a easy way to | 2600 ;; and the print function is not pure, but there is a easy way to |
2584 ;; figure out the Y-extent from the print function. | 2601 ;; figure out the Y-extent from the print function. |
2585 (define pure-print-to-height-conversions | 2602 (define pure-print-to-height-conversions |
(...skipping 38 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2624 (,ly:slur::height . ,ly:slur::pure-height) | 2641 (,ly:slur::height . ,ly:slur::pure-height) |
2625 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) | 2642 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) |
2626 (,ly:stem::calc-stem-end-position . ,ly:stem::pure-calc-stem-end-position) | 2643 (,ly:stem::calc-stem-end-position . ,ly:stem::pure-calc-stem-end-position) |
2627 (,ly:stem::height . ,ly:stem::pure-height) | 2644 (,ly:stem::height . ,ly:stem::pure-height) |
2628 (,ly:system::height . ,ly:system::calc-pure-height))) | 2645 (,ly:system::height . ,ly:system::calc-pure-height))) |
2629 | 2646 |
2630 (define pure-functions | 2647 (define pure-functions |
2631 (list | 2648 (list |
2632 parenthesize-elements | 2649 parenthesize-elements |
2633 laissez-vibrer::print | 2650 laissez-vibrer::print |
| 2651 ly:flag::calc-y-offset |
2634 ly:rest::y-offset-callback | 2652 ly:rest::y-offset-callback |
2635 ly:staff-symbol-referencer::callback | 2653 ly:staff-symbol-referencer::callback |
2636 ly:staff-symbol::height)) | 2654 ly:staff-symbol::height)) |
2637 | 2655 |
2638 (define-public (pure-relevant? grob) | 2656 (define-public (pure-relevant? grob) |
2639 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) | 2657 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) |
2640 (not (eq? #f | 2658 (not (eq? #f |
2641 (or | 2659 (or |
2642 (pair? extent-callback) | 2660 (pair? extent-callback) |
2643 (memq extent-callback pure-functions) | 2661 (memq extent-callback pure-functions) |
(...skipping 12 matching lines...) Expand all Loading... |
2656 (if (not (procedure? unpure)) | 2674 (if (not (procedure? unpure)) |
2657 unpure | 2675 unpure |
2658 (if (memq unpure pure-functions) | 2676 (if (memq unpure pure-functions) |
2659 (apply unpure args) | 2677 (apply unpure args) |
2660 (let ((pure (assq unpure pure-conversions-alist))) | 2678 (let ((pure (assq unpure pure-conversions-alist))) |
2661 (if pure | 2679 (if pure |
2662 (apply (cdr pure) | 2680 (apply (cdr pure) |
2663 (append | 2681 (append |
2664 (list (car args) start end) | 2682 (list (car args) start end) |
2665 (cdr args))))))))) | 2683 (cdr args))))))))) |
LEFT | RIGHT |