input/lsr/grid-lines--emphasizing-rhythms-and-notes-synchronization.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.11.62"
   4
   5 \header {
   6   lsrtags = "editorial-annotations"
   7
   8   texidoces = "
   9 Se pueden trazar líneas verticales normales entre pentagramas para
  10 mostrar la relación entre notas; sin embargo, en caso de música
  11 monofónica, podemos hacer invisible el segundo pentagrama, y que
  12 las líneas sean más cortas, como en este fragmento de código.
  13
  14 "
  15   doctitlees = "Líneas de rejilla: destacar ritmos y la relación temporal entre notas"
  16
  17   texidoc = "
  18 Regular vertical lines can be drawn between staves to show notes
  19 synchronization; however, in case of monophonic music, you may want to
  20 make the second stave invisible, and make the lines shorter like in
  21 this snippet.
  22
  23 "
  24   doctitle = "Grid lines: emphasizing rhythms and notes synchronization"
  25 } % begin verbatim
  26
  27 %% sets of grid
  28 \layout {
  29  \context {
  30    \Staff
  31    \consists "Grid_point_engraver"
  32    gridInterval = #(ly:make-moment 1 8)
  33 %% lines length
  34    \override GridPoint #'Y-extent = #'(6 . 0)
  35  }
  36  \context {
  37    \StaffGroup
  38    \remove "System_start_delimiter_engraver"
  39  }
  40 }
  41
  42 \layout {
  43  ragged-right = ##t
  44 }
  45 \new Score
  46 \with {
  47  \consists "Grid_line_span_engraver"
  48 %% centers grid lines  horizontally below noteheads
  49  \override NoteColumn #'X-offset = #-0.5
  50 }
  51
  52 \new ChoirStaff <<
  53  \new Staff
  54  {
  55    \time 12/8
  56    \stemUp
  57    \relative {
  58    c'4. d8 e8 f g4 f8 e8.[ d16 c8] }
  59  }
  60  \new Staff
  61  {
  62 %% making sure the lines will be placed outside the Staff
  63    \override Score.GridLine #'extra-offset = #'( 0.0 . -4.0 )
  64
  65 %% hides staff and notes so that only the grid lines are visible
  66    \override NoteHead #'transparent = ##t
  67    \override NoteHead #'no-ledgers = ##t
  68    \override Stem #'transparent = ##t
  69    \override Beam #'transparent = ##t
  70    \override Staff.BarLine #'transparent = ##t
  71    \override Staff.StaffSymbol #'line-count = #0
  72    \override Staff.TimeSignature #'transparent = ##t
  73    \override Staff.Clef #'transparent = ##t
  74
  75 % you have to put 'dummy' notes here to force regular grid spacing...
  76  \once  \override Score.GridLine #'thickness = #4.0
  77  c8   c8   c8
  78  \once  \override Score.GridLine #'thickness = #3.0
  79  c8   c8   c8
  80  \once  \override Score.GridLine #'thickness = #4.0
  81  c8   c8   c8
  82  \once  \override Score.GridLine #'thickness = #3.0
  83  c8   c8   c8
  84  }
  85 >>