HOLD THE PRESSES!! I think I have it:
%%%% SNIPPET BEGINS \version "2.19.83" some-music = { a'4 bes' b' aes' g' cis' d' ees' fis' f' e' c' } #(define-markup-list-command (diffints layout props mus) (ly:music?) (interpret-markup-list layout props (map (lambda (d) (string-append (if (positive? d) "+" "") (number->string d))) (let ((muspst (map ly:pitch-semitones (music-pitches mus)))) (map - (cdr muspst) muspst))))) \markup \line \with-color #red \diffints #some-music \markup \line \with-color #red \diffints ##{ c' d' e' c' #} %%%% SNIPPET ENDS Comments and code critique appreciated. Thanks, Kieren. ________________________________ Kieren MacMillan, composer (he/him/his) ‣ website: www.kierenmacmillan.info ‣ email: i...@kierenmacmillan.info