Re: Need help before I can ask the right question...

[Nick Payne]

On 20/12/09 12:17, Hugh Myers wrote:
> In Segovia's 'Diatonic Major and Minor Scales', under the notes shown
> for a given scale are marks beginning with a number surrounded by
> parenthesis followed by a line vaguely parallel to the notes,
> concluding with an uptick between a given pair of notes. What is this
> called and how might I duplicate it in Lilypond?
>    
You mean something like this?

%%============================================
\version "2.13.9"

\paper {
    #(set-paper-size "a4")
    indent = 0\cm
}

string = #(define-music-function (parser location stringnum osp dirn 
shorten adjBreak adjEnd)
    (string? number? number? pair? number? number?)
#{
    \once \override TextSpanner #'outside-staff-priority = #$osp
    \once \override TextSpanner #'bound-details #'left #'text = \markup 
\bold { \teeny \concat { \circle { \finger $stringnum } " " } }
    \once \override TextSpanner #'font-shape = #'upright
    \once \override TextSpanner #'direction = #$dirn
    \once \override TextSpanner #'dash-period = #0.8
    \once \override TextSpanner #'dash-fraction = #0.6
    \once \override TextSpanner #'thickness = #0.8
    \once \override TextSpanner #'bound-details #'right #'text = 
\markup { \draw-line #(cons 0 (/ $dirn -2)) }
    \once \override TextSpanner #'bound-details #'left 
#'stencil-align-dir-y = #CENTER
    \once \override TextSpanner #'bound-details #'left #'padding = 
#(car $shorten)
    \once \override TextSpanner #'bound-details #'right #'padding = 
#(cdr $shorten)
    \once \override TextSpanner #'bound-details #'right-broken 
#'padding = #$adjEnd
    \once \override TextSpanner #'bound-details #'left-broken #'X = 
#$adjBreak
    \once \override TextSpanner #'bound-details #'left-broken #'text = ##f
    \once \override TextSpanner #'bound-details #'right-broken #'text = ##f
#})

\score {
    \relative c {
        \clef "treble_8"
        \override Fingering #'staff-padding = #'()
        \set fingeringOrientations = #'(left)
        \override Fingering #'add-stem-support = ##f
        \string "6" #0 #UP #'(0 . -1) #1 #1 <f,-1>\startTextSpan 
<fis-2> <g-3> <gis-4>\stopTextSpan
        \string "5" #0 #UP #'(0 . -1) #1 #1 <b-1>\startTextSpan <c-2> 
<cis-3> <d-4>\stopTextSpan
        \string "4" #0 #UP #'(0 . -1) #1 #1 <f-1>\startTextSpan <fis-2> 
<g-3> <gis-4>\stopTextSpan
        \string "3" #0 #DOWN #'(0 . -0.5) #1 #1 <b-1>\startTextSpan 
<c-2> <cis-3> <d-4>\stopTextSpan
        \string "2" #0 #DOWN #'(0 . -0.5) #1 #1 <e-1>\startTextSpan 
<f-2> <fis-3> <g-4>\stopTextSpan
        \string "1" #0 #DOWN #'(0 . -0.5) #1 #1 <b-1>\startTextSpan 
<c-2> <cis-3> <d-4> <c-1> <cis-2> <d-3> <dis-4>\stopTextSpan
        \string "2" #0 #DOWN #'(0 . -0.5) #1 #1 <f,-1>\startTextSpan 
<fis-2> <g-3> <gis-4>\stopTextSpan
        \string "3" #0 #DOWN #'(0 . -0.5) #1 #1 <c,-1>\startTextSpan 
<cis-2> <d-3> <dis-4>\stopTextSpan
        \string "4" #0 #UP #'(0 . -1) #1 #1 <fis,-1>\startTextSpan 
<g-2> <gis-3> <a-4>\stopTextSpan
        \string "5" #0 #UP #'(0 . -1) #1 #1 <c,-1>\startTextSpan 
<cis-2> <d-3> <dis-4>\stopTextSpan
        \string "6" #0 #UP #'(0 . -1) #1 #1 <fis,-1>\startTextSpan 
<g-2> <gis-3> <a-4> <g-1> <gis-2> <a-3> <ais-4>\stopTextSpan
        \string "5" #0 #UP #'(0 . -1) #1 #1 <cis-1>\startTextSpan <d-2> 
<dis-3> <e-4>\stopTextSpan_\markup\italic { etc. }
    }
    \layout {
        \context {
            \Staff
                \remove "Bar_engraver"
                \remove "Time_signature_engraver"
        }
    }
}
%%============================================

test.png
Description: PNG image