From 6010fbfeb7eb0dd7ac03de9e23a712769ff2a74d Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 27 Mar 2001 12:31:24 +0000
Subject: [PATCH] lilypond-1.3.144

---
 input/tricks/improv.ly | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 input/tricks/improv.ly

diff --git a/input/tricks/improv.ly b/input/tricks/improv.ly
new file mode 100644
index 0000000000..ff350187ec
--- /dev/null
+++ b/input/tricks/improv.ly
@@ -0,0 +1,46 @@
+
+improOn = \notes {\translator Voice = impro }
+improOff = \notes {\translator SquashVoice = melo }
+
+global = \notes { s1*3 \bar "|."; }
+
+\score {
+  <
+    \context ChordNames \chords {e8:m7*7 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
+	~e2~e8 f4 fis8
+	~fis2 \improOff a16()bes a8 g e
+      }
+    >
+  >
+  \paper { 
+    \translator {
+      \VoiceContext
+      \name SquashVoice;
+      \alias Voice;
+      \consists Pitch_squash_engraver;
+      \consists Local_key_engraver;
+      squashedPosition = 6;
+      NoteHead \override #'style = #'slash
+      Accidentals \override #'transparent = ##t
+    }
+    \translator {
+      \VoiceContext
+      \alias SquashVoice;
+      \consists Local_key_engraver;
+    }
+    \translator {
+      \ScoreContext
+      \accepts SquashVoice;
+    }
+    \translator {
+      \StaffContext
+      \remove Local_key_engraver;
+      \accepts SquashVoice;
+    }
+    linewidth = -1;
+  }
+}
-- 
2.11.4.GIT