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--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2020 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 1433 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1444 (X-align-on-main-noteheads . #t) | 1444 (X-align-on-main-noteheads . #t) |
1445 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) | 1445 (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent) |
1446 (Y-extent . ,grob::always-Y-extent-from-stencil) | 1446 (Y-extent . ,grob::always-Y-extent-from-stencil) |
1447 (meta . ((class . Item) | 1447 (meta . ((class . Item) |
1448 (interfaces . (font-interface | 1448 (interfaces . (font-interface |
1449 lyric-syllable-interface | 1449 lyric-syllable-interface |
1450 rhythmic-grob-interface | 1450 rhythmic-grob-interface |
1451 self-alignment-interface | 1451 self-alignment-interface |
1452 text-interface)))))) | 1452 text-interface)))))) |
1453 | 1453 |
1454 (LyricTransition | |
1455 . ( | |
1456 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) | |
1457 (arrow-length . 0.5) | |
1458 (arrow-width . 0.5) | |
1459 (bound-details . ((left . ((Y . 0) | |
1460 (padding . 0.15) | |
1461 (attach-dir . ,RIGHT) | |
1462 )) | |
1463 (right . ((Y . 0) | |
1464 (padding . 0.15) | |
1465 (attach-dir . ,LEFT) | |
1466 (arrow . #t) | |
1467 )))) | |
1468 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | |
1469 (minimum-length . 1.0) | |
1470 (minimum-length-after-break . 0.0) | |
1471 (minimum-length-includes-bounds . #f) | |
1472 (minimum-length-includes-padding . #f) | |
1473 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) | |
1474 (springs-and-rods . ,ly:spanner::set-spacing-rods) | |
1475 (stencil . ,ly:line-spanner::print) | |
1476 (style . line) | |
1477 (vertical-skylines . ,grob::unpure-vertical-skylines-from-stencil) | |
1478 (Y-offset . 0.5) | |
1479 (meta . ((class . Spanner) | |
1480 (interfaces . (line-interface | |
1481 line-spanner-interface | |
1482 lyric-interface | |
1483 spanner-interface)))))) | |
1484 | |
1485 (MeasureCounter | 1454 (MeasureCounter |
1486 . ( | 1455 . ( |
1487 (count-from . 1) | 1456 (count-from . 1) |
1488 (direction . ,UP) | 1457 (direction . ,UP) |
1489 (font-encoding . fetaText) | 1458 (font-encoding . fetaText) |
1490 (font-size . -2) | 1459 (font-size . -2) |
1491 (outside-staff-horizontal-padding . 0.5) | 1460 (outside-staff-horizontal-padding . 0.5) |
1492 (outside-staff-priority . 750) | 1461 (outside-staff-priority . 750) |
1493 (self-alignment-X . ,CENTER) | 1462 (self-alignment-X . ,CENTER) |
1494 (side-axis . ,Y) | 1463 (side-axis . ,Y) |
(...skipping 1395 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2890 (Y-extent . ,axis-group-interface::height) | 2859 (Y-extent . ,axis-group-interface::height) |
2891 (Y-offset . ,side-position-interface::y-aligned-side) | 2860 (Y-offset . ,side-position-interface::y-aligned-side) |
2892 (meta . ((class . Spanner) | 2861 (meta . ((class . Spanner) |
2893 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) | 2862 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common) |
2894 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) | 2863 (pure-relevant-grobs . ,ly:axis-group-inte
rface::calc-pure-relevant-grobs))) |
2895 (interfaces . (axis-group-interface | 2864 (interfaces . (axis-group-interface |
2896 outside-staff-interface | 2865 outside-staff-interface |
2897 side-position-interface | 2866 side-position-interface |
2898 volta-interface)))))) | 2867 volta-interface)))))) |
2899 | 2868 |
| 2869 (VowelTransition |
| 2870 . ( |
| 2871 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) |
| 2872 (arrow-length . 0.5) |
| 2873 (arrow-width . 0.5) |
| 2874 (bound-details . ((left . ((Y . 0) |
| 2875 (padding . 0.14) |
| 2876 (attach-dir . ,RIGHT) |
| 2877 )) |
| 2878 (right-broken . ((padding . 0))) |
| 2879 (left-broken . ((padding . 0))) |
| 2880 (right . ((Y . 0) |
| 2881 (padding . 0.14) |
| 2882 (attach-dir . ,LEFT) |
| 2883 (arrow . #t) |
| 2884 )))) |
| 2885 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
| 2886 (minimum-length . 1.0) |
| 2887 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) |
| 2888 (springs-and-rods . ,ly:vowel-transition::set-spacing-rods) |
| 2889 (stencil . ,ly:line-spanner::print) |
| 2890 (style . line) |
| 2891 (vertical-skylines . ,grob::unpure-vertical-skylines-from-stencil) |
| 2892 (Y-offset . 0.5) |
| 2893 (meta . ((class . Spanner) |
| 2894 (interfaces . (line-interface |
| 2895 line-spanner-interface |
| 2896 lyric-interface |
| 2897 spanner-interface)))))) |
| 2898 |
2900 )) | 2899 )) |
2901 | 2900 |
2902 (define (completize-grob-entry x) | 2901 (define (completize-grob-entry x) |
2903 "Transplant assoc key into 'name entry of 'meta of X. Set interfaces for Item
, Spanner etc. | 2902 "Transplant assoc key into 'name entry of 'meta of X. Set interfaces for Item
, Spanner etc. |
2904 " | 2903 " |
2905 ;; (display (car x)) | 2904 ;; (display (car x)) |
2906 ;; (newline) | 2905 ;; (newline) |
2907 (let* ((name-sym (car x)) | 2906 (let* ((name-sym (car x)) |
2908 (grob-entry (cdr x)) | 2907 (grob-entry (cdr x)) |
2909 (meta-entry (assoc-get 'meta grob-entry)) | 2908 (meta-entry (assoc-get 'meta grob-entry)) |
(...skipping 31 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2941 ;; make sure that \property Foo.Bar =\turnOff doesn't complain | 2940 ;; make sure that \property Foo.Bar =\turnOff doesn't complain |
2942 | 2941 |
2943 (for-each (lambda (x) | 2942 (for-each (lambda (x) |
2944 ;; (display (car x)) (newline) | 2943 ;; (display (car x)) (newline) |
2945 | 2944 |
2946 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) | 2945 (set-object-property! (car x) 'translation-type? ly:grob-properties?
) |
2947 (set-object-property! (car x) 'is-grob? #t)) | 2946 (set-object-property! (car x) 'is-grob? #t)) |
2948 all-grob-descriptions) | 2947 all-grob-descriptions) |
2949 | 2948 |
2950 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) | 2949 (set! all-grob-descriptions (sort all-grob-descriptions alist<?)) |
LEFT | RIGHT |