]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/tablature-micro-tone.ly
Issue 4960 Fix micro-tones assigned to strings in TabStaff
[lilypond.git] / input / regression / tablature-micro-tone.ly
1 \version "2.19.31"
2
3 \header {
4   texidoc = "The @code{TabStaff} will print micro-tones as mixed numbers of
5 fret-number and a fraction.
6 The context-property @code{supportNonIntegerFret} needs to be set @code{#t}
7 in @code{Score}-context.
8 @code{FretBoards} will print those micro-tones only if they can be found in the
9 chosen settings for @code{stringTunings}, otherwise a warning (surpressed here)
10 will be printed and an empty @code{FretBoard} returned.  Which should be the
11 case for the last four of the examples pitches.
12 Micro-tones assigned to strings work nicely."
13 }
14
15 #(ly:set-option 'warning-as-error #f)
16 #(for-each
17   (lambda (pitch)
18     (ly:expect-warning (_ "No string for pitch "))
19     (ly:expect-warning (_ "Requested string for pitch requires negative fret"))
20     (ly:expect-warning (_ "Ignoring string request and recalculating.")))
21   (iota 4))
22
23 \layout {
24   \context {
25     \Score
26     supportNonIntegerFret = ##t
27   }
28 }
29
30 custom-tuning = \stringTuning <e, a, d ges beh eeh'>
31
32 mus = \relative {
33   eeses'4
34   eeseh
35   ees
36   eeh
37   e
38   eih
39   eis
40   eisih
41   eisis
42   geseh,,\6
43   geh\6
44   gih\6
45   gisih\6
46 }
47
48 <<
49   \new Staff << \clef "G_8" \mus >>
50   \new FretBoards \with { stringTunings = \custom-tuning } \mus
51   \new TabStaff \with { stringTunings = \custom-tuning } \mus
52 >>