new file.

[lilypond.git] / input / regression / stem-shorten.ly

diff --git a/input/regression/stem-shorten.ly b/input/regression/stem-shorten.ly
index 9b7f5983fbcfa522aa16941619e02bd6a314a6cc..9aa12dd3e82917fc4765859a9aaa256e345af886 100644 (file)
--- a/input/regression/stem-shorten.ly
+++ b/input/regression/stem-shorten.ly
@@ -1,17 +1,24 @@
 
-\version "1.9.2"
+\version "2.4.0"
 
 \header {
     
-    texidoc = "Stems in forced directions (as well as the ones
-    starting from the middle line) are shortened."
+    texidoc = "If note head is `over' the center line, the stem is
+ shortened.  This happens with forced stem directions, and with some
+ chord configurations."
 
 }
 
 \score {
-    \notes \relative c'' { \stemDown d c b a g f e
-                          \stemBoth
-                          \stemUp a b c d e f g a 
-                      } 
-    \paper  {raggedright = ##t }
+     \relative c'' {
+       \stemDown d c b a g f e
+       \stemNeutral
+       \stemUp a b c d e f g a
+       \stemNeutral
+       <g, e'>2 <b e g> <c e g> <d f g>
+       
+    } 
+    \layout  {
+       raggedright = ##t
+    }
 }