* input/regression/grid-lines.ly (skips): refine example.

* input/regression/grid-lines.ly (Module): new file.

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index a100911c7518551e7f5645873b15f0416552bad8..2b26300f5d3efdfaf85e343f21a9b4831c11aa93 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -34,7 +34,11 @@ See user manual, \NAME\
 @itemize @bullet
 
 @item
-Grid lines 
+Grid lines, vertical lines synchronized with notes, can be drawn across
+staves, by adding suitable engravers.
+An example is in @inputfileref{input/regression,grid-lines.ly},
+
+@lilypondfile[]{grid-lines.ly}
 
 @item
 Lines, such as glissandi or Text-spanner lines, can have arrows at the

diff --git a/input/regression/grid-lines.ly b/input/regression/grid-lines.ly
index e6b5a1dc4a28892c19759aa115bd3aff0db242a6..d6ac778fb8bbac7f89d60b241157a2df02f42dfb 100644 (file)
--- a/input/regression/grid-lines.ly
+++ b/input/regression/grid-lines.ly
@@ -9,20 +9,20 @@ staves synchronized with the notes."
 
 skips =
 {
-\time 12/8
-\once  \override Score.GridLine #'thickness = #4.0
+  \time 12/8
+  \once  \override Score.GridLine #'thickness = #4.0
   s8 
   s8 
   s8 
-\once  \override Score.GridLine #'thickness = #2.0
+  \once  \override Score.GridLine #'thickness = #3.0
   s8 
   s8 
   s8 
-\once  \override Score.GridLine #'thickness = #4.0
+  \once  \override Score.GridLine #'thickness = #4.0
   s8 
   s8 
   s8 
-\once  \override Score.GridLine #'thickness = #2.0
+  \once  \override Score.GridLine #'thickness = #3.0
   s8 
   s8 
   s8 
@@ -31,17 +31,18 @@ skips =
 
 \layout {
   \context {
-  \Staff
-  \consists "Grid_point_engraver"
-  
+    \Staff
+    \consists "Grid_point_engraver"
+    
   }
 
   \context {
-  \RhythmicStaff
-  \consists "Grid_point_engraver"
-  gridInterval = #(ly:make-moment 1 8)
-  \override BarLine #'bar-size = #0.05
-}
+    \RhythmicStaff
+    \consists "Grid_point_engraver"
+    minimumVerticalExtent = #'(-4 . 4) 
+    gridInterval = #(ly:make-moment 1 8)
+    \override BarLine #'bar-size = #0.05
+  }
   \context {
     \StaffGroup
     \remove "System_start_delimiter_engraver" 
@@ -55,7 +56,6 @@ skips =
 \with {
   \consists "Grid_line_span_engraver"
   \override SystemStartBrace #'transparent = ##t
-  \override TimeSignature #'transparent = ##t
 
   \override NoteColumn #'X-offset-callbacks = #(list (lambda (x a) -0.5))
   \override NoteHead #'Y-offset-callbacks = #(list (lambda (x a) 0.75))
@@ -67,8 +67,8 @@ skips =
     \override NoteHead  #'no-ledgers = ##t
   }
   {
-   \stemUp
-   c4. c8 c8 c c4 c8 c8.[ c16 c8]
+    \stemUp
+    c4. c8 c8 c c4 c8 c8.[ c16 c8]
   }
   \new RhythmicStaff
   {
@@ -78,10 +78,10 @@ skips =
     \override Beam #'transparent = ##t
     << \skips
 
-       % force regular spacing by introducing notes.
+                               % force regular spacing by introducing notes.
        \repeat unfold 12 c8
-       >>
-    }
-    
->>
+     >>
+  }
   
+>>
+