RE: Question about same-foot organ pedal substitutions

[Joseph N. Srednicki]

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