LEFT | RIGHT |
1 %%%% -*- Mode: Scheme -*- | 1 %%%% -*- Mode: Scheme -*- |
2 | 2 |
3 %%%% This file is part of LilyPond, the GNU music typesetter. | 3 %%%% This file is part of LilyPond, the GNU music typesetter. |
4 %%%% | 4 %%%% |
5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> | 6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> |
7 %%%% | 7 %%%% |
8 %%%% LilyPond is free software: you can redistribute it and/or modify | 8 %%%% LilyPond is free software: you can redistribute it and/or modify |
9 %%%% it under the terms of the GNU General Public License as published by | 9 %%%% it under the terms of the GNU General Public License as published by |
10 %%%% the Free Software Foundation, either version 3 of the License, or | 10 %%%% the Free Software Foundation, either version 3 of the License, or |
(...skipping 86 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
97 alterBroken = | 97 alterBroken = |
98 #(define-music-function (property arg item) | 98 #(define-music-function (property arg item) |
99 (key-list-or-symbol? list? key-list-or-music?) | 99 (key-list-or-symbol? list? key-list-or-music?) |
100 (_i "Override @var{property} for pieces of broken spanner @var{item} | 100 (_i "Override @var{property} for pieces of broken spanner @var{item} |
101 with values @var{arg}. @var{item} may either be music in the form of | 101 with values @var{arg}. @var{item} may either be music in the form of |
102 a starting spanner event, or a symbol list in the form | 102 a starting spanner event, or a symbol list in the form |
103 @samp{Context.Grob} or just @samp{Grob}. Iff @var{item} is in the | 103 @samp{Context.Grob} or just @samp{Grob}. Iff @var{item} is in the |
104 form of a spanner event, @var{property} may also have the form | 104 form of a spanner event, @var{property} may also have the form |
105 @samp{Grob.property} for specifying a directed tweak.") | 105 @samp{Grob.property} for specifying a directed tweak.") |
106 (if (ly:music? item) | 106 (if (ly:music? item) |
107 (if (eq? (ly:music-property item 'span-direction) START) | 107 (if (or (eqv? (ly:music-property item 'span-direction) START) |
| 108 (music-is-of-type? item 'tie-event)) |
108 (tweak property (value-for-spanner-piece arg) item) | 109 (tweak property (value-for-spanner-piece arg) item) |
109 (begin | 110 (begin |
110 (ly:music-warning item (_ "not a spanner")) | 111 (ly:music-warning item (_ "not a spanner")) |
111 item)) | 112 item)) |
112 (let* ((p (check-grob-path item (*location*) | 113 (let* ((p (check-grob-path item (*location*) |
113 #:default 'Bottom | 114 #:default 'Bottom |
114 #:min 2 | 115 #:min 2 |
115 #:max 2)) | 116 #:max 2)) |
116 (name (and p (second p))) | 117 (name (and p (second p))) |
117 (description | 118 (description |
(...skipping 1427 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1545 quoteDuring = | 1546 quoteDuring = |
1546 #(define-music-function (what main-music) (string? ly:music?) | 1547 #(define-music-function (what main-music) (string? ly:music?) |
1547 (_i "Indicate a section of music to be quoted. @var{what} indicates the name | 1548 (_i "Indicate a section of music to be quoted. @var{what} indicates the name |
1548 of the quoted voice, as specified in an @code{\\addQuote} command. | 1549 of the quoted voice, as specified in an @code{\\addQuote} command. |
1549 @var{main-music} is used to indicate the length of music to be quoted; | 1550 @var{main-music} is used to indicate the length of music to be quoted; |
1550 usually contains spacers or multi-measure rests.") | 1551 usually contains spacers or multi-measure rests.") |
1551 (make-music 'QuoteMusic | 1552 (make-music 'QuoteMusic |
1552 'element main-music | 1553 'element main-music |
1553 'quoted-music-name what)) | 1554 'quoted-music-name what)) |
1554 | 1555 |
| 1556 reduceChords = |
| 1557 #(define-music-function (music) (ly:music?) |
| 1558 (_i "Reduce chords contained in @var{music} to single notes, |
| 1559 intended mainly for reusing music in RhythmicStaff. Does not |
| 1560 reduce parallel music.") |
| 1561 (event-chord-reduce music)) |
1555 | 1562 |
1556 relative = | 1563 relative = |
1557 #(define-music-function (pitch music) | 1564 #(define-music-function (pitch music) |
1558 ((ly:pitch?) ly:music?) | 1565 ((ly:pitch?) ly:music?) |
1559 (_i "Make @var{music} relative to @var{pitch}. If @var{pitch} is | 1566 (_i "Make @var{music} relative to @var{pitch}. If @var{pitch} is |
1560 omitted, the first note in @var{music} is given in absolute pitch.") | 1567 omitted, the first note in @var{music} is given in absolute pitch.") |
1561 ;; When \relative has no clear decision (can only happen with | 1568 ;; When \relative has no clear decision (can only happen with |
1562 ;; scales with an even number of steps), it goes down (see | 1569 ;; scales with an even number of steps), it goes down (see |
1563 ;; pitch.cc). The following formula puts out f for both the normal | 1570 ;; pitch.cc). The following formula puts out f for both the normal |
1564 ;; 7-step scale as well as for a "shortened" scale missing the | 1571 ;; 7-step scale as well as for a "shortened" scale missing the |
(...skipping 480 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2045 Use this if you want to have a scheme expression evaluated | 2052 Use this if you want to have a scheme expression evaluated |
2046 because of its side-effects, but its value ignored.")) | 2053 because of its side-effects, but its value ignored.")) |
2047 | 2054 |
2048 withMusicProperty = | 2055 withMusicProperty = |
2049 #(define-music-function (sym val music) | 2056 #(define-music-function (sym val music) |
2050 (symbol? scheme? ly:music?) | 2057 (symbol? scheme? ly:music?) |
2051 (_i "Set @var{sym} to @var{val} in @var{music}.") | 2058 (_i "Set @var{sym} to @var{val} in @var{music}.") |
2052 | 2059 |
2053 (set! (ly:music-property music sym) val) | 2060 (set! (ly:music-property music sym) val) |
2054 music) | 2061 music) |
LEFT | RIGHT |