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--2019 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 |
(...skipping 383 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
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 (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} | 402 (_i "Drop a note of any chords in @var{music}, in @var{num} |
403 position from above.") | 403 position from above.") |
404 (music-map (move-chord-note (- num) -1) music)) | 404 (music-map (move-chord-note (- num) DOWN) music)) |
405 | 405 |
406 | 406 |
407 endSpanners = | 407 endSpanners = |
408 #(define-music-function (music) (ly:music?) | 408 #(define-music-function (music) (ly:music?) |
409 (_i "Terminate the next spanner prematurely after exactly one note | 409 (_i "Terminate the next spanner prematurely after exactly one note |
410 without the need of a specific end spanner.") | 410 without the need of a specific end spanner.") |
411 (let* ((start-span-evs (filter (lambda (ev) | 411 (let* ((start-span-evs (filter (lambda (ev) |
412 (equal? (ly:music-property ev 'span-directio
n) | 412 (equal? (ly:music-property ev 'span-directio
n) |
413 START)) | 413 START)) |
414 (extract-typed-music music 'span-event))) | 414 (extract-typed-music music 'span-event))) |
(...skipping 1103 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1518 @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; |
1519 usually contains spacers or multi-measure rests.") | 1519 usually contains spacers or multi-measure rests.") |
1520 (make-music 'QuoteMusic | 1520 (make-music 'QuoteMusic |
1521 'element main-music | 1521 'element main-music |
1522 'quoted-music-name what)) | 1522 'quoted-music-name what)) |
1523 | 1523 |
1524 raiseNote = | 1524 raiseNote = |
1525 #(define-music-function (parser location num music) (integer? ly:music?) | 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} | 1526 (_i "Raise a note of any chords in @var{music}, in @var{num} |
1527 position from below.") | 1527 position from below.") |
1528 (music-map (move-chord-note (1- num) 1) music)) | 1528 (music-map (move-chord-note (1- num) UP) music)) |
1529 | 1529 |
1530 reduceChords = | 1530 reduceChords = |
1531 #(define-music-function (music) (ly:music?) | 1531 #(define-music-function (music) (ly:music?) |
1532 (_i "Reduce chords contained in @var{music} to single notes, | 1532 (_i "Reduce chords contained in @var{music} to single notes, |
1533 intended mainly for reusing music in RhythmicStaff. Does not | 1533 intended mainly for reusing music in RhythmicStaff. Does not |
1534 reduce parallel music.") | 1534 reduce parallel music.") |
1535 (event-chord-reduce music)) | 1535 (event-chord-reduce music)) |
1536 | 1536 |
1537 relative = | 1537 relative = |
1538 #(define-music-function (pitch music) | 1538 #(define-music-function (pitch music) |
(...skipping 500 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2039 Use this if you want to have a scheme expression evaluated | 2039 Use this if you want to have a scheme expression evaluated |
2040 because of its side-effects, but its value ignored.")) | 2040 because of its side-effects, but its value ignored.")) |
2041 | 2041 |
2042 withMusicProperty = | 2042 withMusicProperty = |
2043 #(define-music-function (sym val music) | 2043 #(define-music-function (sym val music) |
2044 (symbol? scheme? ly:music?) | 2044 (symbol? scheme? ly:music?) |
2045 (_i "Set @var{sym} to @var{val} in @var{music}.") | 2045 (_i "Set @var{sym} to @var{val} in @var{music}.") |
2046 | 2046 |
2047 (set! (ly:music-property music sym) val) | 2047 (set! (ly:music-property music sym) val) |
2048 music) | 2048 music) |
LEFT | RIGHT |