X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fgrid-lines--emphasizing-rhythms-and-notes-synchronization.ly;h=212c3235d96ca75142851727724de1fbee70d9fb;hb=42c8525a05b09aa37b6847550b2607dfb9e384a5;hp=1c00be80a3db1eaf5c218c36b3216ba6e55e1877;hpb=edf17353d89f4f6bd831466262402bb9151a26ca;p=lilypond.git

diff --git a/input/lsr/grid-lines--emphasizing-rhythms-and-notes-synchronization.ly b/input/lsr/grid-lines--emphasizing-rhythms-and-notes-synchronization.ly
index 1c00be80a3..212c3235d9 100644
--- a/input/lsr/grid-lines--emphasizing-rhythms-and-notes-synchronization.ly
+++ b/input/lsr/grid-lines--emphasizing-rhythms-and-notes-synchronization.ly
@@ -1,12 +1,21 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.51"
+\version "2.13.1"
 
 \header {
   lsrtags = "editorial-annotations"
 
+  texidoces = "
+Se pueden trazar líneas verticales normales entre pentagramas para
+mostrar la relación entre notas; sin embargo, en caso de música
+monofónica, podemos hacer invisible el segundo pentagrama, y que
+las líneas sean más cortas, como en este fragmento de código.
+
+"
+  doctitlees = "Líneas de rejilla: destacar ritmos y la relación temporal entre notas"
+
   texidoc = "
-Regular vertical lines can be drawn between staves to show notes
+Regular vertical lines can be drawn between staves to show note
 synchronization; however, in case of monophonic music, you may want to
 make the second stave invisible, and make the lines shorter like in
 this snippet.
@@ -14,62 +23,51 @@ this snippet.
 "
   doctitle = "Grid lines: emphasizing rhythms and notes synchronization"
 } % begin verbatim
-%% sets of grid
-\layout {
- \context {
-   \Staff
-   \consists "Grid_point_engraver"
-   gridInterval = #(ly:make-moment 1 8)
-%% lines length
-   \override GridPoint #'Y-extent = #'(6 . 0)
- }
- \context {
-   \StaffGroup
-   \remove "System_start_delimiter_engraver"
- }
-}
 
-\layout {
- ragged-right = ##t
+\score {
+  \new ChoirStaff {
+    \relative c'' <<
+      \new Staff {
+        \time 12/8
+        \stemUp
+        c4. d8 e8 f g4 f8 e8. d16 c8
+      }
+      \new Staff {
+        % hides staff and notes so that only the grid lines are visible
+        \hideNotes
+        \override Staff.BarLine #'transparent = ##t
+        \override Staff.StaffSymbol #'line-count = #0
+        \override Staff.TimeSignature #'transparent = ##t
+        \override Staff.Clef #'transparent = ##t
+        
+        % dummy notes to force regular note spacing
+        \once  \override Score.GridLine #'thickness = #4.0
+        c8 c c
+        \once  \override Score.GridLine #'thickness = #3.0
+        c8 c c
+        \once  \override Score.GridLine #'thickness = #4.0
+        c8 c c
+        \once  \override Score.GridLine #'thickness = #3.0
+        c8 c c
+      }
+    >>
+  }
+  \layout {
+    \context {
+      \Score
+      \consists "Grid_line_span_engraver"
+      % center grid lines horizontally below note heads
+      \override NoteColumn #'X-offset = #-0.5
+    }
+    \context {
+      \Staff
+      \consists "Grid_point_engraver"
+      gridInterval = #(ly:make-moment 1 8)
+      % set line length and positioning:
+      % two staff spaces above center line on hidden staff
+      % to four spaces below center line on visible staff
+      \override GridPoint #'Y-extent = #'(2 . -4)
+    }
+    ragged-right = ##t
+  }
 }
-\new Score
-\with {
- \consists "Grid_line_span_engraver"
-%% centers grid lines  horizontally below noteheads
- \override NoteColumn #'X-offset = #-0.5
-}
-
-\new ChoirStaff <<
- \new Staff
- {
-   \time 12/8
-   \stemUp
-   \relative {
-   c'4. d8 e8 f g4 f8 e8.[ d16 c8] }
- }
- \new Staff
- {
-%% making sure the lines will be placed outside the Staff
-   \override Score.GridLine #'extra-offset = #'( 0.0 . -4.0 )
-
-%% hides staff and notes so that only the grid lines are visible
-   \override NoteHead #'transparent = ##t
-   \override NoteHead #'no-ledgers = ##t
-   \override Stem #'transparent = ##t
-   \override Beam #'transparent = ##t
-   \override Staff.BarLine #'transparent = ##t
-   \override Staff.StaffSymbol #'line-count = #0
-   \override Staff.TimeSignature #'transparent = ##t
-   \override Staff.Clef #'transparent = ##t
-
-% you have to put 'dummy' notes here to force regular grid spacing...
- \once  \override Score.GridLine #'thickness = #4.0
- c8   c8   c8
- \once  \override Score.GridLine #'thickness = #3.0
- c8   c8   c8
- \once  \override Score.GridLine #'thickness = #4.0
- c8   c8   c8
- \once  \override Score.GridLine #'thickness = #3.0
- c8   c8   c8
- }
->>