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--2019 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 |
11 %%%% (at your option) any later version. | 11 %%%% (at your option) any later version. |
12 %%%% | 12 %%%% |
13 %%%% LilyPond is distributed in the hope that it will be useful, | 13 %%%% LilyPond is distributed in the hope that it will be useful, |
14 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of | 14 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of |
15 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 15 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 375 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
391 #(define-scheme-function (port expr) ((output-port?) scheme?) | 391 #(define-scheme-function (port expr) ((output-port?) scheme?) |
392 (_i "Display the internal representation of @var{expr} to | 392 (_i "Display the internal representation of @var{expr} to |
393 @var{port}, default to the console.") | 393 @var{port}, default to the console.") |
394 (let ((port (or port (current-output-port)))) | 394 (let ((port (or port (current-output-port)))) |
395 (newline port) | 395 (newline port) |
396 (display-scheme-music expr port)) | 396 (display-scheme-music expr port)) |
397 expr) | 397 expr) |
398 | 398 |
399 | 399 |
400 dropNote = | 400 dropNote = |
401 #(define-music-function (parser location num music) (integer? ly:music?) | 401 #(define-music-function (num music) (integer? ly:music?) |
402 (_i "Drop a note of any chords in @var{music}, in @var{num} position from abo
ve.") | 402 (_i "Drop a note of any chords in @var{music}, in @var{num} |
403 (music-map (move-chord-note num down) music)) | 403 position from above.") |
| 404 (music-map (move-chord-note (- num) DOWN) music)) |
404 | 405 |
405 | 406 |
406 endSpanners = | 407 endSpanners = |
407 #(define-music-function (music) (ly:music?) | 408 #(define-music-function (music) (ly:music?) |
408 (_i "Terminate the next spanner prematurely after exactly one note | 409 (_i "Terminate the next spanner prematurely after exactly one note |
409 without the need of a specific end spanner.") | 410 without the need of a specific end spanner.") |
410 (let* ((start-span-evs (filter (lambda (ev) | 411 (let* ((start-span-evs (filter (lambda (ev) |
411 (equal? (ly:music-property ev 'span-directio
n) | 412 (equal? (ly:music-property ev 'span-directio
n) |
412 START)) | 413 START)) |
413 (extract-typed-music music 'span-event))) | 414 (extract-typed-music music 'span-event))) |
(...skipping 1099 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1513 quoteDuring = | 1514 quoteDuring = |
1514 #(define-music-function (what main-music) (string? ly:music?) | 1515 #(define-music-function (what main-music) (string? ly:music?) |
1515 (_i "Indicate a section of music to be quoted. @var{what} indicates the name | 1516 (_i "Indicate a section of music to be quoted. @var{what} indicates the name |
1516 of the quoted voice, as specified in an @code{\\addQuote} command. | 1517 of the quoted voice, as specified in an @code{\\addQuote} command. |
1517 @var{main-music} is used to indicate the length of music to be quoted; | 1518 @var{main-music} is used to indicate the length of music to be quoted; |
1518 usually contains spacers or multi-measure rests.") | 1519 usually contains spacers or multi-measure rests.") |
1519 (make-music 'QuoteMusic | 1520 (make-music 'QuoteMusic |
1520 'element main-music | 1521 'element main-music |
1521 'quoted-music-name what)) | 1522 'quoted-music-name what)) |
1522 | 1523 |
| 1524 raiseNote = |
| 1525 #(define-music-function (parser location num music) (integer? ly:music?) |
| 1526 (_i "Raise a note of any chords in @var{music}, in @var{num} |
| 1527 position from below.") |
| 1528 (music-map (move-chord-note (1- num) UP) music)) |
| 1529 |
1523 reduceChords = | 1530 reduceChords = |
1524 #(define-music-function (music) (ly:music?) | 1531 #(define-music-function (music) (ly:music?) |
1525 (_i "Reduce chords contained in @var{music} to single notes, | 1532 (_i "Reduce chords contained in @var{music} to single notes, |
1526 intended mainly for reusing music in RhythmicStaff. Does not | 1533 intended mainly for reusing music in RhythmicStaff. Does not |
1527 reduce parallel music.") | 1534 reduce parallel music.") |
1528 (event-chord-reduce music)) | 1535 (event-chord-reduce music)) |
1529 | 1536 |
1530 relative = | 1537 relative = |
1531 #(define-music-function (pitch music) | 1538 #(define-music-function (pitch music) |
1532 ((ly:pitch?) ly:music?) | 1539 ((ly:pitch?) ly:music?) |
(...skipping 55 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1588 (revert-time-signature-setting time-signature)) | 1595 (revert-time-signature-setting time-signature)) |
1589 | 1596 |
1590 rightHandFinger = | 1597 rightHandFinger = |
1591 #(define-event-function (finger) (integer-or-markup?) | 1598 #(define-event-function (finger) (integer-or-markup?) |
1592 (_i "Apply @var{finger} as a fingering indication.") | 1599 (_i "Apply @var{finger} as a fingering indication.") |
1593 | 1600 |
1594 (make-music | 1601 (make-music |
1595 'StrokeFingerEvent | 1602 'StrokeFingerEvent |
1596 (if (integer? finger) 'digit 'text) | 1603 (if (integer? finger) 'digit 'text) |
1597 finger)) | 1604 finger)) |
1598 | |
1599 raiseNote = | |
1600 #(define-music-function (parser location num music) (integer? ly:music?) | |
1601 (_i "Raise a note of any chords in @var{music}, in @var{num} position from be
low.") | |
1602 (music-map (move-chord-note num up) music)) | |
1603 | 1605 |
1604 scaleDurations = | 1606 scaleDurations = |
1605 #(define-music-function (fraction music) | 1607 #(define-music-function (fraction music) |
1606 (scale? ly:music?) | 1608 (scale? ly:music?) |
1607 (_i "Multiply the duration of events in @var{music} by @var{fraction}.") | 1609 (_i "Multiply the duration of events in @var{music} by @var{fraction}.") |
1608 (ly:music-compress music fraction)) | 1610 (ly:music-compress music fraction)) |
1609 | 1611 |
1610 settingsFrom = | 1612 settingsFrom = |
1611 #(define-scheme-function (ctx music) | 1613 #(define-scheme-function (ctx music) |
1612 ((symbol?) ly:music?) | 1614 ((symbol?) ly:music?) |
(...skipping 424 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2037 Use this if you want to have a scheme expression evaluated | 2039 Use this if you want to have a scheme expression evaluated |
2038 because of its side-effects, but its value ignored.")) | 2040 because of its side-effects, but its value ignored.")) |
2039 | 2041 |
2040 withMusicProperty = | 2042 withMusicProperty = |
2041 #(define-music-function (sym val music) | 2043 #(define-music-function (sym val music) |
2042 (symbol? scheme? ly:music?) | 2044 (symbol? scheme? ly:music?) |
2043 (_i "Set @var{sym} to @var{val} in @var{music}.") | 2045 (_i "Set @var{sym} to @var{val} in @var{music}.") |
2044 | 2046 |
2045 (set! (ly:music-property music sym) val) | 2047 (set! (ly:music-property music sym) val) |
2046 music) | 2048 music) |
LEFT | RIGHT |