X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fstaccato-pos.ly;h=7c722250a7e7fe69ca7e18a52eeaeb3011001d3f;hb=13798e90e8ae32bf341b21440f2687442274759f;hp=bca8c63bae8f96f4b72385405f982451ceec27db;hpb=49428cfe64483bc706da930d4e24d16166d8e79a;p=lilypond.git

diff --git a/input/regression/staccato-pos.ly b/input/regression/staccato-pos.ly
index bca8c63bae..7c722250a7 100644
--- a/input/regression/staccato-pos.ly
+++ b/input/regression/staccato-pos.ly
@@ -1,23 +1,39 @@
 
-\version "2.6.0"
+\version "2.19.21"
 
 \header{
 
-  texidoc=" The staccato dot (and all scripts with follow-into-staff
-set) must not be on staff lines. The staccato dot is close to the
-notehead. If the head is in a space, then the dot is in the space next
-to it.  "
+  texidoc=" Some scripts must have quantized postions. VErtical
+ position descend monotonously for a descending scale.  The staccato
+ dot is close to the notehead. If the head is in a space, then the dot
+ is in the space next to it.  "
 
 }
 
-
-\context Voice \relative c' {
-  e'4-. f-. g-. d-. c-. b-.
-  \stemDown
-  e,-. d-. c-. b-. a-. g-.    
-}
 \layout {
-  raggedright = ##t
-}  
-
+  ragged-right = ##t
+}
 
+{
+  \new Voice \relative { 
+    \voiceOne
+    g'8-. a-. b-. c-. 
+    a-. b-. c-. d-. 
+    b8[-. a-. g b] 
+    e,-. f-. g-. a-. 
+    e-. g-. b-. d-.
+  }
+  \context Voice {
+    \relative {
+      e''4-. f-. g-. d-. c-. b-.
+      \stemDown
+      e,-. d-. c-. b-. a-. g-.    
+    }
+    \relative {
+      \stemUp		 
+      d''-> c-> b-> a-> g-> f-> e-> d->
+      d'
+      d-. c-. b-. a-. g-. f-. e-. d-. 
+    }  
+  }
+}