2007/7/15, Daniele Russo <[EMAIL PROTECTED]>:
Not bad! But, I was interested in a different type of bend, much more short, 
like this (see attachment)

Here is a new command : \bendStart
it needs two arguments :
\bendStart #number {ghostnote}

the ghostnote will not be printed; its only purpose is to specify the
placement of the bend sign.

%%% snip %%%

#(define (make-bend x)
 (make-music 'BendAfterEvent
             'delta-step x))
bend =
#(define-music-function (parser location delta) (integer?)
      (make-bend (* -1 delta)))
bendStart =
#(define-music-function (parser location argument music) (integer? ly:music?)
#{ \hideNotes
        \once \override NoteColumn #'X-extent = #'(0 . 4)
        \cadenzaOn
        \bend #$argument
        \grace $music \cadenzaOff
        \unHideNotes
#} )

\paper {
ragged-right = ##t }

\relative {
\bendStart #-2 { g' } b8 a g fis e2 }


_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to