OLD | NEW |
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--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 %%%% Copyright (C) 2003--2012 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 958 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
969 | 969 |
970 partial = | 970 partial = |
971 #(define-music-function (parser location dur) (ly:duration?) | 971 #(define-music-function (parser location dur) (ly:duration?) |
972 (_i "Make a partial measure.") | 972 (_i "Make a partial measure.") |
973 | 973 |
974 ;; We use `descend-to-context' here instead of `context-spec-music' to | 974 ;; We use `descend-to-context' here instead of `context-spec-music' to |
975 ;; ensure \partial still works if the Timing_translator is moved | 975 ;; ensure \partial still works if the Timing_translator is moved |
976 (descend-to-context | 976 (descend-to-context |
977 (context-spec-music (make-music 'PartialSet | 977 (context-spec-music (make-music 'PartialSet |
978 'origin location | 978 'origin location |
979 » » » » 'partial-duration dur) | 979 » » » » 'duration dur) |
980 'Timing) | 980 'Timing) |
981 'Score)) | 981 'Score)) |
982 | 982 |
983 pitchedTrill = | 983 pitchedTrill = |
984 #(define-music-function | 984 #(define-music-function |
985 (parser location main-note secondary-note) | 985 (parser location main-note secondary-note) |
986 (ly:music? ly:music?) | 986 (ly:music? ly:music?) |
987 (_i "Print a trill with @var{main-note} as the main note of the trill and | 987 (_i "Print a trill with @var{main-note} as the main note of the trill and |
988 print @var{secondary-note} as a stemless note head in parentheses.") | 988 print @var{secondary-note} as a stemless note head in parentheses.") |
989 (let* ((get-notes (lambda (ev-chord) | 989 (let* ((get-notes (lambda (ev-chord) |
(...skipping 533 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1523 Use this if you want to have a scheme expression evaluated | 1523 Use this if you want to have a scheme expression evaluated |
1524 because of its side-effects, but its value ignored.")) | 1524 because of its side-effects, but its value ignored.")) |
1525 | 1525 |
1526 withMusicProperty = | 1526 withMusicProperty = |
1527 #(define-music-function (parser location sym val music) | 1527 #(define-music-function (parser location sym val music) |
1528 (symbol? scheme? ly:music?) | 1528 (symbol? scheme? ly:music?) |
1529 (_i "Set @var{sym} to @var{val} in @var{music}.") | 1529 (_i "Set @var{sym} to @var{val} in @var{music}.") |
1530 | 1530 |
1531 (set! (ly:music-property music sym) val) | 1531 (set! (ly:music-property music sym) val) |
1532 music) | 1532 music) |
OLD | NEW |