(* I forgot the function:
hook =
#(let ((direction? (lambda (n) (= 1 (abs n))))
(hook-markup #{ \markup \path #0.12 #'((moveto 0 0)
(rlineto -0.85 0)
(rlineto 0 3)) #}))
(define-event-function (direction on-line)
(direction? boolean?)
(let* ((self-al (if on-line 0 0.31))
(self-al (if (= direction 1) (- self-al) self-al)))
#{
\tweak self-alignment-Y $self-al
\tweak extra-offset #'(0.75 . 0)
\tweak extra-spacing-width #'(-0.5 . 0)
\finger \markup \scale #(cons 1 direction) #hook-markup
#})))
--
Sent from: http://lilypond.1069038.n5.nabble.com/User-f3.html
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
