X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fmusic-creation.ly;h=c0740aa521702d466586fd86c38ca59c82c846e6;hb=51c4c4df780d83f3367d4e8b4c13a5f477242081;hp=ce5e3f120e5cfd63628f9dd1d2000abd69d20358;hpb=1395665466e349117f251da681262bd56c44d04e;p=lilypond.git

diff --git a/input/test/music-creation.ly b/input/test/music-creation.ly
index ce5e3f120e..c0740aa521 100644
--- a/input/test/music-creation.ly
+++ b/input/test/music-creation.ly
@@ -1,33 +1,30 @@
-\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)))))
-     )
+             (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 }
 }