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 979 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
990 ((OverrideProperty) | 990 ((OverrideProperty) |
991 (cons* 'push | 991 (cons* 'push |
992 (ly:music-property m 'symbol) | 992 (ly:music-property m 'symbol) |
993 (ly:music-property m 'grob-value) | 993 (ly:music-property m 'grob-value) |
994 (ly:music-property m 'grob-property-path))) | 994 (ly:music-property m 'grob-property-path))) |
995 ((RevertProperty) | 995 ((RevertProperty) |
996 (cons* 'pop | 996 (cons* 'pop |
997 (ly:music-property m 'symbol) | 997 (ly:music-property m 'symbol) |
998 (ly:music-property m 'grob-property-path))))) | 998 (ly:music-property m 'grob-property-path))))) |
999 (case (ly:music-property m 'name) | 999 (case (ly:music-property m 'name) |
1000 » ((SequentialMusic SimultaneousMusic) | 1000 » ((ApplyContext) |
1001 » (for-each musicop (ly:music-property m 'elements))) | 1001 » (ly:add-context-mod mods |
| 1002 » » » » (list 'apply |
| 1003 » » » » » (ly:music-property m 'procedure)))) |
1002 ((ContextSpeccedMusic) | 1004 ((ContextSpeccedMusic) |
1003 (if (or (not ctx) | 1005 (if (or (not ctx) |
1004 (eq? ctx (ly:music-property m 'context-type))) | 1006 (eq? ctx (ly:music-property m 'context-type))) |
1005 » » (musicop (ly:music-property m 'element))))))) | 1007 » » (musicop (ly:music-property m 'element)))) |
| 1008 » (else |
| 1009 » (let ((callback (ly:music-property m 'elements-callback))) |
| 1010 » » (if (procedure? callback) |
| 1011 » » (for-each musicop (callback m)))))))) |
1006 (musicop music) | 1012 (musicop music) |
1007 mods)) | 1013 mods)) |
1008 | 1014 |
1009 shiftDurations = | 1015 shiftDurations = |
1010 #(define-music-function (parser location dur dots arg) | 1016 #(define-music-function (parser location dur dots arg) |
1011 (integer? integer? ly:music?) | 1017 (integer? integer? ly:music?) |
1012 (_i "Change the duration of @var{arg} by adding @var{dur} to the | 1018 (_i "Change the duration of @var{arg} by adding @var{dur} to the |
1013 @code{durlog} of @var{arg} and @var{dots} to the @code{dots} of @var{arg}.") | 1019 @code{durlog} of @var{arg} and @var{dots} to the @code{dots} of @var{arg}.") |
1014 | 1020 |
1015 (music-map | 1021 (music-map |
(...skipping 126 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1142 Use this if you want to have a scheme expression evaluated | 1148 Use this if you want to have a scheme expression evaluated |
1143 because of its side-effects, but its value ignored.")) | 1149 because of its side-effects, but its value ignored.")) |
1144 | 1150 |
1145 withMusicProperty = | 1151 withMusicProperty = |
1146 #(define-music-function (parser location sym val music) | 1152 #(define-music-function (parser location sym val music) |
1147 (symbol? scheme? ly:music?) | 1153 (symbol? scheme? ly:music?) |
1148 (_i "Set @var{sym} to @var{val} in @var{music}.") | 1154 (_i "Set @var{sym} to @var{val} in @var{music}.") |
1149 | 1155 |
1150 (set! (ly:music-property music sym) val) | 1156 (set! (ly:music-property music sym) val) |
1151 music) | 1157 music) |
OLD | NEW |