[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: Question about same-foot organ pedal substitutions
From: |
Joseph N. Srednicki |
Subject: |
RE: Question about same-foot organ pedal substitutions |
Date: |
Wed, 11 May 2016 17:10:49 -0400 |
Thanks, Thomas. This is great!
Joe Srednicki
-----Original Message-----
From: Thomas Morley [mailto:address@hidden
Sent: Wednesday, May 11, 2016 5:02 PM
To: Joseph N. Srednicki <address@hidden>
Cc: Kieren MacMillan <address@hidden>; Lilypond-User Mailing List
<address@hidden>
Subject: Re: Question about same-foot organ pedal substitutions
2016-05-11 22:28 GMT+02:00 Joseph N. Srednicki <address@hidden>:
> 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:address@hidden
> Sent: Wednesday, May 11, 2016 3:55 PM
> To: Joseph N. Srednicki <address@hidden>
> Cc: Lilypond-User Mailing List <address@hidden>
> 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