Thanks, Thomas. This is great! Joe Srednicki
-----Original Message----- From: Thomas Morley [mailto:[email protected]] Sent: Wednesday, May 11, 2016 5:02 PM To: Joseph N. Srednicki <[email protected]> Cc: Kieren MacMillan <[email protected]>; Lilypond-User Mailing List <[email protected]> Subject: Re: Question about same-foot organ pedal substitutions 2016-05-11 22:28 GMT+02:00 Joseph N. Srednicki <[email protected]>: > 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:[email protected]] > Sent: Wednesday, May 11, 2016 3:55 PM > To: Joseph N. Srednicki <[email protected]> > Cc: Lilypond-User Mailing List <[email protected]> > 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 [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
