Added texinfo index.

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

diff --git a/input/test/music-creation.ly b/input/test/music-creation.ly
index 9599d5f403d31235cd178ba56d9aa23c1e3ac323..9b731a33308904ee5c5a0f2daa09494c79dd698a 100644 (file)
--- a/input/test/music-creation.ly
+++ b/input/test/music-creation.ly
@@ -1,10 +1,9 @@
 \version "1.7.18"  %% 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."
-
- }
+% 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)
    (let* ((ml (make-music-by-name 'NoteEvent)))
@@ -28,5 +27,7 @@ fooMusic  = #(seq-music-list
      (make-note (list (make-note-req (ly:make-pitch 1 1 0) (ly:make-duration 2 0)))))
      )
      
-\score { \fooMusic }
+\score { \fooMusic 
+\paper { raggedright = ##t }
+}
 %% new-chords-done %%