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    basicStemProperties \push #'transparent = ##t
  26    basicNoteHeadProperties \push #'staff-position = #-6
  27    basicDotsProperties \push #'transparent = ##t
  28    squashedPosition = #-4
  29    basicStemProperties \push #'length = #12
  30 }
  31 \translator {
  32 \ScoreContext
  33 \accepts TabStaff;
  34 }
  35 }
  36 }