Please see the original message on this subject:
http://osdir.com/ml/lilypond-user-gnu/2016-05/msg00210.html
Can someone please tell me how to modify the attached code so that right
toe-to-heel shift marks are not upside down? For example, the left
toe-to-heel shift appears as desired below the note; however, the right
toe-to-heel shift appears above the note as: v-u.
In other words, I would like the right toe-to-heel shift to be the same as
the left toe-to-heel shift (both <caret>-<horseshoe>) with one difference:
the right-to-heel shift appears above the note, and the left toe-to-heel
shift appears below the note.
I have pasted the code in the message below.
If the answer is already in the email archive, I apologize for overlooking
it and would appreciate someone sending a link.
Thanks to anyone who can provide an answer. I am attaching the code below.
Joe Srednicki
==================================
\version "2.19.49"
#(define-markup-command (pedal-sub layout props)()
(let* ((dir (chain-assoc-get 'direction props))
(ped-toe (format #f "scripts.~apedaltoe" (if (> dir 0) "u" "d")))
(ped-heel (format #f "scripts.~apedalheel" (if (> dir 0) "u" "d"))))
(interpret-markup layout props
#{
\markup {
\fontsize #-3
\concat
\vcenter {
\musicglyph #ped-toe "-" \hspace #0.1 \musicglyph #ped-heel
}
}
#})))
pedalSub =
#(define-scheme-function ()()
#{ \markup \pedal-sub #})
{
c''^\pedalSub
c''_\pedalSub
\voiceOne c''-\pedalSub
\voiceTwo c''-\pedalSub
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
