LEFT | RIGHT |
(no file at all) | |
1 \version "2.15.5" | 1 \version "2.15.18" |
2 #(use-modules (srfi srfi-13) | 2 #(use-modules (srfi srfi-13) |
3 (ice-9 format)) | 3 (ice-9 format)) |
4 | 4 |
5 %%% | 5 %%% |
6 %%% Testing utilities | 6 %%% Testing utilities |
7 %%% | 7 %%% |
8 #(use-modules (scm display-lily)) | 8 #(use-modules (scm display-lily)) |
9 #(memoize-clef-names supported-clefs) | 9 #(memoize-clef-names supported-clefs) |
10 #(define (parse-lily-and-compute-lily-string chr port) | 10 #(define (parse-lily-and-compute-lily-string chr port) |
11 (let ((lily-string (call-with-output-string | 11 (let ((lily-string (call-with-output-string |
(...skipping 156 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
168 \test "" ##[ \tempo "Allegro" 4 = 132 #] | 168 \test "" ##[ \tempo "Allegro" 4 = 132 #] |
169 \test "" ##[ \tempo "Andante" #] | 169 \test "" ##[ \tempo "Andante" #] |
170 | 170 |
171 %% key, time, clef, bar | 171 %% key, time, clef, bar |
172 \test "" ##[ \key \default #] % KeyChangeEvent | 172 \test "" ##[ \key \default #] % KeyChangeEvent |
173 \test "" ##[ \key e \minor #] | 173 \test "" ##[ \key e \minor #] |
174 \test "" ##[ \clef "bass" #] | 174 \test "" ##[ \clef "bass" #] |
175 \test "" ##[ \clef "french^2" #] | 175 \test "" ##[ \clef "french^2" #] |
176 \test "" ##[ \clef "alto_3" #] | 176 \test "" ##[ \clef "alto_3" #] |
177 \test "" ##[ \time 2/4 #] | 177 \test "" ##[ \time 2/4 #] |
178 \test "" ##[ #(set-time-signature 5 8 '(3 2)) #] | 178 \test "" ##[ $(set-time-signature 5 8 '(3 2)) #] |
179 \test "" ##[ \bar "|." #] | 179 \test "" ##[ \bar "|." #] |
180 | 180 |
181 %% staff switches | 181 %% staff switches |
182 \test "" ##[ \autochange { c d } #] % AutoChangeMusic | 182 \test "" ##[ \autochange { c d } #] % AutoChangeMusic |
183 \test "" ##[ { \change Staff = "up" { c d } } #] % ContextChange | 183 \test "" ##[ { \change Staff = "up" { c d } } #] % ContextChange |
184 | 184 |
185 %% Tuplets | 185 %% Tuplets |
186 \test "" ##[ \times 2/3 { c8 d e } #] % TimeScaledMusi
c | 186 \test "" ##[ \times 2/3 { c8 d e } #] % TimeScaledMusi
c |
187 \test "" ##[ \times 4/6 { c16 d e f g a } #] | 187 \test "" ##[ \times 4/6 { c16 d e f g a } #] |
188 %} | 188 %} |
(...skipping 55 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
244 | 244 |
245 %% \tweak | 245 %% \tweak |
246 \test "" ##[ < \tweak #'duration-log #2 c > #] | 246 \test "" ##[ < \tweak #'duration-log #2 c > #] |
247 \test "" ##[ < c \tweak #'transparent ##t e > #] | 247 \test "" ##[ < c \tweak #'transparent ##t e > #] |
248 \test "" ##[ < \tweak #'color #'(1.0 0.0 0.0) \tweak #'duration-log #2 c > #] | 248 \test "" ##[ < \tweak #'color #'(1.0 0.0 0.0) \tweak #'duration-log #2 c > #] |
249 \test "" ##[ c-\tweak #'font-size #3 -> #] | 249 \test "" ##[ c-\tweak #'font-size #3 -> #] |
250 | 250 |
251 %% end test. | 251 %% end test. |
252 | 252 |
253 #(read-hash-extend #\[ #f) %{ ] %} | 253 #(read-hash-extend #\[ #f) %{ ] %} |
LEFT | RIGHT |