OLD | NEW |
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 1022 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1911 ;; Flagged stems we shorten only half a staff space. | 1922 ;; Flagged stems we shorten only half a staff space. |
1912 (stem-shorten . (1.0 0.5)) | 1923 (stem-shorten . (1.0 0.5)) |
1913 | 1924 |
1914 )) | 1925 )) |
1915 | 1926 |
1916 ;; We use the normal minima as minimum for the ideal lengths, | 1927 ;; We use the normal minima as minimum for the ideal lengths, |
1917 ;; and the extreme minima as abolute minimum length. | 1928 ;; and the extreme minima as abolute minimum length. |
1918 | 1929 |
1919 (direction . ,ly:stem::calc-direction) | 1930 (direction . ,ly:stem::calc-direction) |
1920 (duration-log . ,stem::calc-duration-log) | 1931 (duration-log . ,stem::calc-duration-log) |
1921 (flag . ,ly:stem::calc-flag) | |
1922 (length . ,ly:stem::calc-length) | 1932 (length . ,ly:stem::calc-length) |
1923 (neutral-direction . ,DOWN) | 1933 (neutral-direction . ,DOWN) |
1924 (positioning-done . ,ly:stem::calc-positioning-done) | 1934 (positioning-done . ,ly:stem::calc-positioning-done) |
1925 (stem-begin-position . ,ly:stem::calc-stem-begin-position) | 1935 (stem-begin-position . ,ly:stem::calc-stem-begin-position) |
1926 (stem-end-position . ,ly:stem::calc-stem-end-position) | 1936 (stem-end-position . ,ly:stem::calc-stem-end-position) |
1927 (stem-info . ,ly:stem::calc-stem-info) | 1937 (stem-info . ,ly:stem::calc-stem-info) |
1928 (stencil . ,ly:stem::print) | 1938 (stencil . ,ly:stem::print) |
1929 (thickness . 1.3) | 1939 (thickness . 1.3) |
1930 (X-extent . ,ly:stem::width) | 1940 (X-extent . ,ly:stem::width) |
1931 (X-offset . ,ly:stem::offset-callback) | 1941 (X-offset . ,ly:stem::offset-callback) |
1932 (Y-extent . ,ly:stem::height) | 1942 (Y-extent . ,ly:stem::height) |
1933 (Y-offset . ,ly:staff-symbol-referencer::callback) | 1943 (Y-offset . ,ly:staff-symbol-referencer::callback) |
1934 (meta . ((class . Item) | 1944 (meta . ((class . Item) |
1935 » » (interfaces . (font-interface | 1945 » » (interfaces . (stem-interface)))))) |
1936 » » » » stem-interface)))))) | |
1937 | 1946 |
1938 (StemTremolo | 1947 (StemTremolo |
1939 . ( | 1948 . ( |
1940 (beam-thickness . 0.48) ; staff-space | 1949 (beam-thickness . 0.48) ; staff-space |
1941 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space | 1950 (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space |
1942 (slope . ,ly:stem-tremolo::calc-slope) | 1951 (slope . ,ly:stem-tremolo::calc-slope) |
1943 (stencil . ,ly:stem-tremolo::print) | 1952 (stencil . ,ly:stem-tremolo::print) |
1944 (style . ,ly:stem-tremolo::calc-style) | 1953 (style . ,ly:stem-tremolo::calc-style) |
1945 (X-extent . ,ly:stem-tremolo::width) | 1954 (X-extent . ,ly:stem-tremolo::width) |
1946 (meta . ((class . Item) | 1955 (meta . ((class . Item) |
(...skipping 623 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2570 fret-board::calc-stencil | 2579 fret-board::calc-stencil |
2571 note-head::brew-ez-stencil | 2580 note-head::brew-ez-stencil |
2572 print-circled-text-callback | 2581 print-circled-text-callback |
2573 laissez-vibrer::print | 2582 laissez-vibrer::print |
2574 lyric-text::print | 2583 lyric-text::print |
2575 ly:bar-line::print | 2584 ly:bar-line::print |
2576 ly:mensural-ligature::brew-ligature-primitive | 2585 ly:mensural-ligature::brew-ligature-primitive |
2577 ly:note-head::print | 2586 ly:note-head::print |
2578 ly:dots::print | 2587 ly:dots::print |
2579 ly:clef::print | 2588 ly:clef::print |
| 2589 ly:flag::print |
| 2590 default-flag |
| 2591 normal-flag |
| 2592 mensural-flag |
| 2593 no-flag |
| 2594 modern-straight-flag |
| 2595 old-straight-flag |
2580 ly:key-signature-interface::print | 2596 ly:key-signature-interface::print |
2581 ly:percent-repeat-item-interface::beat-slash | 2597 ly:percent-repeat-item-interface::beat-slash |
2582 ly:text-interface::print | 2598 ly:text-interface::print |
2583 ly:script-interface::print | 2599 ly:script-interface::print |
2584 ly:sustain-pedal::print)) | 2600 ly:sustain-pedal::print)) |
2585 | 2601 |
2586 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) | 2602 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) |
2587 ;; and the print function is not pure, but there is a easy way to | 2603 ;; and the print function is not pure, but there is a easy way to |
2588 ;; figure out the Y-extent from the print function. | 2604 ;; figure out the Y-extent from the print function. |
2589 (define pure-print-to-height-conversions | 2605 (define pure-print-to-height-conversions |
(...skipping 37 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2627 (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::
pure-y-aligned-side) | 2643 (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::
pure-y-aligned-side) |
2628 (,ly:slur::height . ,ly:slur::pure-height) | 2644 (,ly:slur::height . ,ly:slur::pure-height) |
2629 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) | 2645 (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback) |
2630 (,ly:stem::height . ,ly:stem::pure-height) | 2646 (,ly:stem::height . ,ly:stem::pure-height) |
2631 (,ly:system::height . ,ly:system::calc-pure-height))) | 2647 (,ly:system::height . ,ly:system::calc-pure-height))) |
2632 | 2648 |
2633 (define pure-functions | 2649 (define pure-functions |
2634 (list | 2650 (list |
2635 parenthesize-elements | 2651 parenthesize-elements |
2636 laissez-vibrer::print | 2652 laissez-vibrer::print |
| 2653 ly:flag::calc-y-offset |
2637 ly:rest::y-offset-callback | 2654 ly:rest::y-offset-callback |
2638 ly:staff-symbol-referencer::callback | 2655 ly:staff-symbol-referencer::callback |
2639 ly:staff-symbol::height)) | 2656 ly:staff-symbol::height)) |
2640 | 2657 |
2641 (define-public (pure-relevant? grob) | 2658 (define-public (pure-relevant? grob) |
2642 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) | 2659 (let ((extent-callback (ly:grob-property-data grob 'Y-extent))) |
2643 (not (eq? #f | 2660 (not (eq? #f |
2644 (or | 2661 (or |
2645 (pair? extent-callback) | 2662 (pair? extent-callback) |
2646 (memq extent-callback pure-functions) | 2663 (memq extent-callback pure-functions) |
(...skipping 12 matching lines...) Expand all Loading... |
2659 (if (not (procedure? unpure)) | 2676 (if (not (procedure? unpure)) |
2660 unpure | 2677 unpure |
2661 (if (memq unpure pure-functions) | 2678 (if (memq unpure pure-functions) |
2662 (apply unpure args) | 2679 (apply unpure args) |
2663 (let ((pure (assq unpure pure-conversions-alist))) | 2680 (let ((pure (assq unpure pure-conversions-alist))) |
2664 (if pure | 2681 (if pure |
2665 (apply (cdr pure) | 2682 (apply (cdr pure) |
2666 (append | 2683 (append |
2667 (list (car args) start end) | 2684 (list (car args) start end) |
2668 (cdr args))))))))) | 2685 (cdr args))))))))) |
OLD | NEW |