-\version "1.9.6" %% or actually: 1.7.1 ...
+\version "2.10.0"
+
% possible rename to scheme- something. -gp
\header { texidoc = "@cindex Scheme Music Creation
-You can create music expressions from Scheme. The
-mechanism for this is rather clumsy to use, so avoid it if possible. "
+You can engrave music using just Scheme expressions. Although those
+expressions reflect the inner mechanism of LilyPond, they are rather
+clumsy to use, so avoid them, if possible. "
}
#(define (make-note-req p d)
- (let* ((ml (make-music-by-name 'NoteEvent)))
- (ly:set-mus-property! ml 'duration d)
- (ly:set-mus-property! ml 'pitch p)
- ml))
+ (make-music 'NoteEvent
+ 'duration d
+ 'pitch p))
#(define (make-note elts)
- (let* ((ml (make-music-by-name 'EventChord)))
- (ly:set-mus-property! ml 'elements elts)
- ml))
+ (make-music 'EventChord
+ 'elements elts))
#(define (seq-music-list elts)
- (let* ((ml (make-music-by-name 'SequentialMusic)))
- (ly:set-mus-property! ml 'elements elts)
- ml))
-
+ (make-music 'SequentialMusic
+ 'elements elts))
-fooMusic = #(seq-music-list
- (list (make-note (list (make-note-req (ly:make-pitch 1 0 0) (ly:make-duration 2 0))))
- (make-note (list (make-note-req (ly:make-pitch 1 1 0) (ly:make-duration 2 0)))))
- )
+fooMusic = #(seq-music-list
+ (list (make-note (list (make-note-req (ly:make-pitch 1 0 0) (ly:make-duration 2 0))))
+ (make-note (list (make-note-req (ly:make-pitch 1 1 0) (ly:make-duration 2 0))))))
\score { \fooMusic
-\paper { raggedright = ##t }
+\layout { ragged-right = ##t }
}