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--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 %%%% Copyright (C) 2003--2011 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 106 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
117 'context-type ctx)) | 117 'context-type ctx)) |
118 | 118 |
119 appoggiatura = | 119 appoggiatura = |
120 #(def-grace-function startAppoggiaturaMusic stopAppoggiaturaMusic | 120 #(def-grace-function startAppoggiaturaMusic stopAppoggiaturaMusic |
121 (_i "Create an appoggiatura from @var{music}")) | 121 (_i "Create an appoggiatura from @var{music}")) |
122 | 122 |
123 % for regression testing purposes. | 123 % for regression testing purposes. |
124 assertBeamQuant = | 124 assertBeamQuant = |
125 #(define-music-function (parser location l r) (pair? pair?) | 125 #(define-music-function (parser location l r) (pair? pair?) |
126 (_i "Testing function: check whether the beam quants @var{l} and @var{r} are
correct") | 126 (_i "Testing function: check whether the beam quants @var{l} and @var{r} are
correct") |
127 (make-grob-property-override 'Beam 'positions | 127 (make-grob-property-override 'Beam 'positions (check-quant-callbacks l r))) |
128 » » » » (ly:make-simple-closure | |
129 » » » » (ly:make-simple-closure | |
130 » » » » (append | |
131 » » » » (list chain-grob-member-functions `(,cons 0 0
)) | |
132 » » » » (check-quant-callbacks l r)))))) | |
133 | 128 |
134 % for regression testing purposes. | 129 % for regression testing purposes. |
135 assertBeamSlope = | 130 assertBeamSlope = |
136 #(define-music-function (parser location comp) (procedure?) | 131 #(define-music-function (parser location comp) (procedure?) |
137 (_i "Testing function: check whether the slope of the beam is the same as @co
de{comp}") | 132 (_i "Testing function: check whether the slope of the beam is the same as @co
de{comp}") |
138 (make-grob-property-override 'Beam 'positions | 133 (make-grob-property-override 'Beam 'positions (check-slope-callbacks comp))) |
139 » » » » (ly:make-simple-closure | |
140 » » » » (ly:make-simple-closure | |
141 » » » » (append | |
142 » » » » (list chain-grob-member-functions `(,cons 0 0
)) | |
143 » » » » (check-slope-callbacks comp)))))) | |
144 | 134 |
145 autochange = | 135 autochange = |
146 #(define-music-function (parser location music) (ly:music?) | 136 #(define-music-function (parser location music) (ly:music?) |
147 (_i "Make voices that switch between staves automatically") | 137 (_i "Make voices that switch between staves automatically") |
148 (make-autochange-music parser music)) | 138 (make-autochange-music parser music)) |
149 | 139 |
150 | 140 |
151 | 141 |
152 balloonGrobText = | 142 balloonGrobText = |
153 #(define-music-function (parser location grob-name offset text) | 143 #(define-music-function (parser location grob-name offset text) |
(...skipping 903 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1057 | 1047 |
1058 | 1048 |
1059 | 1049 |
1060 withMusicProperty = | 1050 withMusicProperty = |
1061 #(define-music-function (parser location sym val music) | 1051 #(define-music-function (parser location sym val music) |
1062 (symbol? scheme? ly:music?) | 1052 (symbol? scheme? ly:music?) |
1063 (_i "Set @var{sym} to @var{val} in @var{music}.") | 1053 (_i "Set @var{sym} to @var{val} in @var{music}.") |
1064 | 1054 |
1065 (set! (ly:music-property music sym) val) | 1055 (set! (ly:music-property music sym) val) |
1066 music) | 1056 music) |
OLD | NEW |