deleted input/test/lines.ly; duplicate of embedded-postscript.ly

[lilypond.git] / input / test / improv.ly

diff --git a/input/test/improv.ly b/input/test/improv.ly
index a09105069fd6748bfd1ac7684cab951baf93eb41..0cf2940b47e10e684ed511bd45b206ccededc495 100644 (file)
--- a/input/test/improv.ly
+++ b/input/test/improv.ly
@@ -1,4 +1,10 @@
-\version "1.3.146"
+\version "1.7.18"
+\header { texidoc = "@cindex Improv
+Noteheads for improvisation have a different shape. " }
+
+%{ TODO: the construct with separet SquashVoice context is a little
+ gory. FIXME.  %}
+
 
 improOn = \notes {\translator Voice = impro }
 improOff = \notes {\translator SquashVoice = melo }
@@ -7,13 +13,13 @@ global = \notes { s1*3 \bar "|." }
 
 \score {
   <
-    \context ChordNames \chords {e8:m7*7 a2.:m7 bes4:m7 b1:m7 e8:m }
+    \context ChordNames \chords {e8*7:m7 a2.:m7 bes4:m7 b1:m7 e8:m }
     \context Staff \notes <
       \context SquashVoice = impro { \global }
-      \context Voice = melo \transpose c'' {
-       e8 e g a a16()bes()a8 g \improOn e8
+      \context Voice = melo \transpose c c' {
+       e8 e g a a16(bes-)(a8-) g \improOn e8
        ~e2~e8 f4 fis8
-       ~fis2 \improOff a16()bes a8 g e
+       ~fis2 \improOff a16(bes-) a8 g e
       }
     >
   >
@@ -23,15 +29,15 @@ global = \notes { s1*3 \bar "|." }
       \name SquashVoice
       \alias Voice
       \consists Pitch_squash_engraver
-      \consists Local_key_engraver
-      squashedPosition = 6
+      \consists "Accidental_engraver"
+      squashedPosition = #0
       NoteHead \override #'style = #'slash
-      Accidentals \override #'transparent = ##t
+      Accidental \override #'transparent = ##t
     }
     \translator {
       \VoiceContext
       \alias SquashVoice
-      \consists Local_key_engraver
+      \consists "Accidental_engraver"
     }
     \translator {
       \ScoreContext
@@ -39,9 +45,10 @@ global = \notes { s1*3 \bar "|." }
     }
     \translator {
       \StaffContext
-      \remove Local_key_engraver
+      \remove "Accidental_engraver"
       \accepts SquashVoice
     }
-    linewidth = -1
+    raggedright = ##t
   }
 }
+%% new-chords-done %%