* scm/paper.scm (set-staff-size): new function: set default

[lilypond.git] / input / test / scheme-interactions.ly

diff --git a/input/test/scheme-interactions.ly b/input/test/scheme-interactions.ly
index a0f2de6711fa9b151269e7598c77d9755a0c22c3..36f62a7b404c78799080a09da64d313a17e04009 100644 (file)
--- a/input/test/scheme-interactions.ly
+++ b/input/test/scheme-interactions.ly
@@ -1,16 +1,17 @@
-\version "1.7.3"
+\version "2.1.7"
+\header { texidoc = "@cindex Scheme Interactions
+With @code{ly:export}, you can pass of the result of
+Scheme expressions as lilypond input.  Within a Scheme expression,
+you can use, define or change lilypond variables.
 
-\header {
+In this example, the E-s and D-s are generated using scheme functions,
+and woven together with manually entered C-s.
 
-    texidoc = "With @code{ly:export}, you can pass of the result of
-Scheme expressions as lilypond input. Within a Scheme expression, you
-can use, define or change lilypond variables. "
-
-}
+" }
 
+foo = \notes \transpose c c { d''4-. }
+bra = \notes \transpose c c { e'4-. }
 
-foo = \notes \transpose c' { d''4-. }
-bra = \notes \transpose c' { e'4-. }
 
 \score { 
   \context Voice \notes\relative c' {
@@ -22,4 +23,6 @@ bra = \notes \transpose c' { e'4-. }
       \baz
       c4
   }
+       \paper {raggedright=##t}
 }
+