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