release: 0.1.55

[lilypond.git] / input / sleur.ly

diff --git a/input/sleur.ly b/input/sleur.ly
index a0c895286c6b684a41139e3393f790d6a47de5f2..964e05a0cae6296f14580c54eb35f4f57cb5a873 100644 (file)
--- a/input/sleur.ly
+++ b/input/sleur.ly
@@ -27,33 +27,74 @@ complex = \melodic{
 }
 
 beum = \melodic{
+       \octave c'; 
        [c8 c] c4 c4 c4 |
 }
 
-extend = {
-         c8(( c c )c c c c )c |
-         \[4/5c8( c c' c )c\]1/1 c c c c |
-         \[4/5c8( c c c c'\]1/1 c c c )c |
-         \[4/5c8( c c c c''\]1/1 c c c )c' |
-         \[4/5c8( c c c c'\]1/1 c c c )'c |
-         \[4/5c8( c c' c c\]1/1 c c c )c |
-         \[4/5c8( c c c ''c\]1/1 c c c )c |
-         \[4/5c8( c ''c c c\]1/1 c c c )c |
+extend = \melodic{
+       \octave c;
+       c8(( c c )c c c c )c |
+       \[4/5c8( c c' c )c\]1/1 c c c c |
+       \[4/5c8( c c c c'\]1/1 c c c )c |
+       \[4/5c8( c c c c''\]1/1 c c c )c' |
+       \[4/5c8( c c c c'\]1/1 c c c )'c |
+       \[4/5c8( c c' c c\]1/1 c c c )c |
+       \[4/5c8( c c c ''c\]1/1 c c c )c |
+       \[4/5c8( c ''c c c\]1/1 c c c )c |
+}
+
+extendbug = \melodic{
+       \octave c'; 
+       c4( c' c' )c
+       \stemup c'4( \stemdown e e \stemboth )c'
+       [c'8( b g a] [c' d' e' c'] [c' d' e' )c']
+       c( c' c' )c
+       e( g' g' )e
+
+}
+
+blend = \melodic{
+       \octave c; 
+       \stemdown; 
+%%         \[4/5c8( c ''c c c\]1/1 c c c )c |
+       \[4/5c8( c ''f c c\]1/1 c c c )c |
+       \[4/5c8( c \stemup ''f \stemdown c c\]1/1 c c c )c |
+       \stemup; 
+       \octave c''; 
+       \[4/5c8( c f'' c c\]1/1 c c c )c |
+       \[4/5c8( c \stemdown f'' \stemup c c\]1/1 c c c )c |
+%          \octave c''';
+       \stemboth;
+       c4( 'c16 'e 'g 'b d f a )'c16 c4 |
+       c4( 'c16 'e 'g 'b d f f )'c16 c4 |
+       \octave c'; 
+       \stemdown; 
+       c( c'' c'' )c
+       \stemboth;
+       e( g' g' )e
+       e( g' g' )e
+       e( g' g' )e
+       e( g' g' )e
 }
 
 \score{
        \melodic{ 
+               \blend
                \shortlong
                \dirs
                \complex
                \beum
+               \octave c'; 
                \stemup; 
-               \octave c''; 
                \extend
+               \octave c''; 
                \stemdown; 
-               \octave c'; 
                \extend
+               \stemboth;
+               \extendbug
+       }
+       \paper{ 
+%              castingalgorithm = \Wordwrap;
        }
-       \paper{ }
 }