Re: bends before notes... how to?

[Valentin Villenave]

2007/7/15, Kieren MacMillan <address@hidden>:

> where the specific values are adjusted to your taste.

It would be better if this could be used as many times as one wants
without having to tune it everytime...
I wrote a small code (my first try with Scheme!) to get an automatic
\bendBefore command. It's a very dirty hack, but it works.

Unlike \bendAfter, you have to use with curly braces:

\bendBefore #number { note }

If anyone can correct and improve my code, once it's done I'd like to
add it to the LSR (many people seem to be looking for a \bendBefore
command, the question was already asked in 2002!).

Regards,
Valentin

%%%%%% snippet %%%%%%


#(define (make-bend x)
  (make-music 'BendAfterEvent
              'delta-step x))

bend =
#(define-music-function (parser location delta) (integer?)
        (make-bend (* -1 delta)))

bendBefore  =
#(define-music-function (parser location argument) (integer?)
#{ \once \override BendAfter #'rotation = #'(180 -1 -1)
\bend #$argument  #} )
        

{
        c'1\bendAfter #5 e'1 d' \bendBefore #5 { e' }
}