LEFT | RIGHT |
1 % -*-Scheme-*- | 1 % -*-Scheme-*- |
2 | 2 |
3 \version "2.12.0" | 3 \version "2.12.0" |
4 | 4 |
5 | 5 |
6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
7 %% this file is alphabetically sorted. | 7 %% this file is alphabetically sorted. |
8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
9 | 9 |
10 %% need SRFI-1 for filter; optargs for lambda* | 10 %% need SRFI-1 for filter; optargs for lambda* |
11 #(use-modules (srfi srfi-1) | 11 #(use-modules (srfi srfi-1) |
12 (ice-9 optargs)) | 12 (ice-9 optargs)) |
13 | 13 |
14 %% TODO: using define-music-function in a .scm causes crash. | 14 %% TODO: using define-music-function in a .scm causes crash. |
15 | 15 |
16 %% Utility function for music functions not returning music | 16 %% Utility function for music functions not returning music |
17 #(define void-make-music (make-music 'SequentialMusic 'void #t)) | 17 #(define (void-make-music)·· |
| 18 (make-music 'SequentialMusic 'void #t)) |
18 | 19 |
19 acciaccatura = | 20 acciaccatura = |
20 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic | 21 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic |
21 (_i "Create an acciaccatura from the following music expression")) | 22 (_i "Create an acciaccatura from the following music expression")) |
22 | 23 |
23 %% keep these two together | 24 %% keep these two together |
24 "instrument-definitions" = #'() | 25 "instrument-definitions" = #'() |
25 addInstrumentDefinition = | 26 addInstrumentDefinition = |
26 #(define-music-function | 27 #(define-music-function |
27 (parser location name lst) (string? list?) | 28 (parser location name lst) (string? list?) |
(...skipping 798 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
826 (unfold-repeats music)) | 827 (unfold-repeats music)) |
827 | 828 |
828 | 829 |
829 | 830 |
830 withMusicProperty = | 831 withMusicProperty = |
831 #(define-music-function (parser location sym val music) (symbol? scheme? ly:musi
c?) | 832 #(define-music-function (parser location sym val music) (symbol? scheme? ly:musi
c?) |
832 (_i "Set @var{sym} to @var{val} in @var{music}.") | 833 (_i "Set @var{sym} to @var{val} in @var{music}.") |
833 | 834 |
834 (set! (ly:music-property music sym) val) | 835 (set! (ly:music-property music sym) val) |
835 music) | 836 music) |
LEFT | RIGHT |