\header
{
-texidoc = "Music function are generic music transformation functions,
-which can be used to extend music syntax seamlessly."
+
+texidoc = "Music functions are generic music transformation functions,
+which can be used to extend music syntax seamlessly. Here we
+demonstrate a @code{\myBar} function, which works similar to
+@code{\bar}, but is implemented completely in Scheme."
}
-\version "2.3.22"
+\version "2.10.0"
-#(define myBar
- (ly:make-music-function
- (list string?)
- (lambda (where type)
- (context-spec-music
- (context-spec-music (make-property-set 'whichBar type) 'Timing)
- 'Score))
-
- ))
+myBar = #(define-music-function (parser location bar-type) (string?)
+ (context-spec-music
+ (context-spec-music (make-property-set 'whichBar bar-type) 'Timing)
+ 'Score))
-\score{
- {
- d4 \myBar #"|:" d4
-
- }
+\layout { ragged-right = ##t }
+
+{
+ d4 \myBar "|:" d4
}