blob: 76afb00b309abef91f9670b7feae3ec8ac2734af (
about) (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
pestanaPrivate = \markup {
\fontsize #-2
\combine
\roman C
\translate #'(0.6 . -0.4) \draw-line #'(0 . 2.0)
}
pestanaSingle =
#(define-music-function (fret-number music) (string? ly:music?)
#{
$music ^\markup { \pestanaPrivate \fontsize #-2 $fret-number }
#})
pestanaSpan =
#(define-music-function (fret-number) (string?)
#{
\once \override TextSpanner.font-shape = #'upright
\once \override TextSpanner.style = #'solid
\once \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
\once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -.5) }
\once \override TextSpanner.bound-details.left.text = \markup { \pestanaPrivate \fontsize #-2 $fret-number }
#})
corda =
#(define-music-function (string-number) (string?)
#{
\once \override TextSpanner.style = #'solid
\once \override TextSpanner.font-size = #-5
\once \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
\once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'( 0 . -.5) }
\once \override TextSpanner.bound-details.left.text = \markup { \circle \number $string-number }
#})
|
