Re:

[Thomas Morley]

2013/8/19 Tommaso Gordini <address@hidden>:
> "Here are the notes of the
> harmonic series that can be played on the horn. The notes marked with a
> plus tend to sound sharp, and the notes marked with a minus tend to
> sound flat."
>
> Yes, exactly! :-) I was wondering if there is a typographically correct to
> report it. Maybe it could be done with the arrows up or down over the
> quarter notes? But I have not been able to draw them :-(
>
> Ciao
> Tommaso
>
>
> 2013/8/19 David Rogers <address@hidden>
>>
>> Robert Schmaus <address@hidden> writes:
>>
>> > Or do you mean bends? Glissandi? Key change, even? Could you maybe
>> > send (or point to) an example?
>> >
>> > It seems unclear what you mean with "crescente/calante" in harmonics
>> > (as opposed to dynamics) ...
>>
>> I believe that the intended meaning is "Here are the notes of the
>> harmonic series that can be played on the horn. The notes marked with a
>> plus tend to sound sharp, and the notes marked with a minus tend to
>> sound flat."
>>
>> --
>> David R
>
>
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>

Hi,

how about the coding below.

It shows two possibilities.
a) Simple TextScript
b) Hijacking StringNumber. (I suppose it will not be needed for French Horn.) :)

\version "2.16.2"

stringNumberSettings =
\layout {
    \context {
        \Voice
                \override StringNumber #'Y-extent =
                 #(ly:make-unpure-pure-container
                    ly:grob::stencil-height
                    (lambda (grob start end) (ly:grob::stencil-height grob)))
                stringNumberOrientations = #'(right)
                \override StringNumber #'padding = 0
          }
}

showTune =
#(define-event-function (parser location dir)(number?)
#{
  \tweak #'stencil
  #(lambda (grob)
    (let* ((layout (ly:grob-layout grob))
           (staff-space (ly:output-def-lookup layout 'staff-space))
           (raise (cond ((= dir 1)
                         staff-space)
                        ((= dir -1)
                         (* -2.8 staff-space))
                        (else 0)))
           (rotate (if (= dir -1)
                       -90
                       0)))
    (grob-interpret-markup grob
    #{ \markup { \combine \null \raise #raise \rotate #rotate "↗" } #})))
  \0
#})

\layout {
  %% Only needed if \showTune is used
  \stringNumberSettings
}

\relative c'' {
    % Using TextScript
    c_\markup "↗"
    c^\markup \rotate #-90 "↗"
    % (Ab)using StringNumber
    c-\showTune #up
    c-\showTune #down
}

HTH,
  Harm