]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/music-function.ly
* lily/quote-iterator.cc (process): use <= for comparisons. Fixes
[lilypond.git] / input / regression / music-function.ly
1 \header
2 {
3     
4 texidoc = "Music function are generic music transformation functions,
5 which can be used to extend music syntax seamlessly.  Here we
6 demonstrate a @code{\myBar} function, which works similar to
7 @code{\bar}, but is implemented completely in Scheme."
8
9 }
10 \version "2.3.22"
11
12 #(define myBar
13   (ly:make-music-function
14    (list string?)
15    (lambda (where type)
16     (context-spec-music
17      (context-spec-music (make-property-set 'whichBar type) 'Timing)
18      'Score))
19     ))
20
21 \layout { raggedright = ##t }
22
23 {
24     d4 \myBar #"|:" d4
25 }
26