input/test/tab-staff.ly

   1 %{
   2
   3 Kludge for half-assed tab notation (you need to fill the numbers
   4 yourself.)
   5
   6 %}
   7
   8 bla = \notes \relative c' { <c4 e g>  <c4. e g> <c8 f a> <c4 f a> <c1 e g> }
   9
  10 \score { \notes
  11 <
  12   \context Voice = BLA \bla
  13   \context TabStaff \context Thread \bla
  14 >
  15
  16 \paper {
  17  \translator {
  18   \StaffContext
  19   \name TabStaff;
  20   basicStaffSymbolProperties \push #'line-count = #6
  21   \remove "Clef_engraver";
  22   \remove "Time_signature_engraver";
  23   \consists "Pitch_squash_engraver";
  24    basicNoteHeadProperties \push #'transparent = ##t
  25    basicNoteHeadProperties \push #'staff-position = #-6
  26    basicDotsProperties \push #'transparent = ##t
  27    squashedPosition = #-4
  28    basicStemProperties \push #'length = #12
  29 }
  30 \translator {
  31 \ScoreContext
  32 \accepts TabStaff;
  33 }
  34 }
  35 }