* buildscripts/mf-to-table.py (base): break table every three

[lilypond.git] / input / test / music-creation.ly

diff --git a/input/test/music-creation.ly b/input/test/music-creation.ly
index 00e12dd2ce77b403eda16338e2f692f68c079f9b..012c14d7a54dca2d9e223a587d55ea73ebe51a7c 100644 (file)
--- a/input/test/music-creation.ly
+++ b/input/test/music-creation.ly
@@ -1,37 +1,33 @@
-\version "1.7.0"  %% or actually: 1.7.1 ...
-\header {
-
- texidoc = "You can create music expressions from Scheme.  The
- mechanism for this is rather clumsy to use, so avoid if possible."
-
- }
+\version "1.7.18"  %% or actually: 1.7.1 ...
+% 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. "
+}
 
 #(define (make-note-req p d)
-   ;; huh? lily-guile: Could not find music type `Note_req' 
-   ;;(let* ((ml (make-music-by-name "Note_req")))
    (let* ((ml (make-music-by-name 'NoteEvent)))
-   (ly-set-mus-property! ml 'duration d)
-   (ly-set-mus-property! ml 'pitch p)
+   (ly:set-mus-property! ml 'duration d)
+   (ly:set-mus-property! ml 'pitch p)
    ml))
 
 #(define (make-note elts)
-   ;; huh?  lily-guile: Could not find music type `Request_chord'
-   ;;(let* ((ml (make-music-by-name "Request_chord")))
-   (let* ((ml (make-music-by-name 'RequestChord)))
-   (ly-set-mus-property! ml 'elements elts)
+   (let* ((ml (make-music-by-name 'EventChord)))
+   (ly:set-mus-property! ml 'elements elts)
    ml))
 
 #(define (seq-music-list elts)
-   ;; huh? lily-guile: Could not find music type `Sequential_music' 
-   ;;(let* ((ml (make-music-by-name "Sequential_music")))
    (let* ((ml (make-music-by-name 'SequentialMusic)))
-   (ly-set-mus-property! ml 'elements elts)
+   (ly:set-mus-property! ml 'elements elts)
    ml))
 
 
 fooMusic  = #(seq-music-list
-  (list (make-note (list (make-note-req (make-pitch 1 0 0) (make-duration 2 0))))
-     (make-note (list (make-note-req (make-pitch 1 1 0) (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 }
+\score { \fooMusic 
+\paper { raggedright = ##t }
+}
+