2016-05-11 22:28 GMT+02:00 Joseph N. Srednicki <jnsredni...@verizon.net>:
> Thanks, Kieren. I am currently using the items that Abraham provided for
> alternate-foot substitutions.
>
> However, I am looking to notate same-foot substitutions, such as:
>
> ^-<horse shoe> -- above the note = right toe to right heel
>
> ^-<horse show> -- below the note = left toe to left heel
>
> Thanks.
>
> Joe Srednicki
>
> -----Original Message-----
> From: Kieren MacMillan [mailto:kieren_macmil...@sympatico.ca]
> Sent: Wednesday, May 11, 2016 3:55 PM
> To: Joseph N. Srednicki <jnsredni...@verizon.net>
> Cc: Lilypond-User Mailing List <lilypond-user@gnu.org>
> Subject: Re: Question about same-foot organ pedal substitutions
>
> Hi Joe,
>
> More recently, Abraham did something nice in this area:
> <http://lists.gnu.org/archive/html/lilypond-user/2016-02/msg00698.html>
>
> Hope that helps!
> Kieren.
How about:
\version "2.19.36"
#(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
}
HTH,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
